354
Appendix B
C
C
C
C
C
106
WRITE (10, 106)
FORMAT (3X, 'PT.OOOO', 4X, 'DTF.OO', 4X, 'DTL.OO', 4X,
*
'ALF.OO', 2X, 'ESP.OOOO',j)
WRITE (10, 20)
CLOSE(l)
CLOSE(2)
CLOSE(3)
CLOSE(4)
CLOSE(5)
CLOSE(6)
CLOSE(7)
CLOSE(B)
CLOSE(9)
CLOSE(10)
STOP
END