# medfield.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 c
    00018 c
    00019 c
    00020       subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,
    00021      &                  dtunit,mname,cret)
    00022 c
    00023       implicit none
    00024       save
    00025       character*(*) fname,cname,cunit,dtunit,mname
    00026       integer fid,ncomp,cret,ftype
    00027       integer mfdfcre
    00028 c
    00029       cret = mfdfcre(fid,fname,len(fname),ftype,
    00030      &               ncomp,cname,16*ncomp,cunit,16*ncomp,
    00031      &               dtunit,len(dtunit),mname,len(mname))
    00032 c
    00033       return
    00034       end
    00035 c
    00036 c
    00037 c
    00038       subroutine mfdrvw(fid,fname,numdt,numit,dt,
    00039      &                  etype,gtype,swm,cs,n,val,cret)
    00040 c
    00041       implicit none
    00042       save
    00043       character*(*) fname
    00044       integer numdt,numit
    00045       real*8 dt,val(*)
    00046       integer fid,cret,etype,gtype,swm,cs,n
    00047       integer mfdfrvw
    00048 c
    00049       cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
    00050      &               etype,gtype,swm,cs,n,val)
    00051 c
    00052       return
    00053       end
    00054 c
    00055 c
    00056 c
    00057       subroutine mfdivw(fid,fname,numdt,numit,dt,
    00058      &                  etype,gtype,swm,cs,n,val,cret)
    00059 c
    00060       implicit none
    00061       save
    00062       character*(*) fname
    00063       integer numdt,numit
    00064       real*8 dt
    00065       integer val(*)
    00066       integer fid,cret,etype,gtype,swm,cs,n
    00067       integer mfdfivw
    00068 c
    00069       cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
    00070      &               etype,gtype,swm,cs,n,val)
    00071 c
    00072       return
    00073       end
    00074 c
    00075 c
    00076 c
    00077       subroutine mfdrpw(fid,fname,numdt,numit,dt,
    00078      &                  etype,gtype,
    00079      &                  stm,pname,lname,
    00080      &                  swm,cs,n,val,cret)
    00081 c
    00082       implicit none
    00083       save
    00084       character*(*) fname,pname,lname
    00085       integer numdt,numit
    00086       real*8 dt,val(*)
    00087       integer fid,cret,etype,gtype,swm,cs,n,stm
    00088       integer mfdfrpw
    00089 c
    00090       cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
    00091      &               etype,gtype,stm,pname,len(pname),
    00092      &               lname,len(lname),swm,cs,n,val)
    00093 c
    00094       return
    00095       end
    00096 c
    00097 c
    00098 c
    00099       subroutine mfdipw(fid,fname,numdt,numit,dt,
    00100      &                  etype,gtype,
    00101      &                  stm,pname,lname,
    00102      &                  swm,cs,n,val,cret)
    00103 c
    00104       implicit none
    00105       save
    00106       character*(*) fname,pname,lname
    00107       integer numdt,numit
    00108       real*8 dt
    00109       integer val(*)
    00110       integer fid,cret,etype,gtype,swm,cs,n,stm
    00111       integer mfdfipw
    00112 c
    00113       cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
    00114      &               etype,gtype,stm,pname,len(pname),
    00115      &               lname,len(lname),swm,cs,n,val,cret)
    00116 c
    00117       return
    00118       end
    00119 c
    00120 c
    00121 c
    00122       subroutine mfdraw(fid,fname,numdt,numit,dt,
    00123      &                  etype,gtype,lname,flt,
    00124      &                  val,cret)
    00125 c
    00126       implicit none
    00127       save
    00128       character*(*) fname,lname
    00129       integer numdt,numit
    00130       real*8 dt,val(*)
    00131       integer*8 flt(*)
    00132       integer fid,cret,etype,gtype
    00133       integer mfdfraw
    00134 c
    00135       cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
    00136      &               etype,gtype,lname,len(lname),flt,val)
    00137 c
    00138       return
    00139       end
    00140 c
    00141 c
    00142 c
    00143       subroutine mfdiaw(fid,fname,numdt,numit,dt,
    00144      &                  etype,gtype,lname,flt,
    00145      &                  val,cret)
    00146 c
    00147       implicit none
    00148       save
    00149       character*(*) fname,lname
    00150       integer numdt,numit
    00151       real*8 dt
    00152       integer val(*)
    00153       integer*8 flt(*)
    00154       integer fid,cret,etype,gtype
    00155       integer mfdfiaw
    00156 c
    00157       cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
    00158      &               etype,gtype,lname,len(lname),flt,val)
    00159 c
    00160       return
    00161       end
    00162 c
    00163 c
    00164 c
    00165       subroutine mfdnfd(fid,n,cret)
    00166 c
    00167       implicit none
    00168       save
    00169       integer fid,n,cret
    00170       integer mfdfnfd
    00171 c
    00172       n = mfdfnfd(fid)
    00173 c
    00174       if (n.lt.0) then
    00175          cret = -1
    00176       else
    00177          cret = 0
    00178       endif
    00179 c
    00180       return
    00181       end
    00182 c
    00183 c
    00184 c
    00185       subroutine mfdnfc(fid,ind,n,cret)
    00186 c
    00187       implicit none
    00188       save
    00189       integer fid,n,cret,ind
    00190       integer mfdfnfc
    00191 c
    00192       n = mfdfnfc(fid,ind)
    00193 c
    00194       if (n.lt.0) then
    00195          cret = -1
    00196       else
    00197          cret = 0
    00198       endif
    00199 c
    00200       return
    00201       end
    00202 c
    00203 c
    00204 c
    00205       subroutine mfdncn(fid,fname,n,cret)
    00206 c
    00207       implicit none
    00208       save
    00209       integer fid,n,cret
    00210       character *(*) fname
    00211       integer mfdfncn
    00212 c
    00213       n = mfdfncn(fid,fname,len(fname))
    00214 c
    00215       if (n.lt.0) then
    00216          cret = -1
    00217       else
    00218          cret = 0
    00219       endif
    00220 c
    00221       return
    00222       end
    00223 c
    00224 c
    00225 c
    00226       subroutine mfdfdi(fid, it, fname, mname, lmesh, type,
    00227      &                  cname, cunit, dtunit, nc, cret)
    00228 c
    00229       implicit none
    00230       save
    00231 c
    00232       character *(*) fname, mname, dtunit, cname, cunit
    00233       integer lmesh, cret
    00234       integer fid, type, it, nc
    00235       integer mfdffdi
    00236 c
    00237       cret = mfdffdi(fid, it, fname, mname, lmesh, type,
    00238      &               cname, cunit, dtunit, nc)
    00239 c
    00240       return
    00241       end
    00242 c
    00243 c
    00244 c
    00245       subroutine mfdfin(fid, fname, mname, lmesh, type,
    00246      &                  cname, cunit, dtunit, nc, cret)
    00247 c
    00248       implicit none
    00249       save
    00250 c
    00251       character *(*) fname, mname, dtunit, cname, cunit
    00252       integer lmesh, cret
    00253       integer fid, type, nc
    00254       integer mfdffin
    00255 c
    00256       cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
    00257      &               cname, cunit, dtunit, nc)
    00258 c
    00259       return
    00260       end
    00261 c
    00262 c
    00263 c
    00264       subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
    00265 c
    00266       implicit none
    00267       save
    00268 c
    00269       character*(*) fname
    00270       integer cret
    00271       integer fid, it, numdt, numit
    00272       real*8  dt
    00273       integer mfdfcsi
    00274 c
    00275       cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
    00276 c
    00277       return
    00278       end
    00279 c
    00280 c
    00281 c
    00282       subroutine mfdcmi(fid, fname, it, numdt, numit, dt,
    00283      &     mnumdt, mnumit, cret)
    00284 c
    00285       implicit none
    00286       save
    00287 c
    00288       character*(*) fname
    00289       integer cret
    00290       integer fid, it, numdt, numit, mnumdt, mnumit
    00291       real*8  dt
    00292       integer mfdfcmi
    00293 c
    00294       cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
    00295      &     mnumdt,mnumit)
    00296 c
    00297       return
    00298       end
    00299 c
    00300 c
    00301 c
    00302       subroutine mfdcmw(fid, fname, numdt, numit,
    00303      &     mnumdt, mnumit, cret)
    00304 c
    00305       implicit none
    00306       save
    00307 c
    00308       character*(*) fname
    00309       integer cret
    00310       integer fid, numdt, numit, mnumdt, mnumit
    00311       integer mfdfcmw
    00312 c
    00313       cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
    00314      &     mnumdt,mnumit)
    00315 c
    00316       return
    00317       end
    00318 c
    00319 c
    00320 c
    00321       subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,
    00322      &                  dpname, dlname, n,cret)
    00323 c
    00324       implicit none
    00325       save
    00326       integer fid,n,cret
    00327       integer numdt,numit,etype,gtype
    00328       character*(*) fname,dpname,dlname
    00329
    00330       integer mfdfnpf
    00331 c
    00332       n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
    00333      &            gtype,dpname,dlname)
    00334 c
    00335       if (n.lt.0) then
    00336          cret = -1
    00337       else
    00338          cret = 0
    00339       endif
    00340 c
    00341       return
    00342       end
    00343 c
    00344 c
    00345 c
    00346       subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)
    00347 c
    00348       implicit none
    00349       save
    00350       character*(*) fname
    00351       integer fid,n,cret,numdt,numit,etype,gtype
    00352       integer mfdfnva
    00353 c
    00354       n = mfdfnva(fid,fname,len(fname),numdt,numit,
    00355      &            etype,gtype,cret)
    00356 c
    00357       if (n.lt.0) then
    00358          cret = -1
    00359       else
    00360          cret = 0
    00361       endif
    00362 c
    00363       return
    00364       end
    00365 c
    00366 c
    00367 c
    00368       subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,
    00369      &                  pit,stm,pname,psize,lname,nip,
    00370      &                  n,cret)
    00371 c
    00372       implicit none
    00373       save
    00374       character*(*) fname, pname, lname
    00375       integer pit,stm,psize
    00376       integer fid,n,cret,numdt,numit,etype,gtype,nip
    00377       integer mfdfnvp
    00378 c
    00379       n = mfdfnvp(fid,fname,len(fname),numdt,numit,
    00380      &            etype,gtype,pit,stm,pname,psize,lname,
    00381      &            nip,cret)
    00382 c
    00383       if (n.lt.0) then
    00384          cret = -1
    00385       else
    00386          cret = 0
    00387       endif
    00388 c
    00389       return
    00390       end
    00391 c
    00392 c
    00393 c
    00394       subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,
    00395      &                  pname,stm,psize,lname,nip,
    00396      &                  n,cret)
    00397 c
    00398       implicit none
    00399       save
    00400       character*(*) fname, pname, lname
    00401       integer stm,psize
    00402       integer fid,n,cret,numdt,numit,etype,gtype,nip
    00403       integer mfdfnpn
    00404 c
    00405       n = mfdfnpn(fid,fname,len(fname),numdt,numit,
    00406      &            etype,gtype,pname,len(pname),stm,
    00407      &            psize,lname,nip,cret)
    00408 c
    00409       if (n.lt.0) then
    00410          cret = -1
    00411       else
    00412          cret = 0
    00413       endif
    00414 c
    00415       return
    00416       end
    00417 c
    00418 c
    00419 c
    00420       subroutine mfdrvr(fid,fname,numdt,numit,
    00421      &                  etype,gtype,swm,cs,val,cret)
    00422 c
    00423       implicit none
    00424       save
    00425       character*(*) fname
    00426       integer numdt,numit
    00427       real*8 val(*)
    00428       integer fid,cret,etype,gtype,swm,cs
    00429       integer mfdfrvr
    00430 c
    00431       cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
    00432      &               etype,gtype,swm,cs,val)
    00433 c
    00434       return
    00435       end
    00436 c
    00437 c
    00438 c
    00439       subroutine mfdivr(fid,fname,numdt,numit,
    00440      &                  etype,gtype,swm,cs,val,cret)
    00441 c
    00442       implicit none
    00443       save
    00444       character*(*) fname
    00445       integer numdt,numit
    00446       integer val(*)
    00447       integer fid,cret,etype,gtype,swm,cs
    00448       integer mfdfivr
    00449 c
    00450       cret = mfdfivr(fid,fname,len(fname),numdt,numit,
    00451      &               etype,gtype,swm,cs,val)
    00452 c
    00453       return
    00454       end
    00455 c
    00456 c
    00457 c
    00458       subroutine mfdrpr(fid,fname,numdt,numit,
    00459      &                  etype,gtype,
    00460      &                  stm,pname,
    00461      &                  swm,cs,val,cret)
    00462 c
    00463       implicit none
    00464       save
    00465       character*(*) fname,pname
    00466       integer numdt,numit
    00467       real*8 val(*)
    00468       integer fid,cret,etype,gtype,swm,cs,stm
    00469       integer mfdfrpr
    00470 c
    00471       cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
    00472      &               etype,gtype,stm,pname,len(pname),swm,cs,val)
    00473 c
    00474       return
    00475       end
    00476 c
    00477 c
    00478 c
    00479       subroutine mfdipr(fid,fname,numdt,numit,
    00480      &                  etype,gtype,
    00481      &                  stm,pname,
    00482      &                  swm,cs,val,cret)
    00483 c
    00484       implicit none
    00485       save
    00486       character*(*) fname,pname
    00487       integer numdt,numit
    00488       integer val(*)
    00489       integer fid,cret,etype,gtype,swm,cs,n,stm
    00490       integer mfdfipr
    00491 c
    00492       cret = mfdfipr(fid,fname,len(fname),numdt,numit,
    00493      &               etype,gtype,stm,pname,len(pname),swm,cs,val,cret)
    00494 c
    00495       return
    00496       end
    00497 c
    00498 c
    00499 c
    00500       subroutine mfdrar(fid,fname,numdt,numit,
    00501      &                  etype,gtype,flt,
    00502      &                  val,cret)
    00503 c
    00504       implicit none
    00505       save
    00506       character*(*) fname
    00507       integer numdt,numit
    00508       real*8 val(*)
    00509       integer*8 flt(*)
    00510       integer fid,cret,etype,gtype
    00511       integer mfdfrar
    00512 c
    00513       cret = mfdfrar(fid,fname,len(fname),numdt,numit,
    00514      &               etype,gtype,flt,val)
    00515 c
    00516       return
    00517       end
    00518 c
    00519 c
    00520 c
    00521       subroutine mfdiar(fid,fname,numdt,numit,
    00522      &                  etype,gtype,flt,
    00523      &                  val,cret)
    00524 c
    00525       implicit none
    00526       save
    00527       character*(*) fname
    00528       integer numdt,numit
    00529       integer val(*)
    00530       integer*8 flt(*)
    00531       integer fid,cret,etype,gtype
    00532       integer mfdfiar
    00533 c
    00534       cret = mfdfiar(fid,fname,len(fname),numdt,numit,
    00535      &               etype,gtype,flt,val)
    00536 c
    00537       return
    00538       end
    00539 c
    00540 c
    00541 c
    00542       subroutine mfdinw(fid,fname,iname,cret)
    00543 c
    00544       implicit none
    00545       save
    00546       character*(*) fname,iname
    00547       integer fid,cret
    00548       integer mfdfinw
    00549 c
    00550       cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
    00551 c
    00552       return
    00553       end
    00554 c
    00555 c
    00556 c
    00557       subroutine mfdnin(fid,fname,n,cret)
    00558 c
    00559       implicit none
    00560       save
    00561       integer fid,n,cret
    00562       character*(*) fname
    00563       integer mfdfnin
    00564 c
    00565       n = mfdfnin(fid,fname,len(fname))
    00566 c
    00567       if (n.lt.0) then
    00568          cret = -1
    00569       else
    00570          cret = 0
    00571       endif
    00572 c
    00573       return
    00574       end
    00575 c
    00576 c
    00577 c
    00578       subroutine mfdini(fid,fname,it,iname,cret)
    00579 c
    00580       implicit none
    00581       save
    00582       character*(*) fname,iname
    00583       integer fid,cret,it
    00584       integer mfdfini
    00585 c
    00586       cret = mfdfini(fid,fname,len(fname),it,iname,cret)
    00587 c
    00588       return
    00589       end
    00590 c
    00591 c
    00592 c
    00593       subroutine mfdoci(fid, fname, it, numdt, numit, dt,
    00594      &                  nmesh, mname, lmesh,
    00595      &                  mnumdt, mnumit, cret)
    00596 c
    00597       implicit none
    00598       save
    00599 c
    00600       character*(*) fname,mname
    00601       integer cret
    00602       integer fid,it,numdt,numit,nmesh,lmesh
    00603       integer mnumdt,mnumit
    00604       real*8  dt
    00605       integer mfdfoci
    00606 c
    00607       cret = mfdfoci(fid,fname,len(fname),it,
    00608      &               numdt,numit,dt,
    00609      &               nmesh, mname, lmesh,
    00610      &               mnumdt, mnumit)
    00611 c
    00612       return
    00613       end
    00614 c
    00615 c
    00616 c
    00617       subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,
    00618      &                  it,mname, dpname, dlname, n, cret)
    00619 c
    00620       implicit none
    00621       save
    00622       integer fid,n,cret
    00623       integer numdt,numit,etype,gtype,it
    00624       character*(*) fname,dpname,dlname,mname
    00625
    00626       integer mfdfonp
    00627 c
    00628       n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
    00629      &            gtype,it,mname,dpname,dlname)
    00630 c
    00631       if (n.lt.0) then
    00632          cret = -1
    00633       else
    00634          cret = 0
    00635       endif
    00636 c
    00637       return
    00638       end
    00639 c
    00640 c
    00641 c
    00642       subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,
    00643      &                  mname,pit,stm,pname,psize,lname,
    00644      &                  nip,n,cret)
    00645 c
    00646       implicit none
    00647       save
    00648       character*(*) fname, pname, lname, mname
    00649       integer pit,stm,psize
    00650       integer fid,n,cret,numdt,numit,etype,gtype,nip
    00651       integer mfdfonv
    00652 c
    00653       n = mfdfonv(fid,fname,len(fname),numdt,numit,
    00654      &            etype,gtype,
    00655      &            mname,len(mname),
    00656      &            pit,stm,pname,psize,lname,
    00657      &            nip,cret)
    00658 c
    00659       if (n.lt.0) then
    00660          cret = -1
    00661       else
    00662          cret = 0
    00663       endif
    00664 c
    00665       return
    00666       end
    00667 c
    00668 c
    00669 c
    00670       subroutine mfdorr(fid,fname,numdt,numit,
    00671      &                  etype,gtype,
    00672      &                  mname,
    00673      &                  stm,pname,
    00674      &                  swm,cs,val,cret)
    00675 c
    00676       implicit none
    00677       save
    00678       character*(*) fname,pname,mname
    00679       integer numdt,numit
    00680       real*8 val(*)
    00681       integer fid,cret,etype,gtype,swm,cs,stm
    00682       integer mfdforr
    00683 c
    00684       cret = mfdforr(fid,fname,len(fname),numdt,numit,
    00685      &               etype,gtype,mname,len(mname),
    00686      &               stm,pname,len(pname),swm,cs,val)
    00687 c
    00688       return
    00689       end
    00690 c
    00691 c
    00692 c
    00693       subroutine mfdoir(fid,fname,numdt,numit,
    00694      &                  etype,gtype,
    00695      &                  mname,
    00696      &                  stm,pname,
    00697      &                  swm,cs,val,cret)
    00698 c
    00699       implicit none
    00700       save
    00701       character*(*) fname,pname,mname
    00702       integer numdt,numit
    00703       integer val(*)
    00704       integer fid,cret,etype,gtype,swm,cs,n,stm
    00705       integer mfdfoir
    00706 c
    00707       cret = mfdfoir(fid,fname,len(fname),numdt,numit,
    00708      &               etype,gtype,mname,len(mname),
    00709      &               stm,pname,len(pname),swm,cs,val,cret)
    00710 c
    00711       return
    00712       end