medjoint.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 
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

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