# medlocalization.f

Aller à la documentation de ce fichier.

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