# medlink.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 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