medflibrary.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       subroutine mlbclo(cret)
00019 
00020 
00021       implicit none
00022       save
00023 
00024       integer cret
00025       integer mlbfclo
00026 
00027       cret = mlbfclo()
00028 
00029       return
00030       end
00031 
00032 
00033 
00034       subroutine mlbnuv(major,minor,rel,cret)
00035 
00036 
00037       implicit none
00038       save
00039 
00040       integer major, minor, rel
00041       integer cret
00042       integer mlbfnuv
00043 
00044       cret = mlbfnuv(major,minor,rel)
00045 
00046       return
00047       end
00048 
00049 
00050       subroutine mlbstv(version,cret)
00051 
00052 
00053       implicit none
00054       save
00055 
00056       character*(*) version
00057       integer cret
00058       integer mlbfstv
00059 
00060       cret = mlbfstv(version,len(version))
00061 
00062       return
00063       end
00064 
00065 
00066 
00067       subroutine mlbhnv(major,minor,rel,cret)
00068 
00069 
00070       implicit none
00071       save
00072 
00073       integer major, minor, rel
00074       integer cret
00075       integer mlbfhnv
00076 
00077       cret = mlbfhnv(major,minor,rel)
00078 
00079       return
00080       end
00081 
00082 
00083       subroutine mlbhsv(version,cret)
00084 
00085 
00086       implicit none
00087       save
00088 
00089       character*(*) version
00090       integer cret
00091       integer mlbfhsv
00092 
00093       cret = mlbfhsv(version,len(version))
00094 
00095       return
00096       end