medprofile.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 mpfprw(fid,pname,psize,profil,cret)
00021 c
00022       implicit none
00023       save
00024       character*(*) pname
00025       integer profil(*)
00026       integer fid,cret,psize
00027       integer mpffprw
00028 c
00029       cret = mpffprw(fid,pname,len(pname),psize,profil)
00030 c      
00031       return
00032       end
00033 c
00034 c
00035 c
00036       subroutine mpfnpf(fid,n,cret)
00037 c
00038       implicit none
00039       save
00040       integer fid,n,cret
00041       integer mpffnpf
00042 c
00043       n = mpffnpf(fid)
00044 c
00045       if (n.lt.0) then
00046          cret = -1
00047       else
00048          cret = 0
00049       endif
00050 c      
00051       return
00052       end
00053 c
00054 c
00055 c
00056       subroutine mpfpfi(fid, it, pname, psize, cret)
00057 c
00058       implicit none
00059       save
00060 c
00061       character *(*) pname
00062       integer fid, psize, it, cret
00063       integer mpffpfi
00064 c
00065       cret = mpffpfi(fid, it, pname, psize)
00066 c     
00067       return
00068       end
00069 c
00070 c
00071 c
00072       subroutine mpfpsn(fid, pname, psize, cret)
00073 c
00074       implicit none
00075       save
00076 c
00077       character *(*) pname
00078       integer fid, psize, cret
00079       integer mpffpsn
00080 c
00081       cret = mpffpsn(fid, pname, len(pname), psize)
00082 c     
00083       return
00084       end
00085 c
00086 c
00087 c
00088       subroutine mpfprr(fid,pname,profil,cret)
00089 c
00090       implicit none
00091       save
00092       character*(*) pname
00093       integer profil(*)
00094       integer fid,cret
00095       integer mpffprr
00096 c
00097       cret = mpffprr(fid,pname,len(pname),profil)
00098 c      
00099       return
00100       end
00101 

Généré le Mon May 16 17:10:23 2011 pour MED fichier par  doxygen 1.6.1