00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018       subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit,
00019      &                  stype, atype, aname, aunit, cret)
00020 
00021 
00022       implicit none
00023       save
00024 
00025       character *(*) name, desc, dtunit, aname, aunit
00026       integer fid, sdim, mdim, mtype, stype, atype, cret
00027       integer mmhfcre
00028 
00029       cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype, 
00030      &               desc, len(desc), dtunit, len(dtunit),
00031      &               stype, atype, aname, 16*sdim, 
00032      &               aunit, 16*sdim)
00033 
00034       return
00035       end
00036 
00037 
00038 
00039       subroutine mmhnmh( fid , n , cret)
00040 
00041 
00042       implicit none
00043       save
00044 
00045       integer fid, n, cret
00046       integer mmhfnmh 
00047 
00048       n = mmhfnmh(fid)
00049 
00050       if (n.lt.0) then
00051          cret = -1
00052       else
00053          cret = 0
00054       endif
00055 
00056       return
00057       end
00058 
00059 
00060 
00061       subroutine mmhnax( fid , it, naxis, cret)
00062 
00063 
00064       implicit none
00065       save
00066 
00067       integer fid,it,naxis,cret
00068       integer mmhfnax
00069 
00070       naxis =  mmhfnax(fid,it)
00071 
00072       if (naxis.lt.0) then
00073          cret = -1
00074       else
00075          cret = 0
00076       endif
00077       return
00078       end
00079 
00080 
00081 
00082       subroutine  mmhnan( fid , name, naxis, cret)
00083 
00084 
00085       implicit none
00086       save
00087 
00088       integer fid,naxis,cret
00089       character *(*) name
00090       integer mmhfnan
00091 
00092       naxis = mmhfnan(fid,name,len(name))
00093 
00094       if (naxis.lt.0) then
00095          cret = -1
00096       else
00097          cret = 0
00098       endif
00099       return
00100       end
00101 
00102 
00103 
00104       subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit,
00105      &                  stype, nstep, atype, aname, aunit, cret)
00106 
00107 
00108       implicit none
00109       save
00110 
00111       character *(*) name, desc, dtunit, aname, aunit
00112       integer fid, sdim, mdim, mtype, stype, atype, cret, nstep, it
00113       integer mmhfmhi 
00114 
00115       cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
00116      &               stype, nstep, atype, aname, aunit)
00117 
00118       return
00119       end
00120 
00121 
00122 
00123       subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit,
00124      &                  stype, nstep, atype, aname, aunit, cret)
00125 
00126 
00127       implicit none
00128       save
00129 
00130       character *(*) name, desc, dtunit, aname, aunit
00131       integer fid, sdim, mdim, mtype, stype, atype, cret, nstep
00132       integer mmhfmin 
00133 
00134       cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
00135      &               dtunit, stype, nstep, atype, aname, aunit)
00136 
00137       return
00138       end
00139 
00140 
00141 
00142 
00143       subroutine  mmhunw( fid , name, cret)
00144 
00145 
00146       implicit none
00147       save
00148 
00149       integer fid,cret
00150       character *(*) name
00151       integer mmhfunw
00152 
00153       cret = mmhfunw(fid,name,len(name))
00154 
00155       return
00156       end
00157 
00158 
00159 
00160       subroutine  mmhunr( fid , mname, uname, cret)
00161 
00162 
00163       implicit none
00164       save
00165 
00166       integer fid,cret
00167       character *(*) uname
00168       character *(*) mname
00169       integer mmhfunr
00170 
00171       cret = mmhfunr(fid,mname,len(mname),uname)
00172 
00173       return
00174       end
00175 
00176 
00177 
00178       subroutine  mmhatw( fid , name, nin, nvn, nnc, cret)
00179 
00180 
00181       implicit none
00182       save
00183 
00184       integer fid,cret,nin,nvn,nnc
00185       character *(*) name
00186       integer mmhfatw
00187 
00188       cret = mmhfatw(fid,name,len(name), nin, nvn, nnc)
00189 
00190       return
00191       end
00192 
00193 
00194 
00195       subroutine  mmhatr( fid , name, nin, nvn, nnc, cret)
00196 
00197 
00198       implicit none
00199       save
00200 
00201       integer fid,cret,nin,nvn,nnc
00202       character *(*) name
00203       integer mmhfatr
00204 
00205       cret = mmhfatr(fid,name,len(name), nin, nvn, nnc)
00206 
00207       return
00208       end
00209 
00210 
00211 
00212       subroutine  mmhgtw( fid , name, gtype, cret)
00213 
00214 
00215       implicit none
00216       save
00217 
00218       integer fid,cret,gtype
00219       character *(*) name
00220       integer mmhfgtw
00221 
00222       cret = mmhfgtw(fid,name,len(name), gtype)
00223 
00224       return
00225       end
00226 
00227 
00228 
00229       subroutine  mmhgtr( fid , name, gtype, cret)
00230 
00231 
00232       implicit none
00233       save
00234 
00235       integer fid,cret,gtype
00236       character *(*) name
00237       integer mmhfgtr
00238 
00239       cret = mmhfgtr(fid,name,len(name), gtype)
00240 
00241       return
00242       end
00243 
00244 
00245 
00246       subroutine  mmhgsw( fid , name, numdt, numit, dt, st, cret)
00247 
00248 
00249       implicit none
00250       save
00251 
00252       integer fid,cret,numdt, numit
00253       character *(*) name
00254       real*8 dt
00255       integer st( * )
00256       integer mmhfgsw
00257 
00258       cret = mmhfgsw(fid,name,len(name), numdt, numit, dt, st)
00259 
00260       return
00261       end
00262 
00263 
00264 
00265       subroutine mmhgsr( fid , name, numdt, numit, st, cret)
00266 
00267 
00268       implicit none
00269       save
00270 
00271       integer fid,cret,numdt, numit
00272       character *(*) name
00273       integer st(*)
00274       integer mmhfgsr
00275 
00276       cret = mmhfgsr(fid,name,len(name), numdt, numit, st)
00277 
00278       return
00279       end
00280 
00281 
00282 
00283       subroutine  mmhcow( fid , name, numdt, numit, dt, 
00284      &                    swm, n, coo, cret)
00285 
00286 
00287       implicit none
00288       save
00289 
00290       integer fid,cret,numdt,numit,n,swm
00291       real*8 dt
00292       character *(*) name
00293       real*8 coo(*)
00294       integer mmhfcow
00295 
00296       cret = mmhfcow(fid,name,len(name),numdt,numit,dt,swm,n,coo)
00297 
00298       return
00299       end
00300 
00301 
00302 
00303       subroutine  mmhcor( fid , name, numdt, numit,
00304      &                    swm, coo, cret)
00305 
00306 
00307       implicit none
00308       save
00309 
00310       integer fid,cret,numdt,numit,swm
00311       character *(*) name
00312       real*8 coo(*)
00313       integer mmhfcor
00314 
00315       cret = mmhfcor(fid,name,len(name),numdt,numit,swm,coo)
00316 
00317       return
00318       end
00319 
00320 
00321 
00322       subroutine  mmhcpw( fid , name, numdt, numit, dt, 
00323      &                    stm, pname, swm, dim, n, coo, cret)
00324 
00325 
00326       implicit none
00327       save
00328 
00329       integer fid,cret,numdt,numit,n,swm,stm,dim
00330       real*8 dt
00331       character *(*) name, pname
00332       real*8 coo(*)
00333       integer mmhfcpw
00334 
00335       cret = mmhfcpw(fid,name,len(name),numdt,numit,dt,stm,
00336      &               pname,len(pname),swm,dim,n,coo)
00337 
00338       return
00339       end
00340 
00341 
00342 
00343       subroutine  mmhcpr( fid , name, numdt, numit,
00344      &                    stm, pname, swm, dim, coo, cret)
00345 
00346 
00347       implicit none
00348       save
00349 
00350       integer fid,cret,numdt,numit,swm,stm,dim
00351       character *(*) name, pname
00352       real*8 coo(*)
00353       integer mmhfcpr
00354 
00355       cret = mmhfcpr(fid,name,len(name),numdt,numit,stm,
00356      &               pname,len(pname),swm,dim,coo)
00357 
00358       return
00359       end
00360 
00361 
00362 
00363       subroutine  mmhgcw( fid , name, numdt, numit, dt, 
00364      &                    axis, size, index, cret)
00365 
00366 
00367       implicit none
00368       save
00369 
00370       integer fid,cret,numdt,numit,axis,size
00371       real*8 dt
00372       character *(*) name
00373       real*8 index(*)
00374       integer mmhfgcw
00375 
00376       cret = mmhfgcw(fid,name,len(name),numdt,numit,dt,axis,size,index)
00377 
00378       return
00379       end
00380 
00381 
00382 
00383       subroutine  mmhgcr( fid , name, numdt, numit, 
00384      &                    axis, index, cret)
00385 
00386 
00387       implicit none
00388       save
00389 
00390       integer fid,cret,numdt,numit,axis
00391       character *(*) name
00392       real*8 index(*)
00393       integer mmhfgcr
00394 
00395       cret = mmhfgcr(fid,name,len(name),numdt,numit,axis,index)
00396 
00397       return
00398       end
00399 
00400 
00401 
00402       subroutine  mmhenw(fid,name,numdt,numit,entype,geotype, 
00403      &                   n,num,cret)
00404 
00405 
00406       implicit none
00407       save
00408 
00409       integer fid,cret,numdt, numit,n,entype,geotype
00410       character *(*) name
00411       integer num(*)
00412       integer mmhfenw
00413 
00414       cret = mmhfenw(fid,name,len(name),numdt,numit,entype,geotype,
00415      &               n,num)
00416 
00417       return
00418       end
00419 
00420 
00421 
00422       subroutine  mmhenr(fid,name,numdt,numit,entype,geotype, 
00423      &                   num,cret)
00424 
00425 
00426       implicit none
00427       save
00428 
00429       integer fid,cret,numdt, numit,entype,geotype
00430       character *(*) name
00431       integer num(*)
00432       integer mmhfenr
00433 
00434       cret = mmhfenr(fid,name,len(name),numdt,numit,entype,geotype,
00435      &               num)
00436 
00437       return
00438       end
00439 
00440 
00441 
00442       subroutine  mmhfnw(fid,name,numdt,numit,entype,geotype, 
00443      &                   n,num,cret)
00444 
00445 
00446       implicit none
00447       save
00448 
00449       integer fid,cret,numdt, numit,n,entype,geotype
00450       character *(*) name
00451       integer num(*)
00452       integer mmhffnw
00453 
00454       cret = mmhffnw(fid,name,len(name),numdt,numit,entype,geotype,
00455      &               n,num)
00456 
00457       return
00458       end
00459 
00460 
00461 
00462       subroutine  mmhfnr(fid,name,numdt,numit,entype,geotype, 
00463      &                   num,cret)
00464 
00465 
00466       implicit none
00467       save
00468 
00469       integer fid,cret,numdt, numit,entype,geotype
00470       character *(*) name
00471       integer num(*)
00472       integer mmhffnr
00473 
00474       cret = mmhffnr(fid,name,len(name),numdt,numit,entype,geotype,
00475      &               num)
00476 
00477       return
00478       end
00479 
00480 
00481 
00482       subroutine mmheaw(fid,mname,numdt,numit,entype,geotype,
00483      &                  n,ename,cret)
00484 
00485 
00486       implicit none
00487       save
00488 
00489       character *(*) mname
00490       character*(*) ename
00491       integer fid, numdt, numit, entype, geotype, n, cret
00492       integer mmhfeaw
00493 
00494       cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
00495      &               geotype,n,ename,16*n)
00496 
00497       return
00498       end
00499 
00500 
00501 
00502       subroutine mmhear(fid,mname,numdt,numit,entype,geotype,
00503      &                  ename,cret)
00504 
00505 
00506       implicit none
00507       save
00508 
00509       character *(*) mname
00510       character*(*) ename
00511       integer fid, numdt, numit, entype, geotype, cret
00512       integer mmhfear
00513 
00514       cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
00515      &               geotype,ename)
00516 
00517       return
00518       end
00519 
00520 
00521 
00522       subroutine mmhnme(fid,name,numdt,numit,
00523      &                  entype,geotype,datype,cmode,
00524      &                  chgt,tsf,n,cret)
00525 
00526 
00527       implicit none
00528       save
00529 
00530       character *(*) name
00531       integer fid,numdt,numit,entype,geotype,datype,cret
00532       integer cmode,chgt,tsf,n
00533       integer mmhfnme
00534 
00535       n =  mmhfnme(fid,name,len(name),numdt,numit,entype,geotype,
00536      &             datype,cmode,chgt,tsf)
00537 
00538       if (n.lt.0) then
00539          cret = -1
00540       else
00541          cret =0
00542       endif
00543 
00544       return
00545       end
00546 
00547 
00548 
00549       subroutine  mmhcyw(fid,name,numdt,numit,dt,entype,geotype, 
00550      &                   cmode,swm,n,con,cret)
00551 
00552 
00553       implicit none
00554       save
00555 
00556       integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
00557       character *(*) name
00558       integer con(*)
00559       real*8 dt
00560       integer mmhfcyw
00561 
00562       cret = mmhfcyw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00563      &               cmode,swm,n,con)
00564 
00565       return
00566       end
00567 
00568 
00569 
00570       subroutine  mmhcyr(fid,name,numdt,numit,entype,geotype, 
00571      &                   cmode,swm,con,cret)
00572 
00573 
00574       implicit none
00575       save
00576 
00577       integer fid,cret,numdt,numit,entype,geotype,swm,cmode
00578       character *(*) name
00579       integer con(*)
00580       integer mmhfcyr
00581 
00582       cret = mmhfcyr(fid,name,len(name),numdt,numit,entype,geotype,
00583      &               cmode,swm,con)
00584 
00585       return
00586       end
00587 
00588 
00589 
00590       subroutine  mmhypw(fid,name,numdt,numit,dt,entype,geotype, 
00591      &                   cmode,stmode,pname,swm,dim,n,con,cret)
00592 
00593 
00594       implicit none
00595       save
00596 
00597       integer fid,cret,numdt,numit,n,entype,geotype,swm
00598       integer cmode,stmode,dim
00599       character *(*) name
00600       character *(*) pname
00601       integer con(*)
00602       real*8 dt
00603       integer mmhfypw
00604 
00605       cret = mmhfypw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00606      &               cmode,stmode,pname,len(pname),swm,dim,n,con)
00607 
00608       return
00609       end
00610 
00611 
00612 
00613       subroutine  mmhypr(fid,name,numdt,numit,entype,geotype, 
00614      &                   cmode,stmode,pname,swm,dim,n,con,cret)
00615 
00616 
00617       implicit none
00618       save
00619 
00620       integer fid,cret,numdt,numit,entype,geotype,swm
00621       integer cmode,n,stmode,dim
00622       character *(*) name
00623       character *(*) pname
00624       integer con(*)
00625       integer mmhfypr
00626 
00627       cret = mmhfypr(fid,name,len(name),numdt,numit,entype,geotype,
00628      &               cmode,stmode,pname,swm,dim,n,con)
00629 
00630       return
00631       end
00632 
00633 
00634 
00635       subroutine mmhnep(fid,name,numdt,numit,
00636      &                  entype,geotype,datype,cmode,
00637      &                  stmode,pname,psize,
00638      &                  chgt,tsf,n,cret)
00639 
00640 
00641       implicit none
00642       save
00643 
00644       character *(*) name
00645       character *(*) pname
00646       integer fid,numdt,numit,entype,geotype,datype,cret
00647       integer cmode,chgt,tsf,n,stmode,psize
00648       integer mmhfnep
00649 
00650       n =  mmhfnep(fid,name,len(name),numdt,numit,entype,geotype,
00651      &             datype,cmode,stmode,pname,psize,chgt,tsf)
00652 
00653       if (n.lt.0) then
00654          cret = -1
00655       else
00656          cret =0
00657       endif
00658 
00659       return
00660       end
00661 
00662 
00663 
00664       subroutine  mmhnor(fid , name, numdt, numit, 
00665      &                   swm, coo, iname, nname, inum, num,
00666      &                   ifam,fam, cret)
00667 
00668       implicit none
00669       save
00670 
00671       integer fid,cret,numdt,numit,swm
00672       character *(*) name
00673       character *(*) nname
00674       real*8 coo(*)
00675       integer num(*),fam(*)
00676       integer iname,inum,ifam
00677       integer mmhfnor
00678 
00679       cret = mmhfnor(fid,name,len(name),numdt,numit,swm,coo,
00680      &               iname,nname,inum,num,ifam,fam)
00681 
00682       return
00683       end
00684 
00685 
00686 
00687 
00688       subroutine  mmhnow(fid, name, numdt, numit, dt,
00689      &                   swm, n, coo, iname, nname, inum, num,
00690      &                   ifam, fam, cret)
00691 
00692 
00693       implicit none
00694       save
00695 
00696       integer fid,cret,numdt,numit,swm,n
00697       character *(*) name
00698       character *(*) nname
00699       real*8 coo(*), dt
00700       integer num(*),fam(*)
00701       integer iname,inum,ifam
00702       integer mmhfnow
00703 
00704       cret = mmhfnow(fid,name,len(name),numdt,numit,dt,swm,n,coo,
00705      &               iname,nname,16*n,inum,num,ifam,fam)
00706 
00707       return
00708       end
00709 
00710 
00711 
00712       subroutine  mmhelw(fid,name,numdt,numit,dt,entype,geotype, 
00713      &                   cmode,swm,n,con,iname, nname, inum, num,
00714      &                   ifam,fam,cret)
00715 
00716 
00717       implicit none
00718       save
00719 
00720       integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
00721       character *(*) name
00722       character *(*) nname
00723       integer con(*)
00724       real*8 dt
00725       integer iname,inum,ifam
00726       integer num(*),fam(*)
00727       integer mmhfelw
00728 
00729       cret = mmhfelw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00730      &               cmode,swm,n,con,
00731      &               iname,nname,16*n,inum,num,ifam,fam)
00732 
00733       return
00734       end
00735 
00736 
00737 
00738       subroutine  mmhelr(fid,name,numdt,numit,entype,geotype, 
00739      &                   cmode,swm,con,iname, nname, inum, num,
00740      &                   ifam,fam,cret)
00741 
00742 
00743       implicit none
00744       save
00745 
00746       integer fid,cret,numdt,numit,entype,geotype,swm,cmode
00747       character *(*) name
00748       character *(*) nname
00749       integer con(*)
00750       integer iname,inum,ifam
00751       integer num(*),fam(*)
00752       integer mmhfelr
00753 
00754       cret = mmhfelr(fid,name,len(name),numdt,numit,entype,geotype,
00755      &               cmode,swm,con,iname,nname,inum,num,ifam,fam)
00756 
00757       return
00758       end
00759 
00760 
00761 
00762       subroutine mmhcaw( fid , name, numdt, numit, dt, 
00763      &                    flt, coo, cret)
00764 
00765 
00766       implicit none
00767       save
00768 
00769       integer fid,cret,numdt,numit
00770       real*8 dt
00771       character *(*) name
00772       real*8 coo(*)
00773       integer*8 flt(*)
00774       integer mmhfcaw
00775 
00776       cret = mmhfcaw(fid,name,len(name),numdt,numit,dt,flt,coo)
00777 
00778       return
00779       end
00780 
00781 
00782 
00783       subroutine  mmhcar(fid , name, numdt, numit,
00784      &                   flt, coo, cret)
00785 
00786 
00787       implicit none
00788       save
00789 
00790       integer fid,cret,numdt,numit
00791       character *(*) name
00792       real*8 coo(*)
00793       integer*8 flt(*)
00794       integer mmhfcar
00795 
00796       cret = mmhfcar(fid,name,len(name),numdt,numit,flt,coo)
00797 
00798       return
00799       end
00800 
00801 
00802 
00803       subroutine  mmhyaw(fid,name,numdt,numit,dt,entype,geotype, 
00804      &                   cmode,flt,con,cret)
00805 
00806 
00807       implicit none
00808       save
00809 
00810       integer fid,cret,numdt,numit,entype,geotype,cmode
00811       character *(*) name
00812       integer con(*)
00813       integer*8 flt(*)
00814       real*8 dt
00815       integer mmhfyaw
00816 
00817       cret = mmhfyaw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00818      &               cmode,flt,con)
00819 
00820       return
00821       end
00822 
00823 
00824 
00825       subroutine  mmhyar(fid,name,numdt,numit,entype,geotype, 
00826      &                   cmode,flt,con,cret)
00827 
00828 
00829       implicit none
00830       save
00831 
00832       integer fid,cret,numdt,numit,entype,geotype,cmode
00833       character *(*) name
00834       integer con(*)
00835       integer*8 flt(*)
00836       integer mmhfyar
00837 
00838       cret = mmhfyar(fid,name,len(name),numdt,numit,entype,geotype,
00839      &               cmode,flt,con)
00840 
00841       return
00842       end
00843 
00844 
00845 
00846       subroutine  mmhpgw(fid,name,numdt,numit,dt,entype,
00847      &                   cmode,isize,index,con,cret)
00848 
00849 
00850       implicit none
00851       save
00852 
00853       integer fid,cret,numdt,numit,isize,entype,cmode
00854       character *(*) name
00855       integer con(*), index(*)
00856       real*8 dt
00857       integer mmhfpgw
00858 
00859       cret = mmhfpgw(fid,name,len(name),numdt,numit,dt,entype,
00860      &               cmode,isize,index,con)
00861 
00862       return
00863       end
00864 
00865 
00866 
00867       subroutine  mmhpgr(fid,name,numdt,numit,entype,
00868      &                   cmode,index,con,cret)
00869 
00870 
00871       implicit none
00872       save
00873 
00874       integer fid,cret,numdt,numit,entype,cmode
00875       character *(*) name
00876       integer con(*), index(*)
00877       integer mmhfpgr
00878 
00879       cret = mmhfpgr(fid,name,len(name),numdt,numit,entype,
00880      &               cmode,index,con)
00881 
00882       return
00883       end
00884 
00885 
00886 
00887       subroutine  mmhphw(fid,name,numdt,numit,dt,entype,
00888      &                   cmode,fisize,findex,nisize,nindex,con,cret)
00889 
00890 
00891       implicit none
00892       save
00893 
00894       integer fid,cret,numdt,numit,fisize,nisize,entype,cmode
00895       character *(*) name
00896       integer con(*), findex(*), nindex(*) 
00897       real*8 dt
00898       integer mmhfphw
00899 
00900       cret = mmhfphw(fid,name,len(name),numdt,numit,dt,entype,
00901      &               cmode,fisize,findex,nisize,nindex,con)
00902 
00903       return
00904       end
00905 
00906 
00907 
00908       subroutine  mmhphr(fid,name,numdt,numit,entype,
00909      &                   cmode,findex,nindex,con,cret)
00910 
00911 
00912       implicit none
00913       save
00914 
00915       integer fid,cret,numdt,numit,entype,cmode
00916       character *(*) name
00917       integer con(*), findex(*), nindex(*) 
00918       integer mmhfphr
00919 
00920       cret = mmhfphr(fid,name,len(name),numdt,numit,entype,
00921      &               cmode,findex,nindex,con)
00922 
00923       return
00924       end
00925 
00926 
00927 
00928       subroutine  mmhgnw(fid,name,numdt,numit,entype,geotype, 
00929      &                   n,num,cret)
00930 
00931 
00932       implicit none
00933       save
00934 
00935       integer fid,cret,numdt, numit,n,entype,geotype
00936       character *(*) name
00937       integer num(*)
00938       integer mmhfgnw
00939 
00940       cret = mmhfgnw(fid,name,len(name),numdt,numit,entype,geotype,
00941      &               n,num)
00942 
00943       return
00944       end
00945 
00946 
00947 
00948       subroutine  mmhgnr(fid,name,numdt,numit,entype,geotype, 
00949      &                   num,cret)
00950 
00951 
00952       implicit none
00953       save
00954 
00955       integer fid,cret,numdt, numit,entype,geotype
00956       character *(*) name
00957       integer num(*)
00958       integer mmhfgnr
00959 
00960       cret = mmhfgnr(fid,name,len(name),numdt,numit,entype,geotype,
00961      &               num)
00962 
00963       return
00964       end
00965 
00966 
00967 
00968       subroutine  mmhcsc(fid,name,numdt1,numit1,numdt2,numit2,
00969      &                   dt2,cret)
00970 
00971 
00972       implicit none
00973       save
00974 
00975       integer fid,cret,numdt1,numit1,numdt2,numit2
00976       character *(*) name
00977       real*8 dt2
00978       integer mmhfcsc
00979 
00980       cret = mmhfcsc(fid,name,len(name),numdt1,numit1,
00981      &               numdt2,numit2,dt2)
00982 
00983       return
00984       end
00985 
00986 
00987 
00988       subroutine  mmhcsi(fid,name,csit,numdt,numit,dt,cret)
00989 
00990 
00991       implicit none
00992       save
00993 
00994       integer fid,cret,numdt,numit,csit
00995       character *(*) name
00996       real*8 dt
00997       integer mmhfcsi
00998 
00999       cret = mmhfcsi(fid,name,len(name),csit,numdt,numit,dt)
01000 
01001       return
01002       end
01003 
01004 
01005 
01006       subroutine  mmhcsr(fid,name,numdt,numit,dt,cret)
01007 
01008 
01009       implicit none
01010       save
01011 
01012       integer fid,cret,numdt,numit
01013       character *(*) name
01014       real*8 dt
01015       integer mmhfcsr
01016 
01017       cret = mmhfcsr(fid,name,len(name),numdt,numit,dt)
01018 
01019       return
01020       end
01021 
01022 
01023 
01024       subroutine  mmhstr(fid,name,stype,cret)
01025 
01026 
01027       implicit none
01028       save
01029 
01030       integer fid,cret,stype
01031       character *(*) name
01032       integer mmhfstr
01033 
01034       cret = mmhfstr(fid,name,len(name),stype)
01035 
01036       return
01037       end
01038 
01039 
01040 
01041       subroutine mmhraw(fid,name,numdt,numit,
01042      &                  geotype,aname,n,
01043      &                  val,cret)
01044 
01045 
01046       implicit none
01047       save
01048 
01049       character *(*) name,aname
01050       integer fid,numdt,numit,geotype,cret
01051       integer n
01052       real*8 val(*)
01053       integer mmhfraw
01054 
01055       cret =  mmhfraw(fid,name,len(name),numdt,numit,geotype,
01056      &                aname,len(aname),n,val)
01057 
01058       return
01059       end
01060 
01061 
01062 
01063       subroutine mmhiaw(fid,name,numdt,numit,
01064      &                  geotype,aname,n,
01065      &                  val,cret)
01066 
01067 
01068       implicit none
01069       save
01070 
01071       character *(*) name,aname
01072       integer fid,numdt,numit,geotype,cret
01073       integer n
01074       integer val(*)
01075       integer mmhfiaw
01076 
01077       cret =  mmhfiaw(fid,name,len(name),numdt,numit,geotype,
01078      &                aname,len(aname),n,val)
01079 
01080       return
01081       end
01082 
01083 
01084 
01085       subroutine mmhsaw(fid,name,numdt,numit,
01086      &                  geotype,aname,n,
01087      &                  val,cret)
01088 
01089 
01090       implicit none
01091       save
01092 
01093       character *(*) name,aname
01094       integer fid,numdt,numit,geotype,cret
01095       integer n
01096       character *(*) val
01097       integer mmhfsaw
01098 
01099       cret =  mmhfsaw(fid,name,len(name),numdt,numit,geotype,
01100      &                aname,len(aname),n,val,64*n)
01101 
01102       return
01103       end
01104 
01105 
01106 
01107       subroutine mmhrar(fid,name,numdt,numit,
01108      &                  geotype,aname,
01109      &                  val,cret)
01110 
01111 
01112       implicit none
01113       save
01114 
01115       character *(*) name,aname
01116       integer fid,numdt,numit,geotype,cret
01117       real*8 val(*)
01118       integer mmhfrar
01119 
01120       cret =  mmhfrar(fid,name,len(name),numdt,numit,geotype,
01121      &                aname,len(aname),val)
01122 
01123       return
01124       end
01125 
01126 
01127 
01128       subroutine mmhiar(fid,name,numdt,numit,
01129      &                  geotype,aname,val,cret)
01130 
01131 
01132       implicit none
01133       save
01134 
01135       character *(*) name,aname
01136       integer fid,numdt,numit,geotype,cret
01137       integer val(*)
01138       integer mmhfiar
01139 
01140       cret =  mmhfiar(fid,name,len(name),numdt,numit,geotype,
01141      &                aname,len(aname),val)
01142 
01143       return
01144       end
01145 
01146 
01147 
01148       subroutine mmhsar(fid,name,numdt,numit,
01149      &                  geotype,aname,val,cret)
01150 
01151 
01152       implicit none
01153       save
01154 
01155       character *(*) name,aname
01156       integer fid,numdt,numit,geotype,cret
01157       integer n
01158       character *(*) val
01159       integer mmhfsar
01160 
01161       cret =  mmhfsar(fid,name,len(name),numdt,numit,geotype,
01162      &                aname,len(aname),val)
01163 
01164       return
01165       end
01166 
01167 
01168 
01169       subroutine  mmheni(fid,name,numdt,numit,entype,it, 
01170      &                   geoname,geotype,cret)
01171 
01172 
01173       implicit none
01174       save
01175 
01176       integer fid,cret,numdt,numit,entype,geotype,it
01177       character *(*) name, geoname
01178       integer mmhfeni
01179 
01180       cret = mmhfeni(fid,name,len(name),numdt,numit,entype,
01181      &               it,geoname,geotype)
01182 
01183       return
01184       end
01185 
01186 
01187 
01188       subroutine  mmhtfw( fid , name, numdt, numit, dt, 
01189      &                    tsf,cret)
01190 
01191 
01192       implicit none
01193       save
01194 
01195       integer fid,cret,numdt,numit
01196       real*8 dt
01197       character *(*) name
01198       real*8 tsf(*)
01199       integer mmhftfw
01200 
01201       cret = mmhftfw(fid,name,len(name),numdt,numit,dt,tsf)
01202 
01203       return
01204       end
01205 
01206 
01207 
01208       subroutine mmhtfr( fid , name, numdt, numit, 
01209      &                   tsf,cret)
01210 
01211 
01212       implicit none
01213       save
01214 
01215       integer fid,cret,numdt,numit
01216       character *(*) name
01217       real*8 tsf(*)
01218       integer mmhftfr
01219 
01220       cret = mmhftfr(fid,name,len(name),numdt,numit,tsf)
01221 
01222       return
01223       end
01224 
01225 
01226 
01227       subroutine mmhaaw(fid,mname,dtype,numdt,numit,entype,geotype,
01228      &                  flt,val,cret)
01229 
01230 
01231       implicit none
01232       save
01233 
01234       character *(*) mname
01235       integer  val(*)
01236       integer fid,numdt,numit,entype,geotype
01237       integer dtype,n,cret
01238       integer mmhfaaw
01239       integer*8 flt(*)
01240 
01241       cret = mmhfaaw(fid,mname,len(mname),dtype,numdt,numit,entype,
01242      &               geotype,flt,val)
01243 
01244       return
01245       end
01246 
01247 
01248 
01249       subroutine mmhaar(fid,mname,dtype,numdt,numit,entype,geotype,
01250      &                  flt,val,cret)
01251 
01252 
01253       implicit none
01254       save
01255 
01256       character *(*) mname
01257       integer  val(*)
01258       integer fid,numdt,numit,entype,geotype
01259       integer dtype,n,cret
01260       integer mmhfaar
01261       integer*8 flt(*)
01262 
01263       cret = mmhfaar(fid,mname,len(mname),dtype,numdt,numit,entype,
01264      &               geotype,flt,val)
01265 
01266       return
01267       end
01268 
01269 
01270 
01271       subroutine mmhasw(fid,mname,dtype,numdt,numit,entype,geotype,
01272      &                  flt,val,cret)
01273 
01274 
01275       implicit none
01276       save
01277 
01278       character *(*) mname
01279       character *(*) val
01280       integer fid,numdt,numit,entype,geotype
01281       integer dtype,n,cret
01282       integer mmhfasw
01283       integer*8 flt(*)
01284 
01285       cret = mmhfasw(fid,mname,len(mname),dtype,numdt,numit,entype,
01286      &               geotype,flt,val)
01287 
01288       return
01289       end
01290 
01291 
01292 
01293       subroutine mmhasr(fid,mname,dtype,numdt,numit,entype,geotype,
01294      &                  flt,val,cret)
01295 
01296 
01297       implicit none
01298       save
01299 
01300       character *(*) mname
01301       character *(*) val
01302       integer fid,numdt,numit,entype,geotype
01303       integer dtype,n,cret
01304       integer mmhfasr
01305       integer*8 flt(*)
01306 
01307       cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
01308      &               geotype,flt,val)
01309 
01310       return
01311       end