# medflibrary.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 mlbclo(cret)
    00019 c     DEC$ ATTRIBUTES DLLEXPORT :: mlbclo
    00020 c
    00021       implicit none
    00022       save
    00023 c
    00024       integer cret
    00025       integer mlbfclo
    00026 c
    00027       cret = mlbfclo()
    00028 c
    00029       return
    00030       end
    00031
    00032
    00033
    00034       subroutine mlbnuv(major,minor,rel,cret)
    00035 c     DEC$ ATTRIBUTES DLLEXPORT :: mlbnuv
    00036 c
    00037       implicit none
    00038       save
    00039 c
    00040       integer major, minor, rel
    00041       integer cret
    00042       integer mlbfnuv
    00043 c
    00044       cret = mlbfnuv(major,minor,rel)
    00045 c
    00046       return
    00047       end
    00048
    00049
    00050       subroutine mlbstv(version,cret)
    00051 c     DEC$ ATTRIBUTES DLLEXPORT :: mlbstv
    00052 c
    00053       implicit none
    00054       save
    00055 c
    00056       character*(*) version
    00057       integer cret
    00058       integer mlbfstv
    00059 c
    00060       cret = mlbfstv(version,len(version))
    00061 c
    00062       return
    00063       end
    00064
    00065
    00066
    00067       subroutine mlbhnv(major,minor,rel,cret)
    00068 c     DEC$ ATTRIBUTES DLLEXPORT :: mlbhnv
    00069 c
    00070       implicit none
    00071       save
    00072 c
    00073       integer major, minor, rel
    00074       integer cret
    00075       integer mlbfhnv
    00076 c
    00077       cret = mlbfhnv(major,minor,rel)
    00078 c
    00079       return
    00080       end
    00081
    00082
    00083       subroutine mlbhsv(version,cret)
    00084 c     DEC$ ATTRIBUTES DLLEXPORT :: mlbhsv
    00085 c
    00086       implicit none
    00087       save
    00088 c
    00089       character*(*) version
    00090       integer cret
    00091       integer mlbfhsv
    00092 c
    00093       cret = mlbfhsv(version,len(version))
    00094 c
    00095       return
    00096       end