# medfield.f

Aller à la documentation de ce fichier.

    00001 C*  This file is part of MED.
    00002 C*
    00003 C*  COPYRIGHT (C) 1999 - 2012  EDF R&D, CEA/DEN
    00004 C*  MED is free software: you can redistribute it and/or modify
    00005 C*  it under the terms of the GNU Lesser General Public License as published by
    00006 C*  the Free Software Foundation, either version 3 of the License, or
    00007 C*  (at your option) any later version.
    00008 C*
    00009 C*  MED is distributed in the hope that it will be useful,
    00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
    00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    00012 C*  GNU Lesser General Public License for more details.
    00013 C*
    00014 C*  You should have received a copy of the GNU Lesser General Public License
    00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
    00016 C*
    00017 c
    00018 c
    00019 c
    00020       subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,
    00021      &                  dtunit,mname,cret)
    00022 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdcre
    00023 c
    00024       implicit none
    00025       save
    00026       character*(*) fname,cname,cunit,dtunit,mname
    00027       integer fid,ncomp,cret,ftype
    00028       integer mfdfcre
    00029 c
    00030       cret = mfdfcre(fid,fname,len(fname),ftype,
    00031      &               ncomp,cname,16*ncomp,cunit,16*ncomp,
    00032      &               dtunit,len(dtunit),mname,len(mname))
    00033 c
    00034       return
    00035       end
    00036 c
    00037 c
    00038 c
    00039       subroutine mfdrvw(fid,fname,numdt,numit,dt,
    00040      &                  etype,gtype,swm,cs,n,val,cret)
    00041 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdrvw
    00042 c
    00043       implicit none
    00044       save
    00045       character*(*) fname
    00046       integer numdt,numit
    00047       real*8 dt,val(*)
    00048       integer fid,cret,etype,gtype,swm,cs,n
    00049       integer mfdfrvw
    00050 c
    00051       cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
    00052      &               etype,gtype,swm,cs,n,val)
    00053 c
    00054       return
    00055       end
    00056 c
    00057 c
    00058 c
    00059       subroutine mfdivw(fid,fname,numdt,numit,dt,
    00060      &                  etype,gtype,swm,cs,n,val,cret)
    00061 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdivw
    00062 c
    00063       implicit none
    00064       save
    00065       character*(*) fname
    00066       integer numdt,numit
    00067       real*8 dt
    00068       integer val(*)
    00069       integer fid,cret,etype,gtype,swm,cs,n
    00070       integer mfdfivw
    00071 c
    00072       cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
    00073      &               etype,gtype,swm,cs,n,val)
    00074 c
    00075       return
    00076       end
    00077 c
    00078 c
    00079 c
    00080       subroutine mfdrpw(fid,fname,numdt,numit,dt,
    00081      &                  etype,gtype,
    00082      &                  stm,pname,lname,
    00083      &                  swm,cs,n,val,cret)
    00084 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdrpw
    00085 c
    00086       implicit none
    00087       save
    00088       character*(*) fname,pname,lname
    00089       integer numdt,numit
    00090       real*8 dt,val(*)
    00091       integer fid,cret,etype,gtype,swm,cs,n,stm
    00092       integer mfdfrpw
    00093 c
    00094       cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
    00095      &               etype,gtype,stm,pname,len(pname),
    00096      &               lname,len(lname),swm,cs,n,val)
    00097 c
    00098       return
    00099       end
    00100 c
    00101 c
    00102 c
    00103       subroutine mfdipw(fid,fname,numdt,numit,dt,
    00104      &                  etype,gtype,
    00105      &                  stm,pname,lname,
    00106      &                  swm,cs,n,val,cret)
    00107 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdipw
    00108 c
    00109       implicit none
    00110       save
    00111       character*(*) fname,pname,lname
    00112       integer numdt,numit
    00113       real*8 dt
    00114       integer val(*)
    00115       integer fid,cret,etype,gtype,swm,cs,n,stm
    00116       integer mfdfipw
    00117 c
    00118       cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
    00119      &               etype,gtype,stm,pname,len(pname),
    00120      &               lname,len(lname),swm,cs,n,val,cret)
    00121 c
    00122       return
    00123       end
    00124 c
    00125 c
    00126 c
    00127       subroutine mfdraw(fid,fname,numdt,numit,dt,
    00128      &                  etype,gtype,lname,flt,
    00129      &                  val,cret)
    00130 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdraw
    00131 c
    00132       implicit none
    00133       save
    00134       character*(*) fname,lname
    00135       integer numdt,numit
    00136       real*8 dt,val(*)
    00137       integer*8 flt(*)
    00138       integer fid,cret,etype,gtype
    00139       integer mfdfraw
    00140 c
    00141       cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
    00142      &               etype,gtype,lname,len(lname),flt,val)
    00143 c
    00144       return
    00145       end
    00146 c
    00147 c
    00148 c
    00149       subroutine mfdiaw(fid,fname,numdt,numit,dt,
    00150      &                  etype,gtype,lname,flt,
    00151      &                  val,cret)
    00152 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdiaw
    00153 c
    00154       implicit none
    00155       save
    00156       character*(*) fname,lname
    00157       integer numdt,numit
    00158       real*8 dt
    00159       integer val(*)
    00160       integer*8 flt(*)
    00161       integer fid,cret,etype,gtype
    00162       integer mfdfiaw
    00163 c
    00164       cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
    00165      &               etype,gtype,lname,len(lname),flt,val)
    00166 c
    00167       return
    00168       end
    00169 c
    00170 c
    00171 c
    00172       subroutine mfdnfd(fid,n,cret)
    00173 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdnfd
    00174 c
    00175       implicit none
    00176       save
    00177       integer fid,n,cret
    00178       integer mfdfnfd
    00179 c
    00180       n = mfdfnfd(fid)
    00181 c
    00182       if (n.lt.0) then
    00183          cret = -1
    00184       else
    00185          cret = 0
    00186       endif
    00187 c
    00188       return
    00189       end
    00190 c
    00191 c
    00192 c
    00193       subroutine mfdnfc(fid,ind,n,cret)
    00194 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdnfc
    00195 c
    00196       implicit none
    00197       save
    00198       integer fid,n,cret,ind
    00199       integer mfdfnfc
    00200 c
    00201       n = mfdfnfc(fid,ind)
    00202 c
    00203       if (n.lt.0) then
    00204          cret = -1
    00205       else
    00206          cret = 0
    00207       endif
    00208 c
    00209       return
    00210       end
    00211 c
    00212 c
    00213 c
    00214       subroutine mfdncn(fid,fname,n,cret)
    00215 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdncn
    00216 c
    00217       implicit none
    00218       save
    00219       integer fid,n,cret
    00220       character *(*) fname
    00221       integer mfdfncn
    00222 c
    00223       n = mfdfncn(fid,fname,len(fname))
    00224 c
    00225       if (n.lt.0) then
    00226          cret = -1
    00227       else
    00228          cret = 0
    00229       endif
    00230 c
    00231       return
    00232       end
    00233 c
    00234 c
    00235 c
    00236       subroutine mfdfdi(fid, it, fname, mname, lmesh, type,
    00237      &                  cname, cunit, dtunit, nc, cret)
    00238 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdfdi
    00239 c
    00240       implicit none
    00241       save
    00242 c
    00243       character *(*) fname, mname, dtunit, cname, cunit
    00244       integer lmesh, cret
    00245       integer fid, type, it, nc
    00246       integer mfdffdi
    00247 c
    00248       cret = mfdffdi(fid, it, fname, mname, lmesh, type,
    00249      &               cname, cunit, dtunit, nc)
    00250 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdffdi
    00251 c
    00252       return
    00253       end
    00254 c
    00255 c
    00256 c
    00257       subroutine mfdfin(fid, fname, mname, lmesh, type,
    00258      &                  cname, cunit, dtunit, nc, cret)
    00259 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdfin
    00260 c
    00261       implicit none
    00262       save
    00263 c
    00264       character *(*) fname, mname, dtunit, cname, cunit
    00265       integer lmesh, cret
    00266       integer fid, type, nc
    00267       integer mfdffin
    00268 c
    00269       cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
    00270      &               cname, cunit, dtunit, nc)
    00271 c
    00272       return
    00273       end
    00274 c
    00275 c
    00276 c
    00277       subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
    00278 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdcsi
    00279 c
    00280       implicit none
    00281       save
    00282 c
    00283       character*(*) fname
    00284       integer cret
    00285       integer fid, it, numdt, numit
    00286       real*8  dt
    00287       integer mfdfcsi
    00288 c
    00289       cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
    00290 c
    00291       return
    00292       end
    00293 c
    00294 c
    00295 c
    00296       subroutine mfdcmi(fid, fname, it, numdt, numit, dt,
    00297      &     mnumdt, mnumit, cret)
    00298 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdcmi
    00299 c
    00300       implicit none
    00301       save
    00302 c
    00303       character*(*) fname
    00304       integer cret
    00305       integer fid, it, numdt, numit, mnumdt, mnumit
    00306       real*8  dt
    00307       integer mfdfcmi
    00308 c
    00309       cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
    00310      &     mnumdt,mnumit)
    00311 c
    00312       return
    00313       end
    00314 c
    00315 c
    00316 c
    00317       subroutine mfdcmw(fid, fname, numdt, numit,
    00318      &     mnumdt, mnumit, cret)
    00319 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdcmw
    00320 c
    00321       implicit none
    00322       save
    00323 c
    00324       character*(*) fname
    00325       integer cret
    00326       integer fid, numdt, numit, mnumdt, mnumit
    00327       integer mfdfcmw
    00328 c
    00329       cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
    00330      &     mnumdt,mnumit)
    00331 c
    00332       return
    00333       end
    00334 c
    00335 c
    00336 c
    00337       subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,
    00338      &                  dpname, dlname, n,cret)
    00339 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdnpf
    00340 c
    00341       implicit none
    00342       save
    00343       integer fid,n,cret
    00344       integer numdt,numit,etype,gtype
    00345       character*(*) fname,dpname,dlname
    00346
    00347       integer mfdfnpf
    00348 c
    00349       n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
    00350      &            gtype,dpname,dlname)
    00351 c
    00352       if (n.lt.0) then
    00353          cret = -1
    00354       else
    00355          cret = 0
    00356       endif
    00357 c
    00358       return
    00359       end
    00360 c
    00361 c
    00362 c
    00363       subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)
    00364 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdnva
    00365 c
    00366       implicit none
    00367       save
    00368       character*(*) fname
    00369       integer fid,n,cret,numdt,numit,etype,gtype
    00370       integer mfdfnva
    00371 c
    00372       n = mfdfnva(fid,fname,len(fname),numdt,numit,
    00373      &            etype,gtype,cret)
    00374 c
    00375       if (n.lt.0) then
    00376          cret = -1
    00377       else
    00378          cret = 0
    00379       endif
    00380 c
    00381       return
    00382       end
    00383 c
    00384 c
    00385 c
    00386       subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,
    00387      &                  pit,stm,pname,psize,lname,nip,
    00388      &                  n,cret)
    00389 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdnvp
    00390 c
    00391       implicit none
    00392       save
    00393       character*(*) fname, pname, lname
    00394       integer pit,stm,psize
    00395       integer fid,n,cret,numdt,numit,etype,gtype,nip
    00396       integer mfdfnvp
    00397 c
    00398       n = mfdfnvp(fid,fname,len(fname),numdt,numit,
    00399      &            etype,gtype,pit,stm,pname,psize,lname,
    00400      &            nip,cret)
    00401 c
    00402       if (n.lt.0) then
    00403          cret = -1
    00404       else
    00405          cret = 0
    00406       endif
    00407 c
    00408       return
    00409       end
    00410 c
    00411 c
    00412 c
    00413       subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,
    00414      &                  pname,stm,psize,lname,nip,
    00415      &                  n,cret)
    00416 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdnpn
    00417 c
    00418       implicit none
    00419       save
    00420       character*(*) fname, pname, lname
    00421       integer stm,psize
    00422       integer fid,n,cret,numdt,numit,etype,gtype,nip
    00423       integer mfdfnpn
    00424 c
    00425       n = mfdfnpn(fid,fname,len(fname),numdt,numit,
    00426      &            etype,gtype,pname,len(pname),stm,
    00427      &            psize,lname,nip,cret)
    00428 c
    00429       if (n.lt.0) then
    00430          cret = -1
    00431       else
    00432          cret = 0
    00433       endif
    00434 c
    00435       return
    00436       end
    00437 c
    00438 c
    00439 c
    00440       subroutine mfdrvr(fid,fname,numdt,numit,
    00441      &                  etype,gtype,swm,cs,val,cret)
    00442 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdrvr
    00443 c
    00444       implicit none
    00445       save
    00446       character*(*) fname
    00447       integer numdt,numit
    00448       real*8 val(*)
    00449       integer fid,cret,etype,gtype,swm,cs
    00450       integer mfdfrvr
    00451 c
    00452       cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
    00453      &               etype,gtype,swm,cs,val)
    00454 c
    00455       return
    00456       end
    00457 c
    00458 c
    00459 c
    00460       subroutine mfdivr(fid,fname,numdt,numit,
    00461      &                  etype,gtype,swm,cs,val,cret)
    00462 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdivr
    00463 c
    00464       implicit none
    00465       save
    00466       character*(*) fname
    00467       integer numdt,numit
    00468       integer val(*)
    00469       integer fid,cret,etype,gtype,swm,cs
    00470       integer mfdfivr
    00471 c
    00472       cret = mfdfivr(fid,fname,len(fname),numdt,numit,
    00473      &               etype,gtype,swm,cs,val)
    00474 c
    00475       return
    00476       end
    00477 c
    00478 c
    00479 c
    00480       subroutine mfdrpr(fid,fname,numdt,numit,
    00481      &                  etype,gtype,
    00482      &                  stm,pname,
    00483      &                  swm,cs,val,cret)
    00484 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdrpr
    00485 c
    00486       implicit none
    00487       save
    00488       character*(*) fname,pname
    00489       integer numdt,numit
    00490       real*8 val(*)
    00491       integer fid,cret,etype,gtype,swm,cs,stm
    00492       integer mfdfrpr
    00493 c
    00494       cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
    00495      &               etype,gtype,stm,pname,len(pname),swm,cs,val)
    00496 c
    00497       return
    00498       end
    00499 c
    00500 c
    00501 c
    00502       subroutine mfdipr(fid,fname,numdt,numit,
    00503      &                  etype,gtype,
    00504      &                  stm,pname,
    00505      &                  swm,cs,val,cret)
    00506 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdipr
    00507 c
    00508       implicit none
    00509       save
    00510       character*(*) fname,pname
    00511       integer numdt,numit
    00512       integer val(*)
    00513       integer fid,cret,etype,gtype,swm,cs,n,stm
    00514       integer mfdfipr
    00515 c
    00516       cret = mfdfipr(fid,fname,len(fname),numdt,numit,
    00517      &               etype,gtype,stm,pname,len(pname),swm,cs,val,cret)
    00518 c
    00519       return
    00520       end
    00521 c
    00522 c
    00523 c
    00524       subroutine mfdrar(fid,fname,numdt,numit,
    00525      &                  etype,gtype,flt,
    00526      &                  val,cret)
    00527 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdrar
    00528 c
    00529       implicit none
    00530       save
    00531       character*(*) fname
    00532       integer numdt,numit
    00533       real*8 val(*)
    00534       integer*8 flt(*)
    00535       integer fid,cret,etype,gtype
    00536       integer mfdfrar
    00537 c
    00538       cret = mfdfrar(fid,fname,len(fname),numdt,numit,
    00539      &               etype,gtype,flt,val)
    00540 c
    00541       return
    00542       end
    00543 c
    00544 c
    00545 c
    00546       subroutine mfdiar(fid,fname,numdt,numit,
    00547      &                  etype,gtype,flt,
    00548      &                  val,cret)
    00549 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdiar
    00550 c
    00551       implicit none
    00552       save
    00553       character*(*) fname
    00554       integer numdt,numit
    00555       integer val(*)
    00556       integer*8 flt(*)
    00557       integer fid,cret,etype,gtype
    00558       integer mfdfiar
    00559 c
    00560       cret = mfdfiar(fid,fname,len(fname),numdt,numit,
    00561      &               etype,gtype,flt,val)
    00562 c
    00563       return
    00564       end
    00565 c
    00566 c
    00567 c
    00568       subroutine mfdinw(fid,fname,iname,cret)
    00569 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdinw
    00570 c
    00571       implicit none
    00572       save
    00573       character*(*) fname,iname
    00574       integer fid,cret
    00575       integer mfdfinw
    00576 c
    00577       cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
    00578 c
    00579       return
    00580       end
    00581 c
    00582 c
    00583 c
    00584       subroutine mfdnin(fid,fname,n,cret)
    00585 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdnin
    00586 c
    00587       implicit none
    00588       save
    00589       integer fid,n,cret
    00590       character*(*) fname
    00591       integer mfdfnin
    00592 c
    00593       n = mfdfnin(fid,fname,len(fname))
    00594 c
    00595       if (n.lt.0) then
    00596          cret = -1
    00597       else
    00598          cret = 0
    00599       endif
    00600 c
    00601       return
    00602       end
    00603 c
    00604 c
    00605 c
    00606       subroutine mfdini(fid,fname,it,iname,cret)
    00607 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdini
    00608 c
    00609       implicit none
    00610       save
    00611       character*(*) fname,iname
    00612       integer fid,cret,it
    00613       integer mfdfini
    00614 c
    00615       cret = mfdfini(fid,fname,len(fname),it,iname,cret)
    00616 c
    00617       return
    00618       end
    00619 c
    00620 c
    00621 c
    00622       subroutine mfdoci(fid, fname, it, numdt, numit, dt,
    00623      &                  nmesh, mname, lmesh,
    00624      &                  mnumdt, mnumit, cret)
    00625 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdoci
    00626 c
    00627       implicit none
    00628       save
    00629 c
    00630       character*(*) fname,mname
    00631       integer cret
    00632       integer fid,it,numdt,numit,nmesh,lmesh
    00633       integer mnumdt,mnumit
    00634       real*8  dt
    00635       integer mfdfoci
    00636 c
    00637       cret = mfdfoci(fid,fname,len(fname),it,
    00638      &               numdt,numit,dt,
    00639      &               nmesh, mname, lmesh,
    00640      &               mnumdt, mnumit)
    00641 c
    00642       return
    00643       end
    00644 c
    00645 c
    00646 c
    00647       subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,
    00648      &                  it,mname, dpname, dlname, n, cret)
    00649 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdonp
    00650 c
    00651       implicit none
    00652       save
    00653       integer fid,n,cret
    00654       integer numdt,numit,etype,gtype,it
    00655       character*(*) fname,dpname,dlname,mname
    00656
    00657       integer mfdfonp
    00658 c
    00659       n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
    00660      &            gtype,it,mname,dpname,dlname)
    00661 c
    00662       if (n.lt.0) then
    00663          cret = -1
    00664       else
    00665          cret = 0
    00666       endif
    00667 c
    00668       return
    00669       end
    00670 c
    00671 c
    00672 c
    00673       subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,
    00674      &                  mname,pit,stm,pname,psize,lname,
    00675      &                  nip,n,cret)
    00676 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdonv
    00677 c
    00678       implicit none
    00679       save
    00680       character*(*) fname, pname, lname, mname
    00681       integer pit,stm,psize
    00682       integer fid,n,cret,numdt,numit,etype,gtype,nip
    00683       integer mfdfonv
    00684 c
    00685       n = mfdfonv(fid,fname,len(fname),numdt,numit,
    00686      &            etype,gtype,
    00687      &            mname,len(mname),
    00688      &            pit,stm,pname,psize,lname,
    00689      &            nip,cret)
    00690 c
    00691       if (n.lt.0) then
    00692          cret = -1
    00693       else
    00694          cret = 0
    00695       endif
    00696 c
    00697       return
    00698       end
    00699 c
    00700 c
    00701 c
    00702       subroutine mfdorr(fid,fname,numdt,numit,
    00703      &                  etype,gtype,
    00704      &                  mname,
    00705      &                  stm,pname,
    00706      &                  swm,cs,val,cret)
    00707 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdorr
    00708 c
    00709       implicit none
    00710       save
    00711       character*(*) fname,pname,mname
    00712       integer numdt,numit
    00713       real*8 val(*)
    00714       integer fid,cret,etype,gtype,swm,cs,stm
    00715       integer mfdforr
    00716 c
    00717       cret = mfdforr(fid,fname,len(fname),numdt,numit,
    00718      &               etype,gtype,mname,len(mname),
    00719      &               stm,pname,len(pname),swm,cs,val)
    00720 c
    00721       return
    00722       end
    00723 c
    00724 c
    00725 c
    00726       subroutine mfdoir(fid,fname,numdt,numit,
    00727      &                  etype,gtype,
    00728      &                  mname,
    00729      &                  stm,pname,
    00730      &                  swm,cs,val,cret)
    00731 c     DEC$ ATTRIBUTES DLLEXPORT :: mfdoir
    00732 c
    00733       implicit none
    00734       save
    00735       character*(*) fname,pname,mname
    00736       integer numdt,numit
    00737       integer val(*)
    00738       integer fid,cret,etype,gtype,swm,cs,n,stm
    00739       integer mfdfoir
    00740 c
    00741       cret = mfdfoir(fid,fname,len(fname),numdt,numit,
    00742      &               etype,gtype,mname,len(mname),
    00743      &               stm,pname,len(pname),swm,cs,val,cret)
    00744 c
    00745       return
    00746       end