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