DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »trflib4job  «

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »trflib4job  « 

TextFile

job fgs 1 274001 stat 2 time 10 0 preserve no

mode list.yes
;   543339 : release 2.0
;
; magtape  :
;
;   543319 : release 1.1 
; 

libsource=set mtll mt543339

; compilation of library source code :
; the file descriptor :
;
;   libsource = set <modekind> <name of this tape>
;
; must be present

message slang assembly library source code

lookup libsource
if ok.no
(message the file libsource not present
 finis)

libsource=changeentry libsource libsource ; file, block := 0, 0
libsource=setmt libsource.11


; generate a file with all fortran-library names

ftnlibnames = copy message.no 47.1
  fortranlib,
  inwrcrcrcrc zassign inrrcrcrcrc,
  rearcrcrcrc readerr wrircrcrcrc,
  cdcrcrcrcrc cmcrcrcrcrc cscrcrcrcrc cacrcrcrcrc,
  cmplx real aimag,
  iabs abs mod amod ifix float min0 max0,
  amin0 amax0 min1 max1 amin1 amax1,
  csqrt cabs clog cang csin ccos cexp conjg,
  dadrcrcrcrc dsdrcrcrcrc dabs dddrcrcrcrc,
  icdrcrcrcrc lcdrcrcrcrc rcdrcrcrcrc dcircrcrcrc,
  dclrcrcrcrc dcrrcrcrcrc dmdrcrcrcrc dsign,
  lpircrcrcrc ldlrcrcrcrc lmlrcrcrcrc lmod

/ ; end of ftnlibnames

scopeftnlib=edit ftnlibnames
i#
scope user,
#, f

head cpu

(inwrcrcrcrc = slang libsource.3
 inwrcrcrcrc zassign inrrcrcrcrc)
if ok.no
  sorry ; ********** special program

(rearcrcrcrc = slang libsource.4
 rearcrcrcrc readerr)
if ok.no
  sorry ; ********** special program

(wrircrcrcrc = slang libsource.5
 wrircrcrcrc)
if ok.no
  sorry ; ********** special program

(cdcrcrcrcrc = slang libsource.6
 cdcrcrcrcrc cmcrcrcrcrc cscrcrcrcrc cacrcrcrcrc, 
 cmplx real aimag)
if ok.no
  sorry ; ********** special program

(iabs = slang iabs4tx                       ; libsource.7
 iabs abs mod amod ifix float min0 max0,
 amin0 amax0 min1 max1 amin1 amax1)
if ok.no
  sorry ; ********** special program

(csqrt = slang libsource.8
 csqrt cabs clog cang csin ccos cexp conjg)
if ok.no
  sorry ; ********** special program

(dadrcrcrcrc = slang libsource.9
 dadrcrcrcrc dsdrcrcrcrc dabs dddrcrcrcrc)
if ok.no
  sorry ; ********** special program

(icdrcrcrcrc = slang libsource.10
 icdrcrcrcrc  lcdrcrcrcrc rcdrcrcrcrc dcircrcrcrc,
 dclrcrcrcrc dcrrcrcrcrc dmdrcrcrcrc dsign)
if ok.no
  sorry ; ********** special program

(lpircrcrcrc = slang libsource.11
 lpircrcrcrc ldlrcrcrcrc lmlrcrcrcrc lmod)
if ok.no
  sorry ; ********* special program

head cpu

message algol translation proc fortranlib

head cpu

tfortranlib = edit ftnlibnames
d, i=
external procedure fortranlib;
write (out, <:
=,
l b, i=
:>);
end
=,f

fortranlib = algol tfortranlib

head cpu

message compresslib library object code

fortranlib = compresslib,
  inwrcrcrcrc rearcrcrcrc wrircrcrcrc,
  cdcrcrcrcrc iabs csqrt dadrcrcrcrc icdrcrcrcrc lpircrcrcrc
if ok.no
  sorry ; ********** special program

head cpu

message scope user fortranlib

i scopeftnlib

head cpu

release libsource


end
▶EOF◀