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

Généré le Mon May 16 17:10:23 2011 pour MED fichier par  doxygen 1.6.1