Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50437/dmprec.for
There are 8 other files named dmprec.for in the archive. Click here to see a list.
SUBROUTINE DMPREC(TYPE)
C APPEND STATISTICS DUMP TO FILE
C HEADER RECORD TYPE IS 'TYPE'
INCLUDE 'BOSS.PRM'
CALL GET000(AR000)
CALL GET401(AR401)
CALL GET402(AR402)
CALL GET403(AR403)
CALL GET501(AR501)
OPEN(UNIT=21,FILE=FILE,MODE='IMAGE',ACCESS='APPEND')
PTYPE = LSH(TYPE,18)
AR000(1) = AR000(1)+PTYPE
C
C OUTPUT DATA
C
WRITE(21) (AR000(I),I=1,LEN000)
WRITE(21) (AR401(I),I=1,LEN401)
WRITE(21) (AR402(I),I=1,LEN402)
WRITE(21) (AR403(I),I=1,LEN403)
CALL DMP601
WRITE(21) (AR501(I),I=1,LEN501)
C
C CLOSE FILE
C
CLOSE(UNIT=21)
RETURN
END