medlink.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 mlnliw(fid,mname,lname,cret)
00021 c     DEC$ ATTRIBUTES DLLEXPORT :: mlnliw
00022 c
00023       implicit none
00024       save
00025       character*(*) mname,lname
00026       integer fid,cret
00027       integer mlnfliw
00028 c
00029       cret = mlnfliw(fid,mname,len(mname),lname,len(lname))
00030 c      
00031       return
00032       end
00033 c
00034 c
00035 c
00036       subroutine mlnnln(fid,n,cret)
00037 c     DEC$ ATTRIBUTES DLLEXPORT :: mlnnln
00038 c
00039       implicit none
00040       save
00041       integer fid,n,cret
00042       integer mlnfnln
00043 c
00044       n = mlnfnln(fid)
00045 c
00046       if (n.lt.0) then
00047          cret = -1
00048       else
00049          cret = 0
00050       endif
00051 c      
00052       return
00053       end
00054 c
00055 c
00056 c
00057       subroutine mlnlni(fid, it, mname, lsize, cret)
00058 c     DEC$ ATTRIBUTES DLLEXPORT :: mlnlni
00059 c
00060       implicit none
00061       save
00062 c
00063       character *(*) mname
00064       integer fid, lsize, it, cret
00065       integer mlnflni
00066 c
00067       cret = mlnflni(fid, it, mname, lsize)
00068 c     
00069       return
00070       end
00071 c
00072 c
00073 c
00074       subroutine mlnlai(fid, mname, lsize, cret)
00075 c     DEC$ ATTRIBUTES DLLEXPORT :: mlnlai
00076 c
00077       implicit none
00078       save
00079 c
00080       character *(*) mname
00081       integer fid, lsize, cret,n
00082       integer mlnflai
00083 c
00084       n = mlnflai(fid, mname, len(mname), lsize)
00085 c
00086       if (n.lt.0) then
00087          cret = -1
00088       else
00089          cret = 0
00090       endif
00091 c     
00092       return
00093       end
00094 c
00095 c
00096 c
00097       subroutine mlnlir(fid,mname,lname,cret)
00098 c     DEC$ ATTRIBUTES DLLEXPORT :: mlnlir
00099 c
00100       implicit none
00101       save
00102       character*(*) mname,lname
00103       integer fid,cret
00104       integer mlnflir
00105 c
00106       cret = mlnflir(fid,mname,len(mname),lname,len(lname))
00107 c      
00108       return
00109       end
00110 
00111 

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