prof.f
Aller à la documentation de ce fichier.00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018       subroutine efnpro( fid , n , cret)
00019 
00020 
00021       implicit none
00022       save
00023 
00024       integer fid, n, cret
00025       integer edfnpro
00026 
00027       n = edfnpro(fid)
00028 
00029       if (n.lt.0) then
00030          cret = -1
00031       else
00032          cret = 0
00033       endif
00034 
00035       return
00036       end
00037 
00038 
00039 
00040       subroutine efproi( fid , indice , pro , n , cret)
00041 
00042 
00043       implicit none
00044       save
00045 
00046       integer fid,n,cret,indice
00047       character *(*) pro
00048       integer edfproi
00049 
00050       pro = ' ' 
00051 
00052       cret = edfproi (fid,indice,pro,n)
00053 
00054       return
00055       end
00056 
00057 
00058       subroutine efpfle(fid,pflval,n,nom,cret)
00059 
00060 
00061       implicit none
00062       save
00063 
00064       integer fid,n,cret
00065       integer pflval(*)
00066       character *(*) nom
00067       integer edfpfle
00068 
00069       cret = edfpfle(fid,pflval,n,nom,len(nom))
00070 
00071       return
00072       end
00073 
00074       
00075 
00076       subroutine efnpfl(fid,nom,n,cret)
00077 
00078 
00079       implicit none
00080       save
00081 
00082       integer fid,cret,n
00083       character *(*) nom
00084       integer edfnpfl
00085 
00086       n = edfnpfl(fid,nom,len(nom))
00087 
00088       if (n.lt.0) then
00089          cret = -1
00090       else
00091          cret = 0
00092       endif
00093 
00094       return
00095       end
00096 
00097 
00098       subroutine efpfll(fid,pflval,nom,cret)
00099 
00100 
00101       implicit none
00102       save
00103 
00104       integer fid,cret
00105       integer pflval(*)
00106       character *(*) nom
00107       integer edfpfll
00108 
00109       cret = edfpfll(fid,pflval,nom,len(nom))
00110 
00111       return
00112       end
00113