prof.f

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

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1