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
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
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
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
1372 cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhgtw(fid, name, gtype, cret)
subroutine mmhnmh(fid, n, cret)
subroutine mmhasw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhypr(fid, name, numdt, numit, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
subroutine mmhiaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhcpr(fid, name, numdt, numit, stm, pname, swm, dim, coo, cret)
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
subroutine mmhnax(fid, it, naxis, cret)
subroutine mmhypw(fid, name, numdt, numit, dt, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
subroutine mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
subroutine mmhunw(fid, name, cret)
subroutine mmhtfr(fid, name, numdt, numit, tsf, cret)
subroutine mmhcsi(fid, name, csit, numdt, numit, dt, cret)
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhcaw(fid, name, numdt, numit, dt, flt, coo, cret)
subroutine mmhphw(fid, name, numdt, numit, dt, entype, cmode, fisize, findex, nisize, nindex, con, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
subroutine mmhsar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
subroutine mmhasr(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhaaw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhnan(fid, name, naxis, cret)
subroutine mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
subroutine mmhstr(fid, name, stype, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhsaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhcsr(fid, name, numdt, numit, dt, cret)
subroutine mmhyaw(fid, name, numdt, numit, dt, entype, geotype, cmode, flt, con, cret)
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhphr(fid, name, numdt, numit, entype, cmode, findex, nindex, 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 mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhcpw(fid, name, numdt, numit, dt, stm, pname, swm, dim, n, coo, cret)
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhnep(fid, name, numdt, numit, entype, geotype, datype, cmode, stmode, pname, psize, chgt, tsf, n, cret)
subroutine mmhcsc(fid, name, numdt1, numit1, numdt2, numit2, dt2, cret)
subroutine mmhgcr(fid, name, numdt, numit, axis, index, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mmhraw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhgsw(fid, name, numdt, numit, dt, st, cret)
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
subroutine mmhrar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhiar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhgsr(fid, name, numdt, numit, st, cret)
subroutine mmhgtr(fid, name, gtype, cret)
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
subroutine mmhtfw(fid, name, numdt, numit, dt, tsf, cret)
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
subroutine mmhunr(fid, mname, uname, cret)
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)