medfield.f

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

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