medprofile.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
00019
00020 subroutine mpfprw(fid,pname,psize,profil,cret)
00021
00022 implicit none
00023 save
00024 character*(*) pname
00025 integer profil(*)
00026 integer fid,cret,psize
00027 integer mpffprw
00028
00029 cret = mpffprw(fid,pname,len(pname),psize,profil)
00030
00031 return
00032 end
00033
00034
00035
00036 subroutine mpfnpf(fid,n,cret)
00037
00038 implicit none
00039 save
00040 integer fid,n,cret
00041 integer mpffnpf
00042
00043 n = mpffnpf(fid)
00044
00045 if (n.lt.0) then
00046 cret = -1
00047 else
00048 cret = 0
00049 endif
00050
00051 return
00052 end
00053
00054
00055
00056 subroutine mpfpfi(fid, it, pname, psize, cret)
00057
00058 implicit none
00059 save
00060
00061 character *(*) pname
00062 integer fid, psize, it, cret
00063 integer mpffpfi
00064
00065 cret = mpffpfi(fid, it, pname, psize)
00066
00067 return
00068 end
00069
00070
00071
00072 subroutine mpfpsn(fid, pname, psize, cret)
00073
00074 implicit none
00075 save
00076
00077 character *(*) pname
00078 integer fid, psize, cret
00079 integer mpffpsn
00080
00081 cret = mpffpsn(fid, pname, len(pname), psize)
00082
00083 return
00084 end
00085
00086
00087
00088 subroutine mpfprr(fid,pname,profil,cret)
00089
00090 implicit none
00091 save
00092 character*(*) pname
00093 integer profil(*)
00094 integer fid,cret
00095 integer mpffprr
00096
00097 cret = mpffprr(fid,pname,len(pname),profil)
00098
00099 return
00100 end
00101