File DRUCKE.FT (FORTRAN source file)
Directory of image this file is from
This file as a plain text file
SUBROUTINE DRUCKE
COMMON RN,RN1,P,GN,GN1,A,IZ
DIMENSION RN(7,10),GN(7),RN1(10),P(8),A(7)
DO 10 I=1,10
IZ=IZ+1
IF(RN(1,I))40,10,40
40 DO 20 J=1,7
DO 20 J=1,7
20 P(J)=RN(J,I)
P(8)=RN1(I)
DO 30 J=2,8
30 A(J-1)=GN(J)-P(J)
WRITE(1,200)IZ,P
WRITE(1,250)A
10 CONTINUE
200 FORMAT(I2,F6.0,7F7.2)
250 FORMAT(8X7F7.2/)
RETURN
END
Feel free to contact me, David Gesswein djg@pdp8online.com
with any questions, comments on the web site, or if you have related equipment,
documentation, software etc. you are willing to part with. I am
interested in anything PDP-8
related, computers, peripherals used with them, DEC or third party, or
documentation.
PDP-8 Home Page
 PDP-8 Site Map
 PDP-8 Site Search