# medmesh.f

Aller à la documentation de ce fichier.

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