medjoint.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2011  EDF R&D, CEA/DEN
00004 C*  MED is free software: you can redistribute it and/or modify
00005 C*  it under the terms of the GNU Lesser General Public License as published by
00006 C*  the Free Software Foundation, either version 3 of the License, or
00007 C*  (at your option) any later version.
00008 C*
00009 C*  MED is distributed in the hope that it will be useful,
00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00012 C*  GNU Lesser General Public License for more details.
00013 C*
00014 C*  You should have received a copy of the GNU Lesser General Public License
00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
00016 C
00017 
00018       subroutine msdjcr(fid,lmname,jname,des,dom,
00019      &                  rmname,cret)
00020 c
00021       implicit none
00022       save
00023 c     
00024       character*(*) jname
00025       character*(*) lmname
00026       character*(*) des
00027       character*(*) rmname
00028       integer fid, dom, cret
00029       integer msdfjcr
00030 c     
00031       print *,lmname
00032       print *,jname
00033       print *,des
00034       print *,dom
00035       print *,rmname
00036       cret = msdfjcr(fid,lmname,len(lmname),
00037      &               jname,len(jname),
00038      &               des, len(des),
00039      &               dom, rmname, len(rmname))
00040 c
00041       return
00042       end
00043 c
00044 c
00045 c
00046       subroutine msdcrw(fid,lmname,jname,numdt,numit,
00047      &                  entlcl,geolcl,entdst,geodst,
00048      &                  n,corrtab,cret)
00049 c
00050       implicit none
00051       save
00052 c     
00053       character *(*) lmname, jname
00054       integer n, fid, cret, corrtab(*)
00055       integer entlcl, entdst, geolcl, geodst, numdt,numit
00056       integer msdfcrw
00057 c     
00058       cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
00059      &               numdt, numit,  entlcl, geolcl, entdst, geodst,          
00060      &               n,corrtab)
00061 c
00062       return
00063       end
00064 c
00065 c
00066 c
00067       subroutine msdnjn(fid,maa,n,cret)
00068 c
00069       implicit none
00070       save
00071 c     
00072       character *(*) maa
00073       integer n, fid,  cret
00074       integer msdfnjn
00075 c     
00076       n = msdfnjn(fid,maa,len(maa))
00077 c
00078       if (n.lt.0) then
00079          cret = -1
00080       else
00081          cret = 0
00082       endif
00083 c
00084       return
00085       end
00086 c
00087 c
00088 c
00089       subroutine msdjni(fid,lmname,ind,jname,des,dom,
00090      &                  rmname,nstep,ncor,cret)
00091 c
00092       implicit none
00093       save
00094 c     
00095       character *(*) lmname,jname,des,rmname
00096       integer fid, ind,dom,cret,nstep,ncor
00097       integer msdfjni
00098 c     
00099       cret = msdfjni(fid,lmname,len(lmname),ind,
00100      &              jname,des,dom,rmname,nstep,ncor)
00101 c
00102       return
00103       end
00104 c
00105 c
00106 c
00107       subroutine msdszi(fid,mname,jname,
00108      &                  numdt,numit,
00109      &                  it,letype,lgtype,
00110      &                  retype,rgtype,
00111      &                  ncor,cret)
00112 c
00113       implicit none
00114       save
00115 c     
00116       character*(*) mname,jname
00117       integer fid,cret,numdt,numit
00118       integer it,letype,lgtype,retype,rgtype,ncor
00119       integer msdfszi
00120 c     
00121       cret = msdfszi(fid,mname,len(mname),
00122      &               jname,len(jname),
00123      &               numdt,numit,it,
00124      &               letype,lgtype,
00125      &               retype,rgtype,ncor)
00126 c
00127       return
00128       end
00129 c
00130 c
00131 c
00132       subroutine msdcsz(fid,mname,jname,
00133      &                  numdt,numit,
00134      &                  letype,lgtype,
00135      &                  retype,rgtype,
00136      &                  ncor,cret)
00137 c
00138       implicit none
00139       save
00140 c     
00141       character*(*) mname,jname
00142       integer fid,cret,numdt,numit
00143       integer letype,lgtype,retype,rgtype,ncor
00144       integer msdfcsz
00145 c     
00146       cret = msdfcsz(fid,mname,len(mname),
00147      &               jname,len(jname),
00148      &               numdt,numit,
00149      &               letype,lgtype,
00150      &               retype,rgtype,
00151      &               ncor)
00152 c
00153       return
00154       end
00155 c
00156 c
00157 c
00158       subroutine msdcrr(fid,lmname,jname,numdt,numit,
00159      &                  entlcl,geolcl,entdst,geodst,
00160      &                  corrtab,cret)
00161 c
00162       implicit none
00163       save
00164 c     
00165       character *(*) lmname, jname
00166       integer fid, cret, corrtab(*)
00167       integer entlcl, entdst, geolcl, geodst, numdt,numit
00168       integer msdfcrr
00169 c     
00170       cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
00171      &               numdt, numit,  entlcl, geolcl, entdst, geodst,          
00172      &               corrtab)
00173 c
00174       return
00175       end
00176 c
00177 c
00178 c
00179       subroutine msdcsi(fid,mname,jname,ind,
00180      &                  numdt,numit,ncor,cret)
00181 c
00182       implicit none
00183       save
00184 c     
00185       character *(*) mname,jname
00186       integer fid, ind,ncor,numdt,numit,cret
00187       integer msdfcsi
00188 c     
00189       cret = msdfcsi(fid,mname,len(mname),
00190      &               jname,len(jname),ind,
00191      &               numdt,numit,ncor)
00192 c
00193       return
00194       end

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