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

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