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)