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)
179 subroutine mfdnfd(fid,n,cret)
201 subroutine mfdnfc(fid,ind,n,cret)
223 subroutine mfdncn(fid,fname,n,cret)
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)
459 subroutine mfdrvr(fid,fname,numdt,numit,
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)
480 subroutine mfdivr(fid,fname,numdt,numit,
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)
501 subroutine mfdrpr(fid,fname,numdt,numit,
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)
524 subroutine mfdipr(fid,fname,numdt,numit,
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)
547 subroutine mfdrar(fid,fname,numdt,numit,
559 integer cret,etype,gtype
562 cret = mfdfrar(fid,fname,len(fname),numdt,numit,
563 & etype,gtype,flt,val)
570 subroutine mfdiar(fid,fname,numdt,numit,
582 integer cret,etype,gtype
585 cret = mfdfiar(fid,fname,len(fname),numdt,numit,
586 & etype,gtype,flt,val)
593 subroutine mfdinw(fid,fname,iname,cret)
598 character*(*) fname,iname
603 cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
610 subroutine mfdnin(fid,fname,n,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,
733 subroutine mfdorr(fid,fname,numdt,numit,
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)
758 subroutine mfdoir(fid,fname,numdt,numit,
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 mfdnpn(fid, fname, numdt, numit, etype, gtype, pname, stm, psize, lname, nip, n, cret)
subroutine mfdrvr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
subroutine mfdrpw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
subroutine mfdonp(fid, fname, numdt, numit, etype, gtype, it, mname, dpname, dlname, n, cret)
subroutine mfdfdi(fid, it, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
subroutine mfdcmi(fid, fname, it, numdt, numit, dt, mnumdt, mnumit, cret)
subroutine mfdipw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
subroutine mfdnvp(fid, fname, numdt, numit, etype, gtype, pit, stm, pname, psize, lname, nip, n, cret)
subroutine mfdcmw(fid, fname, numdt, numit, mnumdt, mnumit, cret)
subroutine mfdrvw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
subroutine mfdivw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
subroutine mfdorr(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
subroutine mfdfin(fid, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
subroutine mfdinw(fid, fname, iname, cret)
subroutine mfdoir(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
subroutine mfdnva(fid, fname, numdt, numit, etype, gtype, n, cret)
subroutine mfdiaw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
subroutine mfdnfc(fid, ind, n, cret)
subroutine mfdipr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
subroutine mfdivr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
subroutine mfdrar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
subroutine mfdncn(fid, fname, n, cret)
subroutine mfdoci(fid, fname, it, numdt, numit, dt, nmesh, mname, lmesh, mnumdt, mnumit, cret)
subroutine mfdnin(fid, fname, n, cret)
subroutine mfdini(fid, fname, it, iname, cret)
subroutine mfdnfd(fid, n, cret)
subroutine mfdrpr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
subroutine mfdraw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
subroutine mfdnpf(fid, fname, numdt, numit, etype, gtype, dpname, dlname, n, cret)
subroutine mfdcre(fid, fname, ftype, ncomp, cname, cunit, dtunit, mname, cret)
subroutine mfdiar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
subroutine mfdonv(fid, fname, numdt, numit, etype, gtype, mname, pit, stm, pname, psize, lname, nip, n, cret)