# 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