00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020       subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,
00021      &                  dtunit,mname,cret)
00022 
00023 
00024       implicit none
00025       save
00026       character*(*) fname,cname,cunit,dtunit,mname
00027       integer fid,ncomp,cret,ftype
00028       integer mfdfcre
00029 
00030       cret = mfdfcre(fid,fname,len(fname),ftype,
00031      &               ncomp,cname,16*ncomp,cunit,16*ncomp,
00032      &               dtunit,len(dtunit),mname,len(mname))
00033 
00034       return
00035       end
00036 
00037 
00038 
00039       subroutine mfdrvw(fid,fname,numdt,numit,dt,
00040      &                  etype,gtype,swm,cs,n,val,cret)
00041 
00042 
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 
00051       cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
00052      &               etype,gtype,swm,cs,n,val)
00053 
00054       return
00055       end
00056 
00057 
00058 
00059       subroutine mfdivw(fid,fname,numdt,numit,dt,
00060      &                  etype,gtype,swm,cs,n,val,cret)
00061 
00062 
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 
00072       cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
00073      &               etype,gtype,swm,cs,n,val)
00074 
00075       return
00076       end
00077 
00078 
00079 
00080       subroutine mfdrpw(fid,fname,numdt,numit,dt,
00081      &                  etype,gtype,
00082      &                  stm,pname,lname,
00083      &                  swm,cs,n,val,cret)
00084 
00085 
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 
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 
00098       return
00099       end
00100 
00101 
00102 
00103       subroutine mfdipw(fid,fname,numdt,numit,dt,
00104      &                  etype,gtype,
00105      &                  stm,pname,lname,
00106      &                  swm,cs,n,val,cret)
00107 
00108 
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 
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 
00122       return
00123       end
00124 
00125 
00126 
00127       subroutine mfdraw(fid,fname,numdt,numit,dt,
00128      &                  etype,gtype,lname,flt,
00129      &                  val,cret)
00130 
00131 
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 
00141       cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
00142      &               etype,gtype,lname,len(lname),flt,val)
00143 
00144       return
00145       end
00146 
00147 
00148 
00149       subroutine mfdiaw(fid,fname,numdt,numit,dt,
00150      &                  etype,gtype,lname,flt,
00151      &                  val,cret)
00152 
00153 
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 
00164       cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
00165      &               etype,gtype,lname,len(lname),flt,val)
00166 
00167       return
00168       end
00169 
00170 
00171 
00172       subroutine mfdnfd(fid,n,cret)
00173 
00174 
00175       implicit none
00176       save
00177       integer fid,n,cret
00178       integer mfdfnfd
00179 
00180       n = mfdfnfd(fid)
00181 
00182       if (n.lt.0) then
00183          cret = -1
00184       else
00185          cret = 0
00186       endif
00187 
00188       return
00189       end
00190 
00191 
00192 
00193       subroutine mfdnfc(fid,ind,n,cret)
00194 
00195 
00196       implicit none
00197       save
00198       integer fid,n,cret,ind
00199       integer mfdfnfc
00200 
00201       n = mfdfnfc(fid,ind)
00202 
00203       if (n.lt.0) then
00204          cret = -1
00205       else
00206          cret = 0
00207       endif
00208 
00209       return
00210       end
00211 
00212 
00213 
00214       subroutine mfdncn(fid,fname,n,cret)
00215 
00216 
00217       implicit none
00218       save
00219       integer fid,n,cret
00220       character *(*) fname
00221       integer mfdfncn
00222 
00223       n = mfdfncn(fid,fname,len(fname))
00224 
00225       if (n.lt.0) then
00226          cret = -1
00227       else
00228          cret = 0
00229       endif
00230 
00231       return
00232       end
00233 
00234 
00235 
00236       subroutine mfdfdi(fid, it, fname, mname, lmesh, type, 
00237      &                  cname, cunit, dtunit, nc, cret)
00238 
00239 
00240       implicit none
00241       save
00242 
00243       character *(*) fname, mname, dtunit, cname, cunit
00244       integer lmesh, cret
00245       integer fid, type, it, nc
00246       integer mfdffdi 
00247 
00248       cret = mfdffdi(fid, it, fname, mname, lmesh, type,
00249      &               cname, cunit, dtunit, nc)
00250 
00251 
00252       return
00253       end
00254 
00255 
00256 
00257       subroutine mfdfin(fid, fname, mname, lmesh, type, 
00258      &                  cname, cunit, dtunit, nc, cret)
00259 
00260 
00261       implicit none
00262       save
00263 
00264       character *(*) fname, mname, dtunit, cname, cunit
00265       integer lmesh, cret
00266       integer fid, type, nc
00267       integer mfdffin 
00268 
00269       cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
00270      &               cname, cunit, dtunit, nc)
00271 
00272       return
00273       end
00274 
00275 
00276 
00277       subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
00278 
00279 
00280       implicit none
00281       save
00282 
00283       character*(*) fname
00284       integer cret
00285       integer fid, it, numdt, numit
00286       real*8  dt
00287       integer mfdfcsi
00288 
00289       cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
00290 
00291       return
00292       end
00293 
00294 
00295 
00296       subroutine mfdcmi(fid, fname, it, numdt, numit, dt, 
00297      &     mnumdt, mnumit, cret)
00298 
00299 
00300       implicit none
00301       save
00302 
00303       character*(*) fname
00304       integer cret
00305       integer fid, it, numdt, numit, mnumdt, mnumit
00306       real*8  dt
00307       integer mfdfcmi
00308 
00309       cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
00310      &     mnumdt,mnumit)
00311 
00312       return
00313       end
00314 
00315 
00316 
00317       subroutine mfdcmw(fid, fname, numdt, numit,
00318      &     mnumdt, mnumit, cret)
00319 
00320 
00321       implicit none
00322       save
00323 
00324       character*(*) fname
00325       integer cret
00326       integer fid, numdt, numit, mnumdt, mnumit
00327       integer mfdfcmw
00328 
00329       cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
00330      &     mnumdt,mnumit)
00331 
00332       return
00333       end
00334 
00335 
00336 
00337       subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,
00338      &                  dpname, dlname, n,cret)
00339 
00340 
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 
00349       n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
00350      &            gtype,dpname,dlname)
00351 
00352       if (n.lt.0) then
00353          cret = -1
00354       else
00355          cret = 0
00356       endif
00357 
00358       return
00359       end
00360 
00361 
00362 
00363       subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)
00364 
00365 
00366       implicit none
00367       save
00368       character*(*) fname
00369       integer fid,n,cret,numdt,numit,etype,gtype
00370       integer mfdfnva
00371 
00372       n = mfdfnva(fid,fname,len(fname),numdt,numit,
00373      &            etype,gtype,cret)
00374 
00375       if (n.lt.0) then
00376          cret = -1
00377       else
00378          cret = 0
00379       endif
00380 
00381       return
00382       end
00383 
00384 
00385 
00386       subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,
00387      &                  pit,stm,pname,psize,lname,nip,
00388      &                  n,cret)
00389 
00390 
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 
00398       n = mfdfnvp(fid,fname,len(fname),numdt,numit,
00399      &            etype,gtype,pit,stm,pname,psize,lname,
00400      &            nip,cret)
00401 
00402       if (n.lt.0) then
00403          cret = -1
00404       else
00405          cret = 0
00406       endif
00407 
00408       return
00409       end
00410 
00411 
00412 
00413       subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,
00414      &                  pname,stm,psize,lname,nip,
00415      &                  n,cret)
00416 
00417 
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 
00425       n = mfdfnpn(fid,fname,len(fname),numdt,numit,
00426      &            etype,gtype,pname,len(pname),stm,
00427      &            psize,lname,nip,cret)
00428 
00429       if (n.lt.0) then
00430          cret = -1
00431       else
00432          cret = 0
00433       endif
00434 
00435       return
00436       end
00437 
00438 
00439 
00440       subroutine mfdrvr(fid,fname,numdt,numit,
00441      &                  etype,gtype,swm,cs,val,cret)
00442 
00443 
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 
00452       cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
00453      &               etype,gtype,swm,cs,val)
00454 
00455       return
00456       end
00457 
00458 
00459 
00460       subroutine mfdivr(fid,fname,numdt,numit,
00461      &                  etype,gtype,swm,cs,val,cret)
00462 
00463 
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 
00472       cret = mfdfivr(fid,fname,len(fname),numdt,numit,
00473      &               etype,gtype,swm,cs,val)
00474 
00475       return
00476       end
00477 
00478 
00479 
00480       subroutine mfdrpr(fid,fname,numdt,numit,
00481      &                  etype,gtype,
00482      &                  stm,pname,
00483      &                  swm,cs,val,cret)
00484 
00485 
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 
00494       cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
00495      &               etype,gtype,stm,pname,len(pname),swm,cs,val)
00496 
00497       return
00498       end
00499 
00500 
00501 
00502       subroutine mfdipr(fid,fname,numdt,numit,
00503      &                  etype,gtype,
00504      &                  stm,pname,
00505      &                  swm,cs,val,cret)
00506 
00507 
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 
00516       cret = mfdfipr(fid,fname,len(fname),numdt,numit,
00517      &               etype,gtype,stm,pname,len(pname),swm,cs,val,cret)
00518 
00519       return
00520       end
00521 
00522 
00523 
00524       subroutine mfdrar(fid,fname,numdt,numit,
00525      &                  etype,gtype,flt,
00526      &                  val,cret)
00527 
00528 
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 
00538       cret = mfdfrar(fid,fname,len(fname),numdt,numit,
00539      &               etype,gtype,flt,val)
00540 
00541       return
00542       end
00543 
00544 
00545 
00546       subroutine mfdiar(fid,fname,numdt,numit,
00547      &                  etype,gtype,flt,
00548      &                  val,cret)
00549 
00550 
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 
00560       cret = mfdfiar(fid,fname,len(fname),numdt,numit,
00561      &               etype,gtype,flt,val)
00562 
00563       return
00564       end
00565 
00566 
00567 
00568       subroutine mfdinw(fid,fname,iname,cret)
00569 
00570 
00571       implicit none
00572       save
00573       character*(*) fname,iname
00574       integer fid,cret
00575       integer mfdfinw
00576 
00577       cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
00578 
00579       return
00580       end
00581 
00582 
00583 
00584       subroutine mfdnin(fid,fname,n,cret)
00585 
00586 
00587       implicit none
00588       save
00589       integer fid,n,cret
00590       character*(*) fname
00591       integer mfdfnin
00592 
00593       n = mfdfnin(fid,fname,len(fname))
00594 
00595       if (n.lt.0) then
00596          cret = -1
00597       else
00598          cret = 0
00599       endif
00600 
00601       return
00602       end
00603 
00604 
00605 
00606       subroutine mfdini(fid,fname,it,iname,cret)
00607 
00608 
00609       implicit none
00610       save
00611       character*(*) fname,iname
00612       integer fid,cret,it
00613       integer mfdfini
00614 
00615       cret = mfdfini(fid,fname,len(fname),it,iname,cret)
00616 
00617       return
00618       end
00619 
00620 
00621 
00622       subroutine mfdoci(fid, fname, it, numdt, numit, dt, 
00623      &                  nmesh, mname, lmesh, 
00624      &                  mnumdt, mnumit, cret)
00625 
00626 
00627       implicit none
00628       save
00629 
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 
00637       cret = mfdfoci(fid,fname,len(fname),it,
00638      &               numdt,numit,dt,
00639      &               nmesh, mname, lmesh, 
00640      &               mnumdt, mnumit)
00641 
00642       return
00643       end
00644 
00645 
00646 
00647       subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,
00648      &                  it,mname, dpname, dlname, n, cret)
00649 
00650 
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 
00659       n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
00660      &            gtype,it,mname,dpname,dlname)
00661 
00662       if (n.lt.0) then
00663          cret = -1
00664       else
00665          cret = 0
00666       endif
00667 
00668       return
00669       end
00670 
00671 
00672 
00673       subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,
00674      &                  mname,pit,stm,pname,psize,lname,
00675      &                  nip,n,cret)
00676 
00677 
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 
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 
00691       if (n.lt.0) then
00692          cret = -1
00693       else
00694          cret = 0
00695       endif
00696 
00697       return
00698       end
00699 
00700 
00701 
00702       subroutine mfdorr(fid,fname,numdt,numit,
00703      &                  etype,gtype,
00704      &                  mname,
00705      &                  stm,pname,
00706      &                  swm,cs,val,cret)
00707 
00708 
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 
00717       cret = mfdforr(fid,fname,len(fname),numdt,numit,
00718      &               etype,gtype,mname,len(mname),
00719      &               stm,pname,len(pname),swm,cs,val)
00720 
00721       return
00722       end
00723 
00724 
00725 
00726       subroutine mfdoir(fid,fname,numdt,numit,
00727      &                  etype,gtype,
00728      &                  mname,
00729      &                  stm,pname,
00730      &                  swm,cs,val,cret)
00731 
00732 
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 
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 
00745       return
00746       end