prof.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 
00018       subroutine efnpro( fid , n , cret)
00019 c
00020       implicit none
00021       save
00022 c
00023       integer fid, n, cret
00024       integer edfnpro
00025 c
00026       n = edfnpro(fid)
00027 
00028       if (n.lt.0) then
00029          cret = -1
00030       else
00031          cret = 0
00032       endif
00033 c
00034       return
00035       end
00036 c
00037 c
00038 c
00039       subroutine efproi( fid , indice , pro , n , cret)
00040 c
00041       implicit none
00042       save
00043 c
00044       integer fid,n,cret,indice
00045       character *(*) pro
00046       integer edfproi
00047 c
00048       pro = ' ' 
00049 c
00050       cret = edfproi (fid,indice,pro,n)
00051 c     
00052       return
00053       end
00054 c
00055 
00056       subroutine efpfle(fid,pflval,n,nom,cret)
00057 c
00058       implicit none
00059       save
00060 c      
00061       integer fid,n,cret
00062       integer pflval(*)
00063       character *(*) nom
00064       integer edfpfle
00065 c
00066       cret = edfpfle(fid,pflval,n,nom,len(nom))
00067 c
00068       return
00069       end
00070 c
00071       
00072 
00073       subroutine efnpfl(fid,nom,n,cret)
00074 c
00075       implicit none
00076       save
00077 c      
00078       integer fid,cret,n
00079       character *(*) nom
00080       integer edfnpfl
00081 c
00082       n = edfnpfl(fid,nom,len(nom))
00083 c
00084       if (n.lt.0) then
00085          cret = -1
00086       else
00087          cret = 0
00088       endif
00089 c
00090       return
00091       end
00092 c
00093 
00094       subroutine efpfll(fid,pflval,nom,cret)
00095 c
00096       implicit none
00097       save
00098 c      
00099       integer fid,cret
00100       integer pflval(*)
00101       character *(*) nom
00102       integer edfpfll
00103 c
00104       cret = edfpfll(fid,pflval,nom,len(nom))
00105 c
00106       return
00107       end
00108 c

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