medmesh.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  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 
00651       n =  mmhfnep(fid,name,len(name),numdt,numit,entype,geotype,
00652      &             datype,cmode,stmode,pname,psize,chgt,tsf)
00653 
00654       if (n.lt.0) then
00655          cret = -1
00656       else
00657          cret =0
00658       endif
00659 c     
00660 
00661       return
00662       end
00663 c
00664 c
00665 c
00666       subroutine  mmhnor(fid , name, numdt, numit, 
00667      &                   swm, coo, iname, nname, inum, num,
00668      &                   ifam,fam, cret)
00669 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhnor
00670       implicit none
00671       save
00672 c
00673       integer fid,cret,numdt,numit,swm
00674       character *(*) name
00675       character *(*) nname
00676       real*8 coo(*)
00677       integer num(*),fam(*)
00678       integer iname,inum,ifam
00679       integer mmhfnor
00680 c
00681       cret = mmhfnor(fid,name,len(name),numdt,numit,swm,coo,
00682      &               iname,nname,inum,num,ifam,fam)
00683 c     
00684       return
00685       end
00686 c
00687 c
00688 c
00689 c
00690       subroutine  mmhnow(fid, name, numdt, numit, dt,
00691      &                   swm, n, coo, iname, nname, inum, num,
00692      &                   ifam, fam, cret)
00693 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhnow
00694 c
00695       implicit none
00696       save
00697 c
00698       integer fid,cret,numdt,numit,swm,n
00699       character *(*) name
00700       character *(*) nname
00701       real*8 coo(*), dt
00702       integer num(*),fam(*)
00703       integer iname,inum,ifam
00704       integer mmhfnow
00705 c
00706       cret = mmhfnow(fid,name,len(name),numdt,numit,dt,swm,n,coo,
00707      &               iname,nname,16*n,inum,num,ifam,fam)
00708 c     
00709       return
00710       end
00711 c
00712 c
00713 c
00714       subroutine  mmhelw(fid,name,numdt,numit,dt,entype,geotype, 
00715      &                   cmode,swm,n,con,iname, nname, inum, num,
00716      &                   ifam,fam,cret)
00717 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhelw
00718 c
00719       implicit none
00720       save
00721 c
00722       integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
00723       character *(*) name
00724       character *(*) nname
00725       integer con(*)
00726       real*8 dt
00727       integer iname,inum,ifam
00728       integer num(*),fam(*)
00729       integer mmhfelw
00730 c
00731       cret = mmhfelw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00732      &               cmode,swm,n,con,
00733      &               iname,nname,16*n,inum,num,ifam,fam)
00734 c     
00735       return
00736       end
00737 c
00738 c
00739 c
00740       subroutine  mmhelr(fid,name,numdt,numit,entype,geotype, 
00741      &                   cmode,swm,con,iname, nname, inum, num,
00742      &                   ifam,fam,cret)
00743 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhelr
00744 c
00745       implicit none
00746       save
00747 c
00748       integer fid,cret,numdt,numit,entype,geotype,swm,cmode
00749       character *(*) name
00750       character *(*) nname
00751       integer con(*)
00752       integer iname,inum,ifam
00753       integer num(*),fam(*)
00754       integer mmhfelr
00755 c
00756       cret = mmhfelr(fid,name,len(name),numdt,numit,entype,geotype,
00757      &               cmode,swm,con,iname,nname,inum,num,ifam,fam)
00758 c     
00759       return
00760       end
00761 c
00762 c
00763 c
00764       subroutine mmhcaw( fid , name, numdt, numit, dt, 
00765      &                    flt, coo, cret)
00766 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhcaw
00767 c
00768       implicit none
00769       save
00770 c
00771       integer fid,cret,numdt,numit
00772       real*8 dt
00773       character *(*) name
00774       real*8 coo(*)
00775       integer*8 flt(*)
00776       integer mmhfcaw
00777 c
00778       cret = mmhfcaw(fid,name,len(name),numdt,numit,dt,flt,coo)
00779 c     
00780       return
00781       end
00782 c
00783 c
00784 c
00785       subroutine  mmhcar(fid , name, numdt, numit,
00786      &                   flt, coo, cret)
00787 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhcar
00788 c
00789       implicit none
00790       save
00791 c
00792       integer fid,cret,numdt,numit
00793       character *(*) name
00794       real*8 coo(*)
00795       integer*8 flt(*)
00796       integer mmhfcar
00797 c
00798       cret = mmhfcar(fid,name,len(name),numdt,numit,flt,coo)
00799 c     
00800       return
00801       end
00802 c
00803 c
00804 c
00805       subroutine  mmhyaw(fid,name,numdt,numit,dt,entype,geotype, 
00806      &                   cmode,flt,con,cret)
00807 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhyaw
00808 c
00809       implicit none
00810       save
00811 c
00812       integer fid,cret,numdt,numit,entype,geotype,cmode
00813       character *(*) name
00814       integer con(*)
00815       integer*8 flt(*)
00816       real*8 dt
00817       integer mmhfyaw
00818 c
00819       cret = mmhfyaw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00820      &               cmode,flt,con)
00821 c     
00822       return
00823       end
00824 c
00825 c
00826 c
00827       subroutine  mmhyar(fid,name,numdt,numit,entype,geotype, 
00828      &                   cmode,flt,con,cret)
00829 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhyar
00830 c
00831       implicit none
00832       save
00833 c
00834       integer fid,cret,numdt,numit,entype,geotype,cmode
00835       character *(*) name
00836       integer con(*)
00837       integer*8 flt(*)
00838       integer mmhfyar
00839 c
00840       cret = mmhfyar(fid,name,len(name),numdt,numit,entype,geotype,
00841      &               cmode,flt,con)
00842 c     
00843       return
00844       end
00845 c
00846 c
00847 c
00848       subroutine  mmhpgw(fid,name,numdt,numit,dt,entype,
00849      &                   cmode,isize,index,con,cret)
00850 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhpgw
00851 c
00852       implicit none
00853       save
00854 c
00855       integer fid,cret,numdt,numit,isize,entype,cmode
00856       character *(*) name
00857       integer con(*), index(*)
00858       real*8 dt
00859       integer mmhfpgw
00860 c
00861       cret = mmhfpgw(fid,name,len(name),numdt,numit,dt,entype,
00862      &               cmode,isize,index,con)
00863 c     
00864       return
00865       end
00866 c
00867 c
00868 c
00869       subroutine  mmhpgr(fid,name,numdt,numit,entype,
00870      &                   cmode,index,con,cret)
00871 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhpgr
00872 c
00873       implicit none
00874       save
00875 c
00876       integer fid,cret,numdt,numit,entype,cmode
00877       character *(*) name
00878       integer con(*), index(*)
00879       integer mmhfpgr
00880 c
00881       cret = mmhfpgr(fid,name,len(name),numdt,numit,entype,
00882      &               cmode,index,con)
00883 c     
00884       return
00885       end
00886 c
00887 c
00888 c
00889       subroutine  mmhphw(fid,name,numdt,numit,dt,entype,
00890      &                   cmode,fisize,findex,nisize,nindex,con,cret)
00891 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhphw
00892 c
00893       implicit none
00894       save
00895 c
00896       integer fid,cret,numdt,numit,fisize,nisize,entype,cmode
00897       character *(*) name
00898       integer con(*), findex(*), nindex(*) 
00899       real*8 dt
00900       integer mmhfphw
00901 c
00902       cret = mmhfphw(fid,name,len(name),numdt,numit,dt,entype,
00903      &               cmode,fisize,findex,nisize,nindex,con)
00904 c     
00905       return
00906       end
00907 c
00908 c
00909 c
00910       subroutine  mmhphr(fid,name,numdt,numit,entype,
00911      &                   cmode,findex,nindex,con,cret)
00912 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhphr
00913 c
00914       implicit none
00915       save
00916 c
00917       integer fid,cret,numdt,numit,entype,cmode
00918       character *(*) name
00919       integer con(*), findex(*), nindex(*) 
00920       integer mmhfphr
00921 c
00922       cret = mmhfphr(fid,name,len(name),numdt,numit,entype,
00923      &               cmode,findex,nindex,con)
00924 c     
00925       return
00926       end
00927 c
00928 c
00929 c
00930       subroutine  mmhgnw(fid,name,numdt,numit,entype,geotype, 
00931      &                   n,num,cret)
00932 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhgnw
00933 c
00934       implicit none
00935       save
00936 c
00937       integer fid,cret,numdt, numit,n,entype,geotype
00938       character *(*) name
00939       integer num(*)
00940       integer mmhfgnw
00941 c
00942       cret = mmhfgnw(fid,name,len(name),numdt,numit,entype,geotype,
00943      &               n,num)
00944 c     
00945       return
00946       end
00947 c
00948 c
00949 c
00950       subroutine  mmhgnr(fid,name,numdt,numit,entype,geotype, 
00951      &                   num,cret)
00952 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhgnr
00953 c
00954       implicit none
00955       save
00956 c
00957       integer fid,cret,numdt, numit,entype,geotype
00958       character *(*) name
00959       integer num(*)
00960       integer mmhfgnr
00961 c
00962       cret = mmhfgnr(fid,name,len(name),numdt,numit,entype,geotype,
00963      &               num)
00964 c     
00965       return
00966       end
00967 c
00968 c
00969 c
00970       subroutine  mmhcsc(fid,name,numdt1,numit1,numdt2,numit2,
00971      &                   dt2,cret)
00972 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhcsc
00973 c
00974       implicit none
00975       save
00976 c
00977       integer fid,cret,numdt1,numit1,numdt2,numit2
00978       character *(*) name
00979       real*8 dt2
00980       integer mmhfcsc
00981 c
00982       cret = mmhfcsc(fid,name,len(name),numdt1,numit1,
00983      &               numdt2,numit2,dt2)
00984 c     
00985       return
00986       end
00987 c
00988 c
00989 c
00990       subroutine  mmhcsi(fid,name,csit,numdt,numit,dt,cret)
00991 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhcsi
00992 c
00993       implicit none
00994       save
00995 c
00996       integer fid,cret,numdt,numit,csit
00997       character *(*) name
00998       real*8 dt
00999       integer mmhfcsi
01000 c
01001       cret = mmhfcsi(fid,name,len(name),csit,numdt,numit,dt)
01002 c     
01003       return
01004       end
01005 c
01006 c
01007 c
01008       subroutine  mmhcsr(fid,name,numdt,numit,dt,cret)
01009 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhcsr
01010 c
01011       implicit none
01012       save
01013 c
01014       integer fid,cret,numdt,numit
01015       character *(*) name
01016       real*8 dt
01017       integer mmhfcsr
01018 c
01019       cret = mmhfcsr(fid,name,len(name),numdt,numit,dt)
01020 c     
01021       return
01022       end
01023 c
01024 c
01025 c
01026       subroutine  mmhstr(fid,name,stype,cret)
01027 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhstr
01028 c
01029       implicit none
01030       save
01031 c
01032       integer fid,cret,stype
01033       character *(*) name
01034       integer mmhfstr
01035 c
01036       cret = mmhfstr(fid,name,len(name),stype)
01037 c     
01038       return
01039       end
01040 c
01041 c
01042 c
01043       subroutine mmhraw(fid,name,numdt,numit,
01044      &                  geotype,aname,n,
01045      &                  val,cret)
01046 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhraw
01047 c
01048       implicit none
01049       save
01050 c
01051       character *(*) name,aname
01052       integer fid,numdt,numit,geotype,cret
01053       integer n
01054       real*8 val(*)
01055       integer mmhfraw
01056 c
01057       cret =  mmhfraw(fid,name,len(name),numdt,numit,geotype,
01058      &                aname,len(aname),n,val)
01059 c      
01060       return
01061       end
01062 c
01063 c
01064 c
01065       subroutine mmhiaw(fid,name,numdt,numit,
01066      &                  geotype,aname,n,
01067      &                  val,cret)
01068 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhiaw
01069 c
01070       implicit none
01071       save
01072 c
01073       character *(*) name,aname
01074       integer fid,numdt,numit,geotype,cret
01075       integer n
01076       integer val(*)
01077       integer mmhfiaw
01078 c
01079       cret =  mmhfiaw(fid,name,len(name),numdt,numit,geotype,
01080      &                aname,len(aname),n,val)
01081 c      
01082       return
01083       end
01084 c
01085 c
01086 c
01087       subroutine mmhsaw(fid,name,numdt,numit,
01088      &                  geotype,aname,n,
01089      &                  val,cret)
01090 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhsaw
01091 c
01092       implicit none
01093       save
01094 c
01095       character *(*) name,aname
01096       integer fid,numdt,numit,geotype,cret
01097       integer n
01098       character *(*) val
01099       integer mmhfsaw
01100 c
01101       cret =  mmhfsaw(fid,name,len(name),numdt,numit,geotype,
01102      &                aname,len(aname),n,val,64*n)
01103 c      
01104       return
01105       end
01106 c
01107 c
01108 c
01109       subroutine mmhrar(fid,name,numdt,numit,
01110      &                  geotype,aname,
01111      &                  val,cret)
01112 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhrar
01113 c
01114       implicit none
01115       save
01116 c
01117       character *(*) name,aname
01118       integer fid,numdt,numit,geotype,cret
01119       real*8 val(*)
01120       integer mmhfrar
01121 c
01122       cret =  mmhfrar(fid,name,len(name),numdt,numit,geotype,
01123      &                aname,len(aname),val)
01124 c      
01125       return
01126       end
01127 c
01128 c
01129 c
01130       subroutine mmhiar(fid,name,numdt,numit,
01131      &                  geotype,aname,val,cret)
01132 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhfiar
01133 c
01134       implicit none
01135       save
01136 c
01137       character *(*) name,aname
01138       integer fid,numdt,numit,geotype,cret
01139       integer val(*)
01140       integer mmhfiar
01141 c
01142       cret =  mmhfiar(fid,name,len(name),numdt,numit,geotype,
01143      &                aname,len(aname),val)
01144 c      
01145       return
01146       end
01147 c
01148 c
01149 c
01150       subroutine mmhsar(fid,name,numdt,numit,
01151      &                  geotype,aname,val,cret)
01152 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhsar
01153 c
01154       implicit none
01155       save
01156 c
01157       character *(*) name,aname
01158       integer fid,numdt,numit,geotype,cret
01159       integer n
01160       character *(*) val
01161       integer mmhfsar
01162 c
01163       cret =  mmhfsar(fid,name,len(name),numdt,numit,geotype,
01164      &                aname,len(aname),val)
01165 c      
01166       return
01167       end
01168 c
01169 c
01170 c
01171       subroutine  mmheni(fid,name,numdt,numit,entype,it, 
01172      &                   geoname,geotype,cret)
01173 c     DEC$ ATTRIBUTES DLLEXPORT :: mmheni
01174 c
01175       implicit none
01176       save
01177 c
01178       integer fid,cret,numdt,numit,entype,geotype,it
01179       character *(*) name, geoname
01180       integer mmhfeni
01181 c
01182       cret = mmhfeni(fid,name,len(name),numdt,numit,entype,
01183      &               it,geoname,geotype)
01184 c     
01185       return
01186       end
01187 c
01188 c
01189 c
01190       subroutine  mmhtfw( fid , name, numdt, numit, dt, 
01191      &                    tsf,cret)
01192 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhtfw
01193 c
01194       implicit none
01195       save
01196 c
01197       integer fid,cret,numdt,numit
01198       real*8 dt
01199       character *(*) name
01200       real*8 tsf(*)
01201       integer mmhftfw
01202 c
01203       cret = mmhftfw(fid,name,len(name),numdt,numit,dt,tsf)
01204 c     
01205       return
01206       end
01207 c
01208 c
01209 c
01210       subroutine mmhtfr( fid , name, numdt, numit, 
01211      &                   tsf,cret)
01212 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhtfr
01213 c
01214       implicit none
01215       save
01216 c
01217       integer fid,cret,numdt,numit
01218       character *(*) name
01219       real*8 tsf(*)
01220       integer mmhftfr
01221 c
01222       cret = mmhftfr(fid,name,len(name),numdt,numit,tsf)
01223 c     
01224       return
01225       end
01226 c
01227 c
01228 c
01229       subroutine mmhaaw(fid,mname,dtype,numdt,numit,entype,geotype,
01230      &                  flt,val,cret)
01231 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhaaw
01232 c
01233       implicit none
01234       save
01235 c
01236       character *(*) mname
01237       integer  val(*)
01238       integer fid,numdt,numit,entype,geotype
01239       integer dtype,n,cret
01240       integer mmhfaaw
01241       integer*8 flt(*)
01242 c
01243       cret = mmhfaaw(fid,mname,len(mname),dtype,numdt,numit,entype,
01244      &               geotype,flt,val)
01245 c      
01246       return
01247       end
01248 c
01249 c
01250 c
01251       subroutine mmhaar(fid,mname,dtype,numdt,numit,entype,geotype,
01252      &                  flt,val,cret)
01253 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhaar
01254 c
01255       implicit none
01256       save
01257 c
01258       character *(*) mname
01259       integer  val(*)
01260       integer fid,numdt,numit,entype,geotype
01261       integer dtype,n,cret
01262       integer mmhfaar
01263       integer*8 flt(*)
01264 c
01265       cret = mmhfaar(fid,mname,len(mname),dtype,numdt,numit,entype,
01266      &               geotype,flt,val)
01267 c      
01268       return
01269       end
01270 c
01271 c
01272 c
01273       subroutine mmhasw(fid,mname,dtype,numdt,numit,entype,geotype,
01274      &                  flt,val,cret)
01275 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhasw
01276 c
01277       implicit none
01278       save
01279 c
01280       character *(*) mname
01281       character *(*) val
01282       integer fid,numdt,numit,entype,geotype
01283       integer dtype,n,cret
01284       integer mmhfasw
01285       integer*8 flt(*)
01286 c
01287       cret = mmhfasw(fid,mname,len(mname),dtype,numdt,numit,entype,
01288      &               geotype,flt,val)
01289 c      
01290       return
01291       end
01292 c
01293 c
01294 c
01295       subroutine mmhasr(fid,mname,dtype,numdt,numit,entype,geotype,
01296      &                  flt,val,cret)
01297 c     DEC$ ATTRIBUTES DLLEXPORT :: mmhasr
01298 c
01299       implicit none
01300       save
01301 c
01302       character *(*) mname
01303       character *(*) val
01304       integer fid,numdt,numit,entype,geotype
01305       integer dtype,n,cret
01306       integer mmhfasr
01307       integer*8 flt(*)
01308 c
01309       cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
01310      &               geotype,flt,val)
01311 c      
01312       return
01313       end

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1