18 subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit,
19 & stype, atype, aname, aunit, cret)
25 character *(*) name, desc, dtunit, aname, aunit
27 integer sdim, mdim, mtype, stype, atype, cret
30 cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype,
31 & desc, len(desc), dtunit, len(dtunit),
32 & stype, atype, aname, 16*sdim,
40 subroutine mmhnmh( fid , n , cret)
63 subroutine mmhnax( fid , it, naxis, cret)
73 naxis = mmhfnax(fid,it)
85 subroutine mmhnan( fid , name, naxis, cret)
96 naxis = mmhfnan(fid,name,len(name))
108 subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit,
109 & stype, nstep, atype, aname, aunit, cret)
115 character *(*) name, desc, dtunit, aname, aunit
117 integer sdim, mdim, mtype, stype, atype, cret, nstep, it
120 cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
121 & stype, nstep, atype, aname, aunit)
128 subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit,
129 & stype, nstep, atype, aname, aunit, cret)
135 character *(*) name, desc, dtunit, aname, aunit
137 integer sdim, mdim, mtype, stype, atype, cret, nstep
140 cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
141 & dtunit, stype, nstep, atype, aname, aunit)
149 subroutine mmhunw( fid , name, cret)
160 cret = mmhfunw(fid,name,len(name))
167 subroutine mmhunr( fid , mname, uname, cret)
179 cret = mmhfunr(fid,mname,len(mname),uname)
186 subroutine mmhatw( fid , name, nin, nvn, nnc, cret)
193 integer cret,nin,nvn,nnc
197 cret = mmhfatw(fid,name,len(name), nin, nvn, nnc)
204 subroutine mmhatr( fid , name, nin, nvn, nnc, cret)
211 integer cret,nin,nvn,nnc
215 cret = mmhfatr(fid,name,len(name), nin, nvn, nnc)
222 subroutine mmhgtw( fid , name, gtype, cret)
233 cret = mmhfgtw(fid,name,len(name), gtype)
240 subroutine mmhgtr( fid , name, gtype, cret)
251 cret = mmhfgtr(fid,name,len(name), gtype)
258 subroutine mmhgsw( fid , name, numdt, numit, dt, st, cret)
265 integer cret,numdt, numit
271 cret = mmhfgsw(fid,name,len(name), numdt, numit, dt, st)
278 subroutine mmhgsr( fid , name, numdt, numit, st, cret)
285 integer cret,numdt, numit
290 cret = mmhfgsr(fid,name,len(name), numdt, numit, st)
297 subroutine mmhcow( fid , name, numdt, numit, dt,
305 integer cret,numdt,numit,n,swm
311 cret = mmhfcow(fid,name,len(name),numdt,numit,dt,swm,n,coo)
318 subroutine mmhcor( fid , name, numdt, numit,
326 integer cret,numdt,numit,swm
331 cret = mmhfcor(fid,name,len(name),numdt,numit,swm,coo)
338 subroutine mmhcpw( fid , name, numdt, numit, dt,
339 & stm, pname, swm, dim, n, coo, cret)
346 integer cret,numdt,numit,n,swm,stm,dim
348 character *(*) name, pname
352 cret = mmhfcpw(fid,name,len(name),numdt,numit,dt,stm,
353 & pname,len(pname),swm,dim,n,coo)
360 subroutine mmhcpr( fid , name, numdt, numit,
361 & stm, pname, swm, dim, coo, cret)
368 integer cret,numdt,numit,swm,stm,dim
369 character *(*) name, pname
373 cret = mmhfcpr(fid,name,len(name),numdt,numit,stm,
374 & pname,len(pname),swm,dim,coo)
381 subroutine mmhgcw( fid , name, numdt, numit, dt,
382 & axis, size, index, cret)
389 integer cret,numdt,numit,axis,size
395 cret = mmhfgcw(fid,name,len(name),numdt,numit,dt,axis,
size,index)
402 subroutine mmhgcr( fid , name, numdt, numit,
410 integer cret,numdt,numit,axis
415 cret = mmhfgcr(fid,name,len(name),numdt,numit,axis,index)
422 subroutine mmhenw(fid,name,numdt,numit,entype,geotype,
430 integer cret,numdt, numit,n,entype,geotype
435 cret = mmhfenw(fid,name,len(name),numdt,numit,entype,geotype,
443 subroutine mmhenr(fid,name,numdt,numit,entype,geotype,
451 integer cret,numdt, numit,entype,geotype
456 cret = mmhfenr(fid,name,len(name),numdt,numit,entype,geotype,
464 subroutine mmhfnw(fid,name,numdt,numit,entype,geotype,
472 integer cret,numdt, numit,n,entype,geotype
477 cret = mmhffnw(fid,name,len(name),numdt,numit,entype,geotype,
485 subroutine mmhfnr(fid,name,numdt,numit,entype,geotype,
493 integer cret,numdt, numit,entype,geotype
498 cret = mmhffnr(fid,name,len(name),numdt,numit,entype,geotype,
506 subroutine mmheaw(fid,mname,numdt,numit,entype,geotype,
516 integer numdt, numit, entype, geotype, n, cret
519 cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
520 & geotype,n,ename,16*n)
527 subroutine mmhear(fid,mname,numdt,numit,entype,geotype,
537 integer numdt, numit, entype, geotype, cret
540 cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
548 subroutine mmhnme(fid,name,numdt,numit,
549 & entype,geotype,datype,cmode,
558 integer numdt,numit,entype,geotype,datype,cret
559 integer cmode,chgt,tsf,n
562 n = mmhfnme(fid,name,len(name),numdt,numit,entype,geotype,
563 & datype,cmode,chgt,tsf)
576 subroutine mmhcyw(fid,name,numdt,numit,dt,entype,geotype,
577 & cmode,swm,n,con,cret)
584 integer cret,numdt,numit,n,entype,geotype,swm,cmode
590 cret = mmhfcyw(fid,name,len(name),numdt,numit,dt,entype,geotype,
598 subroutine mmhcyr(fid,name,numdt,numit,entype,geotype,
599 & cmode,swm,con,cret)
606 integer cret,numdt,numit,entype,geotype,swm,cmode
611 cret = mmhfcyr(fid,name,len(name),numdt,numit,entype,geotype,
619 subroutine mmhypw(fid,name,numdt,numit,dt,entype,geotype,
620 & cmode,stmode,pname,swm,dim,n,con,cret)
627 integer cret,numdt,numit,n,entype,geotype,swm
628 integer cmode,stmode,dim
635 cret = mmhfypw(fid,name,len(name),numdt,numit,dt,entype,geotype,
636 & cmode,stmode,pname,len(pname),swm,dim,n,con)
643 subroutine mmhypr(fid,name,numdt,numit,entype,geotype,
644 & cmode,stmode,pname,swm,dim,n,con,cret)
651 integer cret,numdt,numit,entype,geotype,swm
652 integer cmode,n,stmode,dim
658 cret = mmhfypr(fid,name,len(name),numdt,numit,entype,geotype,
659 & cmode,stmode,pname,swm,dim,n,con)
666 subroutine mmhnep(fid,name,numdt,numit,
667 & entype,geotype,datype,cmode,
668 & stmode,pname,psize,
678 integer numdt,numit,entype,geotype,datype,cret
679 integer cmode,chgt,tsf,n,stmode,psize
683 n = mmhfnep(fid,name,len(name),numdt,numit,entype,geotype,
684 & datype,cmode,stmode,pname,psize,chgt,tsf)
698 subroutine mmhnor(fid , name, numdt, numit,
699 & swm, coo, iname, nname, inum, num,
706 integer cret,numdt,numit,swm
710 integer num(*),fam(*)
711 integer iname,inum,ifam
714 cret = mmhfnor(fid,name,len(name),numdt,numit,swm,coo,
715 & iname,nname,inum,num,ifam,fam)
723 subroutine mmhnow(fid, name, numdt, numit, dt,
724 & swm, n, coo, iname, nname, inum, num,
732 integer cret,numdt,numit,swm,n
736 integer num(*),fam(*)
737 integer iname,inum,ifam
740 cret = mmhfnow(fid,name,len(name),numdt,numit,dt,swm,n,coo,
741 & iname,nname,16*n,inum,num,ifam,fam)
748 subroutine mmhelw(fid,name,numdt,numit,dt,entype,geotype,
749 & cmode,swm,n,con,iname, nname, inum, num,
757 integer cret,numdt,numit,n,entype,geotype,swm,cmode
762 integer iname,inum,ifam
763 integer num(*),fam(*)
766 cret = mmhfelw(fid,name,len(name),numdt,numit,dt,entype,geotype,
768 & iname,nname,16*n,inum,num,ifam,fam)
775 subroutine mmhelr(fid,name,numdt,numit,entype,geotype,
776 & cmode,swm,con,iname, nname, inum, num,
784 integer cret,numdt,numit,entype,geotype,swm,cmode
788 integer iname,inum,ifam
789 integer num(*),fam(*)
792 cret = mmhfelr(fid,name,len(name),numdt,numit,entype,geotype,
793 & cmode,swm,con,iname,nname,inum,num,ifam,fam)
800 subroutine mmhcaw( fid , name, numdt, numit, dt,
808 integer cret,numdt,numit
815 cret = mmhfcaw(fid,name,len(name),numdt,numit,dt,flt,coo)
822 subroutine mmhcar(fid , name, numdt, numit,
830 integer cret,numdt,numit
836 cret = mmhfcar(fid,name,len(name),numdt,numit,flt,coo)
843 subroutine mmhyaw(fid,name,numdt,numit,dt,entype,geotype,
844 & cmode,flt,con,cret)
851 integer cret,numdt,numit,entype,geotype,cmode
858 cret = mmhfyaw(fid,name,len(name),numdt,numit,dt,entype,geotype,
866 subroutine mmhyar(fid,name,numdt,numit,entype,geotype,
867 & cmode,flt,con,cret)
874 integer cret,numdt,numit,entype,geotype,cmode
880 cret = mmhfyar(fid,name,len(name),numdt,numit,entype,geotype,
888 subroutine mmhpgw(fid,name,numdt,numit,dt,entype,
889 & cmode,isize,index,con,cret)
896 integer cret,numdt,numit,isize,entype,cmode
898 integer con(*), index(*)
902 cret = mmhfpgw(fid,name,len(name),numdt,numit,dt,entype,
903 & cmode,isize,index,con)
910 subroutine mmhpgr(fid,name,numdt,numit,entype,
911 & cmode,index,con,cret)
918 integer cret,numdt,numit,entype,cmode
920 integer con(*), index(*)
923 cret = mmhfpgr(fid,name,len(name),numdt,numit,entype,
931 subroutine mmhphw(fid,name,numdt,numit,dt,entype,
932 & cmode,fisize,findex,nisize,nindex,con,cret)
939 integer cret,numdt,numit,fisize,nisize,entype,cmode
941 integer con(*), findex(*), nindex(*)
945 cret = mmhfphw(fid,name,len(name),numdt,numit,dt,entype,
946 & cmode,fisize,findex,nisize,nindex,con)
953 subroutine mmhphr(fid,name,numdt,numit,entype,
954 & cmode,findex,nindex,con,cret)
961 integer cret,numdt,numit,entype,cmode
963 integer con(*), findex(*), nindex(*)
966 cret = mmhfphr(fid,name,len(name),numdt,numit,entype,
967 & cmode,findex,nindex,con)
974 subroutine mmhgnw(fid,name,numdt,numit,entype,geotype,
982 integer cret,numdt, numit,n,entype,geotype
987 cret = mmhfgnw(fid,name,len(name),numdt,numit,entype,geotype,
995 subroutine mmhgnr(fid,name,numdt,numit,entype,geotype,
1003 integer cret,numdt, numit,entype,geotype
1008 cret = mmhfgnr(fid,name,len(name),numdt,numit,entype,geotype,
1016 subroutine mmhcsc(fid,name,numdt1,numit1,numdt2,numit2,
1024 integer cret,numdt1,numit1,numdt2,numit2
1029 cret = mmhfcsc(fid,name,len(name),numdt1,numit1,
1030 & numdt2,numit2,dt2)
1037 subroutine mmhcsi(fid,name,csit,numdt,numit,dt,cret)
1044 integer cret,numdt,numit,csit
1049 cret = mmhfcsi(fid,name,len(name),csit,numdt,numit,dt)
1056 subroutine mmhcsr(fid,name,numdt,numit,dt,cret)
1063 integer cret,numdt,numit
1068 cret = mmhfcsr(fid,name,len(name),numdt,numit,dt)
1075 subroutine mmhstr(fid,name,stype,cret)
1086 cret = mmhfstr(fid,name,len(name),stype)
1093 subroutine mmhraw(fid,name,numdt,numit,
1101 character *(*) name,aname
1103 integer numdt,numit,geotype,cret
1108 cret = mmhfraw(fid,name,len(name),numdt,numit,geotype,
1109 & aname,len(aname),n,val)
1116 subroutine mmhiaw(fid,name,numdt,numit,
1124 character *(*) name,aname
1126 integer numdt,numit,geotype,cret
1131 cret = mmhfiaw(fid,name,len(name),numdt,numit,geotype,
1132 & aname,len(aname),n,val)
1139 subroutine mmhsaw(fid,name,numdt,numit,
1147 character *(*) name,aname
1149 integer numdt,numit,geotype,cret
1154 cret = mmhfsaw(fid,name,len(name),numdt,numit,geotype,
1155 & aname,len(aname),n,val,64*n)
1162 subroutine mmhrar(fid,name,numdt,numit,
1170 character *(*) name,aname
1172 integer numdt,numit,geotype,cret
1176 cret = mmhfrar(fid,name,len(name),numdt,numit,geotype,
1177 & aname,len(aname),val)
1184 subroutine mmhiar(fid,name,numdt,numit,
1185 & geotype,aname,val,cret)
1191 character *(*) name,aname
1193 integer numdt,numit,geotype,cret
1197 cret = mmhfiar(fid,name,len(name),numdt,numit,geotype,
1198 & aname,len(aname),val)
1205 subroutine mmhsar(fid,name,numdt,numit,
1206 & geotype,aname,val,cret)
1212 character *(*) name,aname
1214 integer numdt,numit,geotype,cret
1219 cret = mmhfsar(fid,name,len(name),numdt,numit,geotype,
1220 & aname,len(aname),val)
1227 subroutine mmheni(fid,name,numdt,numit,entype,it,
1228 & geoname,geotype,cret)
1235 integer cret,numdt,numit,entype,geotype,it
1236 character *(*) name, geoname
1239 cret = mmhfeni(fid,name,len(name),numdt,numit,entype,
1240 & it,geoname,geotype)
1247 subroutine mmhtfw( fid , name, numdt, numit, dt,
1255 integer cret,numdt,numit
1261 cret = mmhftfw(fid,name,len(name),numdt,numit,dt,tsf)
1268 subroutine mmhtfr( fid , name, numdt, numit,
1276 integer cret,numdt,numit
1281 cret = mmhftfr(fid,name,len(name),numdt,numit,tsf)
1288 subroutine mmhaaw(fid,mname,dtype,numdt,numit,entype,geotype,
1295 character *(*) mname
1298 integer numdt,numit,entype,geotype
1299 integer dtype,n,cret
1303 cret = mmhfaaw(fid,mname,len(mname),dtype,numdt,numit,entype,
1311 subroutine mmhaar(fid,mname,dtype,numdt,numit,entype,geotype,
1318 character *(*) mname
1321 integer numdt,numit,entype,geotype
1322 integer dtype,n,cret
1326 cret = mmhfaar(fid,mname,len(mname),dtype,numdt,numit,entype,
1334 subroutine mmhasw(fid,mname,dtype,numdt,numit,entype,geotype,
1341 character *(*) mname
1344 integer numdt,numit,entype,geotype
1345 integer dtype,n,cret
1349 cret = mmhfasw(fid,mname,len(mname),dtype,numdt,numit,entype,
1357 subroutine mmhasr(fid,mname,dtype,numdt,numit,entype,geotype,
1364 character *(*) mname
1367 integer numdt,numit,entype,geotype
1368 integer dtype,n,cret
1372 cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
subroutine mmhcsc(fid, name, numdt1, numit1, numdt2, numit2, dt2, cret)
subroutine mmhphr(fid, name, numdt, numit, entype, cmode, findex, nindex, con, cret)
subroutine mmhnan(fid, name, naxis, cret)
subroutine mmhgsw(fid, name, numdt, numit, dt, st, cret)
subroutine mmhunr(fid, mname, uname, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhgtw(fid, name, gtype, cret)
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mmhasr(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
subroutine mmhgtr(fid, name, gtype, cret)
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhyaw(fid, name, numdt, numit, dt, entype, geotype, cmode, flt, con, cret)
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
subroutine mmhcaw(fid, name, numdt, numit, dt, flt, coo, cret)
subroutine mmhunw(fid, name, cret)
subroutine mmhcpw(fid, name, numdt, numit, dt, stm, pname, swm, dim, n, coo, cret)
subroutine mmhstr(fid, name, stype, cret)
subroutine mmhypr(fid, name, numdt, numit, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
subroutine mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhgsr(fid, name, numdt, numit, st, cret)
subroutine mmhrar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhasw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhiaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
subroutine mmhaar(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmheni(fid, name, numdt, numit, entype, it, geoname, geotype, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mmhypw(fid, name, numdt, numit, dt, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
subroutine mmhphw(fid, name, numdt, numit, dt, entype, cmode, fisize, findex, nisize, nindex, con, cret)
subroutine mmhcsi(fid, name, csit, numdt, numit, dt, cret)
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
subroutine mmhcsr(fid, name, numdt, numit, dt, cret)
subroutine mmhtfr(fid, name, numdt, numit, tsf, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhgcr(fid, name, numdt, numit, axis, index, cret)
subroutine mmhnep(fid, name, numdt, numit, entype, geotype, datype, cmode, stmode, pname, psize, chgt, tsf, n, cret)
subroutine mmhiar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhsaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhnmh(fid, n, cret)
subroutine mmhaaw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhsar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
subroutine mmhraw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
subroutine mmhnax(fid, it, naxis, cret)
subroutine mmhtfw(fid, name, numdt, numit, dt, tsf, cret)
subroutine mmhcpr(fid, name, numdt, numit, stm, pname, swm, dim, coo, cret)
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)