20       subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,  argument
26       character*(*) fname,cname,cunit,dtunit,mname
31       cret = mfdfcre(fid,fname,len(fname),ftype,
40       subroutine mfdrvw(fid,fname,numdt,numit,dt,  argument
46       character*(*) fname
53       cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
61       subroutine mfdivw(fid,fname,numdt,numit,dt,  argument
67       character*(*) fname
75       cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
83       subroutine mfdrpw(fid,fname,numdt,numit,dt,  argument
91       character*(*) fname,pname,lname
98       cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
107       subroutine mfdipw(fid,fname,numdt,numit,dt,  argument
115       character*(*) fname,pname,lname
123       cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
132       subroutine mfdraw(fid,fname,numdt,numit,dt,  argument
139       character*(*) fname,lname
147       cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
155       subroutine mfdiaw(fid,fname,numdt,numit,dt,  argument
162       character*(*) fname,lname
171       cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
223       subroutine mfdncn(fid,fname,n,cret)  argument
230       character *(*) fname
233       n = mfdfncn(fid,fname,len(fname))
246       subroutine mfdfdi(fid, it, fname, mname, lmesh, type,   argument
253       character *(*) fname, mname, dtunit, cname, cunit
259       cret = mfdffdi(fid, it, fname, mname, lmesh, type,
268       subroutine mfdfin(fid, fname, mname, lmesh, type,   argument
275       character *(*) fname, mname, dtunit, cname, cunit
281       cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
289       subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)  argument
295       character*(*) fname
302       cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
309       subroutine mfdcmi(fid, fname, it, numdt, numit, dt,   argument
316       character*(*) fname
323       cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
331       subroutine mfdcmw(fid, fname, numdt, numit,  argument
338       character*(*) fname
344       cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
352       subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,  argument
361       character*(*) fname,dpname,dlname
365       n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
379       subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)  argument
384       character*(*) fname
389       n = mfdfnva(fid,fname,len(fname),numdt,numit,
403       subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,  argument
410       character*(*) fname, pname, lname
416       n = mfdfnvp(fid,fname,len(fname),numdt,numit,
431       subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,  argument
438       character*(*) fname, pname, lname
444       n = mfdfnpn(fid,fname,len(fname),numdt,numit,
459       subroutine mfdrvr(fid,fname,numdt,numit,  argument
465       character*(*) fname
472       cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
480       subroutine mfdivr(fid,fname,numdt,numit,  argument
486       character*(*) fname
493       cret = mfdfivr(fid,fname,len(fname),numdt,numit,
501       subroutine mfdrpr(fid,fname,numdt,numit,  argument
509       character*(*) fname,pname
516       cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
524       subroutine mfdipr(fid,fname,numdt,numit,  argument
532       character*(*) fname,pname
539       cret = mfdfipr(fid,fname,len(fname),numdt,numit,
547       subroutine mfdrar(fid,fname,numdt,numit,  argument
554       character*(*) fname
562       cret = mfdfrar(fid,fname,len(fname),numdt,numit,
570       subroutine mfdiar(fid,fname,numdt,numit,  argument
577       character*(*) fname
585       cret = mfdfiar(fid,fname,len(fname),numdt,numit,
593       subroutine mfdinw(fid,fname,iname,cret)  argument
598       character*(*) fname,iname
603       cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
610       subroutine mfdnin(fid,fname,n,cret)  argument
617       character*(*) fname
620       n = mfdfnin(fid,fname,len(fname))
633       subroutine mfdini(fid,fname,it,iname,cret)  argument
638       character*(*) fname,iname
643       cret = mfdfini(fid,fname,len(fname),it,iname,cret)
650       subroutine mfdoci(fid, fname, it, numdt, numit, dt,   argument
658       character*(*) fname,mname
666       cret = mfdfoci(fid,fname,len(fname),it,
676       subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,  argument
685       character*(*) fname,dpname,dlname,mname
689       n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
703       subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,  argument
710       character*(*) fname, pname, lname, mname
716       n = mfdfonv(fid,fname,len(fname),numdt,numit,
733       subroutine mfdorr(fid,fname,numdt,numit,  argument
742       character*(*) fname,pname,mname
749       cret = mfdforr(fid,fname,len(fname),numdt,numit,
758       subroutine mfdoir(fid,fname,numdt,numit,  argument
767       character*(*) fname,pname,mname
774       cret = mfdfoir(fid,fname,len(fname),numdt,numit,