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