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