Trailing-Edge
-
PDP-10 Archives
-
DEC-20-OT20A-D-MC9
-
2-exercise-libary/eingab.for
There are no other files named eingab.for in the archive.
SUBROUTINE EINGAB
INTEGER CRA,PRA,FL1,FL2,PR
COMMON B1,B2,B3,B4,B5,B6,B7,B8,B9,B10,B11,B12,B13
COMMON D1,D2,D3,D4,D5,D6,D7,D8,D9,D10
COMMON E1,E2,E3,E4,E5,E6,E7,E8,E9,E10
COMMON IFA(10),IFB(50),IFC(100),IFD(10,10),IFE(50,50),
1 IFF(10,10,10)
COMMON IP0,IP1,IP2,IP3,IP5,IP6,IP7,IP8,IP9,IP10,IP11,IP12,IP13,
1 IP14,IP15,IP16
COMMON I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11,I12,I13,I14,I15,I16,
1 I17,I18,I19,I20,I21,I22,I23,I24,I25,I26,I27,I28,I29,I30,
2 I31,I32,I33,I34,I35,I36,I37,I38,I39,I40
COMMON L1,L2,L3,L4,L5,L6,L7,L8,L9,L10
COMMON R1,R2,R3,R4,R5,R6,R7,R8,R9,R10
COMMON S1,S2,S3,S4,S5,S6,S7,S8,S9,S10
COMMON CRA,PRA,FL1,FL2,PR