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,