20 subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,
26 character*(*) fname,cname,cunit,dtunit,mname
28 integer ncomp,cret,ftype
31 cret = mfdfcre(fid,fname,len(fname),ftype,
32 & ncomp,cname,16*ncomp,cunit,16*ncomp,
33 & dtunit,len(dtunit),mname,len(mname))
40 subroutine mfdrvw(fid,fname,numdt,numit,dt,
41 & etype,gtype,swm,cs,n,val,cret)
50 integer cret,etype,gtype,swm,cs,n
53 cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
54 & etype,gtype,swm,cs,n,val)
61 subroutine mfdivw(fid,fname,numdt,numit,dt,
62 & etype,gtype,swm,cs,n,val,cret)
72 integer cret,etype,gtype,swm,cs,n
75 cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
76 & etype,gtype,swm,cs,n,val)
83 subroutine mfdrpw(fid,fname,numdt,numit,dt,
91 character*(*) fname,pname,lname
95 integer cret,etype,gtype,swm,cs,n,stm
98 cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
99 & etype,gtype,stm,pname,len(pname),
100 & lname,len(lname),swm,cs,n,val)
107 subroutine mfdipw(fid,fname,numdt,numit,dt,
115 character*(*) fname,pname,lname
120 integer cret,etype,gtype,swm,cs,n,stm
123 cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
124 & etype,gtype,stm,pname,len(pname),
125 & lname,len(lname),swm,cs,n,val,cret)
132 subroutine mfdraw(fid,fname,numdt,numit,dt,
133 & etype,gtype,lname,flt,
139 character*(*) fname,lname
144 integer cret,etype,gtype
147 cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
148 & etype,gtype,lname,len(lname),flt,val)
155 subroutine mfdiaw(fid,fname,numdt,numit,dt,
156 & etype,gtype,lname,flt,
162 character*(*) fname,lname
168 integer cret,etype,gtype
171 cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
172 & etype,gtype,lname,len(lname),flt,val)
233 n = mfdfncn(fid,fname,len(fname))
246 subroutine mfdfdi(fid, it, fname, mname, lmesh, type,
247 & cname, cunit, dtunit, nc, cret)
253 character *(*) fname, mname, dtunit, cname, cunit
259 cret = mfdffdi(fid, it, fname, mname, lmesh,
type,
260 & cname, cunit, dtunit, nc)
268 subroutine mfdfin(fid, fname, mname, lmesh, type,
269 & cname, cunit, dtunit, nc, cret)
275 character *(*) fname, mname, dtunit, cname, cunit
281 cret = mfdffin(fid, fname, len(fname), mname, lmesh,
type,
282 & cname, cunit, dtunit, nc)
289 subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
298 integer it, numdt, numit
302 cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
309 subroutine mfdcmi(fid, fname, it, numdt, numit, dt,
310 & mnumdt, mnumit, cret)
319 integer it, numdt, numit, mnumdt, mnumit
323 cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
331 subroutine mfdcmw(fid, fname, numdt, numit,
332 & mnumdt, mnumit, cret)
341 integer numdt, numit, mnumdt, mnumit
344 cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
352 subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,
353 & dpname, dlname, n,cret)
360 integer numdt,numit,etype,gtype
361 character*(*) fname,dpname,dlname
365 n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
366 & gtype,dpname,dlname)
379 subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)
386 integer n,cret,numdt,numit,etype,gtype
389 n = mfdfnva(fid,fname,len(fname),numdt,numit,
403 subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,
404 & pit,stm,pname,psize,lname,nip,
410 character*(*) fname, pname, lname
411 integer pit,stm,psize
413 integer n,cret,numdt,numit,etype,gtype,nip
416 n = mfdfnvp(fid,fname,len(fname),numdt,numit,
417 & etype,gtype,pit,stm,pname,psize,lname,
431 subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,
432 & pname,stm,psize,lname,nip,
438 character*(*) fname, pname, lname
441 integer n,cret,numdt,numit,etype,gtype,nip
444 n = mfdfnpn(fid,fname,len(fname),numdt,numit,
445 & etype,gtype,pname,len(pname),stm,
446 & psize,lname,nip,cret)
460 & etype,gtype,swm,cs,val,cret)
469 integer cret,etype,gtype,swm,cs
472 cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
473 & etype,gtype,swm,cs,val)
481 & etype,gtype,swm,cs,val,cret)
490 integer cret,etype,gtype,swm,cs
493 cret = mfdfivr(fid,fname,len(fname),numdt,numit,
494 & etype,gtype,swm,cs,val)
509 character*(*) fname,pname
513 integer cret,etype,gtype,swm,cs,stm
516 cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
517 & etype,gtype,stm,pname,len(pname),swm,cs,val)
532 character*(*) fname,pname
536 integer cret,etype,gtype,swm,cs,n,stm
539 cret = mfdfipr(fid,fname,len(fname),numdt,numit,
540 & etype,gtype,stm,pname,len(pname),swm,cs,val,cret)
559 integer cret,etype,gtype
562 cret = mfdfrar(fid,fname,len(fname),numdt,numit,
563 & etype,gtype,flt,val)
582 integer cret,etype,gtype
585 cret = mfdfiar(fid,fname,len(fname),numdt,numit,
586 & etype,gtype,flt,val)
598 character*(*) fname,iname
603 cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
620 n = mfdfnin(fid,fname,len(fname))
633 subroutine mfdini(fid,fname,it,iname,cret)
638 character*(*) fname,iname
643 cret = mfdfini(fid,fname,len(fname),it,iname,cret)
650 subroutine mfdoci(fid, fname, it, numdt, numit, dt,
651 & nmesh, mname, lmesh,
652 & mnumdt, mnumit, cret)
658 character*(*) fname,mname
661 integer it,numdt,numit,nmesh,lmesh
662 integer mnumdt,mnumit
666 cret = mfdfoci(fid,fname,len(fname),it,
668 & nmesh, mname, lmesh,
676 subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,
677 & it,mname, dpname, dlname, n, cret)
684 integer numdt,numit,etype,gtype,it
685 character*(*) fname,dpname,dlname,mname
689 n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
690 & gtype,it,mname,dpname,dlname)
703 subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,
704 & mname,pit,stm,pname,psize,lname,
710 character*(*) fname, pname, lname, mname
711 integer pit,stm,psize
713 integer n,cret,numdt,numit,etype,gtype,nip
716 n = mfdfonv(fid,fname,len(fname),numdt,numit,
719 & pit,stm,pname,psize,lname,
742 character*(*) fname,pname,mname
746 integer cret,etype,gtype,swm,cs,stm
749 cret = mfdforr(fid,fname,len(fname),numdt,numit,
750 & etype,gtype,mname,len(mname),
751 & stm,pname,len(pname),swm,cs,val)
767 character*(*) fname,pname,mname
771 integer cret,etype,gtype,swm,cs,n,stm
774 cret = mfdfoir(fid,fname,len(fname),numdt,numit,
775 & etype,gtype,mname,len(mname),
776 & stm,pname,len(pname),swm,cs,val,cret)
subroutine mfdcmi(fid, fname, it, numdt, numit, dt, mnumdt, mnumit, cret)
subroutine mfdfin(fid, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
subroutine mfdivr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
subroutine mfdnpf(fid, fname, numdt, numit, etype, gtype, dpname, dlname, n, cret)
subroutine mfdrvw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
subroutine mfdcre(fid, fname, ftype, ncomp, cname, cunit, dtunit, mname, cret)
subroutine mfdrpw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
subroutine mfdorr(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
subroutine mfdfdi(fid, it, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
subroutine mfdoci(fid, fname, it, numdt, numit, dt, nmesh, mname, lmesh, mnumdt, mnumit, cret)
subroutine mfdipw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
subroutine mfdonv(fid, fname, numdt, numit, etype, gtype, mname, pit, stm, pname, psize, lname, nip, n, cret)
subroutine mfdipr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
subroutine mfdrpr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
subroutine mfdini(fid, fname, it, iname, cret)
subroutine mfdrvr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
subroutine mfdraw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
subroutine mfdnin(fid, fname, n, cret)
subroutine mfdcmw(fid, fname, numdt, numit, mnumdt, mnumit, cret)
subroutine mfdncn(fid, fname, n, cret)
subroutine mfdivw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
subroutine mfdiar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
subroutine mfdnpn(fid, fname, numdt, numit, etype, gtype, pname, stm, psize, lname, nip, n, cret)
subroutine mfdoir(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
subroutine mfdnfd(fid, n, cret)
subroutine mfdrar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
subroutine mfdnfc(fid, ind, n, cret)
subroutine mfdonp(fid, fname, numdt, numit, etype, gtype, it, mname, dpname, dlname, n, cret)
subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
subroutine mfdiaw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
subroutine mfdnva(fid, fname, numdt, numit, etype, gtype, n, cret)
subroutine mfdnvp(fid, fname, numdt, numit, etype, gtype, pit, stm, pname, psize, lname, nip, n, cret)
subroutine mfdinw(fid, fname, iname, cret)