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