PUNCH a Card, 1442-6 or 7
The subroutine PUNC H will punch a card on the 1442
Model 6 or 7.
Nothing will be overlapped with this
activity. A typical use is
NER =-1
CALL PUNCH (INOUT, 1,20, NER)
which will punch the first 20 words of the INOUT
array into the first 20 columns of a card.
It is equivalent to
DIMENSION INOUT (80)
77 FORMAT (80A1)
WRITE (2, 77) (INOUT(K), K=1, 20)
The use of the error parameter, NER, is identi-
cal to the READ subroutine.
Section
Subsections
Page
70
20
I
10
02
Select STACKer, 1442-6 or 7
Subroutine STACK permits the FORTRAN programmer
to direct a card into the alternate stacker on the 1442
Model 6 or 7. After the statement
CALL STACK
the last card read (and only the last card) will be
selected into the alternate stacker.
The placement of the CALL STACK statement is
important:
•
If the program reads and punches into the same
card, the statement may be placed between the READ
and WRITE, or after the WRITE.
•
If the program reads (but doesn It punch), the
CALL STACK goes after the READ statement that
read the card to be stacked.
•
If the program only punches (and does not read),
the CALL STACK should be placed after the WRITE
statement that punches the card to be stacked.