medlink.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 mlnliw(fid,mname,lname,cret)
00021
00022
00023 implicit none
00024 save
00025 character*(*) mname,lname
00026 integer fid,cret
00027 integer mlnfliw
00028
00029 cret = mlnfliw(fid,mname,len(mname),lname,len(lname))
00030
00031 return
00032 end
00033
00034
00035
00036 subroutine mlnnln(fid,n,cret)
00037
00038
00039 implicit none
00040 save
00041 integer fid,n,cret
00042 integer mlnfnln
00043
00044 n = mlnfnln(fid)
00045
00046 if (n.lt.0) then
00047 cret = -1
00048 else
00049 cret = 0
00050 endif
00051
00052 return
00053 end
00054
00055
00056
00057 subroutine mlnlni(fid, it, mname, lsize, cret)
00058
00059
00060 implicit none
00061 save
00062
00063 character *(*) mname
00064 integer fid, lsize, it, cret
00065 integer mlnflni
00066
00067 cret = mlnflni(fid, it, mname, lsize)
00068
00069 return
00070 end
00071
00072
00073
00074 subroutine mlnlai(fid, mname, lsize, cret)
00075
00076
00077 implicit none
00078 save
00079
00080 character *(*) mname
00081 integer fid, lsize, cret,n
00082 integer mlnflai
00083
00084 n = mlnflai(fid, mname, len(mname), lsize)
00085
00086 if (n.lt.0) then
00087 cret = -1
00088 else
00089 cret = 0
00090 endif
00091
00092 return
00093 end
00094
00095
00096
00097 subroutine mlnlir(fid,mname,lname,cret)
00098
00099
00100 implicit none
00101 save
00102 character*(*) mname,lname
00103 integer fid,cret
00104 integer mlnflir
00105
00106 cret = mlnflir(fid,mname,len(mname),lname,len(lname))
00107
00108 return
00109 end
00110
00111