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