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