# medjoint.f

Aller à la documentation de ce fichier.

    00001 C*  This file is part of MED.
    00002 C*
    00003 C*  COPYRIGHT (C) 1999 - 2012  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     DEC$ ATTRIBUTES DLLEXPORT :: MSDJCR
    00021 c
    00022       implicit none
    00023       save
    00024 c
    00025       character*(*) jname
    00026       character*(*) lmname
    00027       character*(*) des
    00028       character*(*) rmname
    00029       integer fid, dom, cret
    00030       integer msdfjcr
    00031 c
    00032       print *,lmname
    00033       print *,jname
    00034       print *,des
    00035       print *,dom
    00036       print *,rmname
    00037       cret = msdfjcr(fid,lmname,len(lmname),
    00038      &               jname,len(jname),
    00039      &               des, len(des),
    00040      &               dom, rmname, len(rmname))
    00041 c
    00042       return
    00043       end
    00044 c
    00045 c
    00046 c
    00047       subroutine msdcrw(fid,lmname,jname,numdt,numit,
    00048      &                  entlcl,geolcl,entdst,geodst,
    00049      &                  n,corrtab,cret)
    00050 c     DEC$ ATTRIBUTES DLLEXPORT :: msdcrw
    00051 c
    00052       implicit none
    00053       save
    00054 c
    00055       character *(*) lmname, jname
    00056       integer n, fid, cret, corrtab(*)
    00057       integer entlcl, entdst, geolcl, geodst, numdt,numit
    00058       integer msdfcrw
    00059 c
    00060       cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
    00061      &               numdt, numit,  entlcl, geolcl, entdst, geodst,
    00062      &               n,corrtab)
    00063 c
    00064       return
    00065       end
    00066 c
    00067 c
    00068 c
    00069       subroutine msdnjn(fid,maa,n,cret)
    00070 c     DEC$ ATTRIBUTES DLLEXPORT :: msdnjn
    00071 c
    00072       implicit none
    00073       save
    00074 c
    00075       character *(*) maa
    00076       integer n, fid,  cret
    00077       integer msdfnjn
    00078 c
    00079       n = msdfnjn(fid,maa,len(maa))
    00080 c
    00081       if (n.lt.0) then
    00082          cret = -1
    00083       else
    00084          cret = 0
    00085       endif
    00086 c
    00087       return
    00088       end
    00089 c
    00090 c
    00091 c
    00092       subroutine msdjni(fid,lmname,ind,jname,des,dom,
    00093      &                  rmname,nstep,ncor,cret)
    00094 c     DEC$ ATTRIBUTES DLLEXPORT :: msdjni
    00095 c
    00096       implicit none
    00097       save
    00098 c
    00099       character *(*) lmname,jname,des,rmname
    00100       integer fid, ind,dom,cret,nstep,ncor
    00101       integer msdfjni
    00102 c
    00103       cret = msdfjni(fid,lmname,len(lmname),ind,
    00104      &              jname,des,dom,rmname,nstep,ncor)
    00105 c
    00106       return
    00107       end
    00108 c
    00109 c
    00110 c
    00111       subroutine msdszi(fid,mname,jname,
    00112      &                  numdt,numit,
    00113      &                  it,letype,lgtype,
    00114      &                  retype,rgtype,
    00115      &                  ncor,cret)
    00116 c     DEC$ ATTRIBUTES DLLEXPORT :: msdszi
    00117 c
    00118       implicit none
    00119       save
    00120 c
    00121       character*(*) mname,jname
    00122       integer fid,cret,numdt,numit
    00123       integer it,letype,lgtype,retype,rgtype,ncor
    00124       integer msdfszi
    00125 c
    00126       cret = msdfszi(fid,mname,len(mname),
    00127      &               jname,len(jname),
    00128      &               numdt,numit,it,
    00129      &               letype,lgtype,
    00130      &               retype,rgtype,ncor)
    00131 c
    00132       return
    00133       end
    00134 c
    00135 c
    00136 c
    00137       subroutine msdcsz(fid,mname,jname,
    00138      &                  numdt,numit,
    00139      &                  letype,lgtype,
    00140      &                  retype,rgtype,
    00141      &                  ncor,cret)
    00142 c     DEC$ ATTRIBUTES DLLEXPORT :: msdcsz
    00143 c
    00144       implicit none
    00145       save
    00146 c
    00147       character*(*) mname,jname
    00148       integer fid,cret,numdt,numit
    00149       integer letype,lgtype,retype,rgtype,ncor
    00150       integer msdfcsz
    00151 c
    00152       cret = msdfcsz(fid,mname,len(mname),
    00153      &               jname,len(jname),
    00154      &               numdt,numit,
    00155      &               letype,lgtype,
    00156      &               retype,rgtype,
    00157      &               ncor)
    00158 c
    00159       return
    00160       end
    00161 c
    00162 c
    00163 c
    00164       subroutine msdcrr(fid,lmname,jname,numdt,numit,
    00165      &                  entlcl,geolcl,entdst,geodst,
    00166      &                  corrtab,cret)
    00167 c     DEC$ ATTRIBUTES DLLEXPORT :: msdcrr
    00168 c
    00169       implicit none
    00170       save
    00171 c
    00172       character *(*) lmname, jname
    00173       integer fid, cret, corrtab(*)
    00174       integer entlcl, entdst, geolcl, geodst, numdt,numit
    00175       integer msdfcrr
    00176 c
    00177       cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
    00178      &               numdt, numit,  entlcl, geolcl, entdst, geodst,
    00179      &               corrtab)
    00180 c
    00181       return
    00182       end
    00183 c
    00184 c
    00185 c
    00186       subroutine msdcsi(fid,mname,jname,ind,
    00187      &                  numdt,numit,ncor,cret)
    00188 c     DEC$ ATTRIBUTES DLLEXPORT :: msdcsi
    00189 c
    00190       implicit none
    00191       save
    00192 c
    00193       character *(*) mname,jname
    00194       integer fid, ind,ncor,numdt,numit,cret
    00195       integer msdfcsi
    00196 c
    00197       cret = msdfcsi(fid,mname,len(mname),
    00198      &               jname,len(jname),ind,
    00199      &               numdt,numit,ncor)
    00200 c
    00201       return
    00202       end