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

Généré le Mon Nov 19 15:43:34 2012 pour MED fichier par  doxygen 1.6.1