# medmesh.f

Aller à la documentation de ce fichier.

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