Google
 

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