# medlocalization.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 mlclow(fid,lname,gtype,sdim,ecoo,swm,nip,
    00021      &                  ipcoo, wght, giname, isname, cret)
    00022 c     DEC$ ATTRIBUTES DLLEXPORT :: mlclow
    00023 c
    00024       implicit none
    00025       save
    00026       character*(*) lname,giname, isname
    00027       real*8 ecoo(*), ipcoo(*), wght(*)
    00028       integer fid,cret,gtype,sdim,swm,nip
    00029       integer mlcflow
    00030 c
    00031       cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
    00032      &     ipcoo, wght,giname,len(giname), isname, len(isname) )
    00033 c
    00034       return
    00035       end
    00036 c
    00037 c
    00038 c
    00039       subroutine mlcnlc(fid,n,cret)
    00040 c     DEC$ ATTRIBUTES DLLEXPORT :: mlcnlc
    00041 c
    00042       implicit none
    00043       save
    00044       integer fid,n,cret
    00045       integer mlcfnlc
    00046 c
    00047       n = mlcfnlc(fid)
    00048 c
    00049       if (n.lt.0) then
    00050          cret = -1
    00051       else
    00052          cret = 0
    00053       endif
    00054 c
    00055       return
    00056       end
    00057 c
    00058 c
    00059 c
    00060       subroutine mlclci(fid, it, lname, gtype, sdim, nip,
    00061      &     giname, isname, nsmc, sgtype, cret)
    00062 c     DEC$ ATTRIBUTES DLLEXPORT :: mlclci
    00063 c
    00064       implicit none
    00065       save
    00066 c
    00067       character*(*) lname,giname, isname
    00068       integer fid, gtype, it, cret, sdim, nip
    00069       integer nsmc, sgtype
    00070       integer mlcflci
    00071 c
    00072       cret = mlcflci(fid, it, lname, gtype, sdim, nip,
    00073      &     giname, isname,nsmc,sgtype)
    00074 c
    00075       return
    00076       end
    00077 c
    00078 c
    00079 c
    00080       subroutine mlclni(fid, lname, gtype, sdim, nip,
    00081      &     giname, isname, nsmc, sgtype, cret)
    00082 c     DEC$ ATTRIBUTES DLLEXPORT :: mlclni
    00083 c
    00084       implicit none
    00085       save
    00086 c
    00087       character*(*) lname,giname, isname
    00088       integer fid, gtype, cret, sdim, nip
    00089       integer nsmc, sgtype
    00090       integer mlcflni
    00091 c
    00092       cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip,
    00093      &     giname, isname, nsmc, sgtype)
    00094 c
    00095       return
    00096       end
    00097 c
    00098 c
    00099 c
    00100
    00101       subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret)
    00102 c     DEC$ ATTRIBUTES DLLEXPORT :: mlclor
    00103 c
    00104       implicit none
    00105       save
    00106       character*(*) lname
    00107       real*8 ecoo(*), ipcoo(*), wght(*)
    00108       integer fid,cret,swm
    00109       integer mlcflor
    00110 c
    00111       cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
    00112 c
    00113       return
    00114       end
    00115
    00116