A.6. A FORTRAN IV Listing of Program DAMBLD
217
60 TO 190
G 109
150
IF ( ·Ν0Τ· OPTIME) 60 TO 160
G 110
HK17) * 16
G 111
L0C17) = 16
G 112
HK61)
«16
HI<115)*16
L0U15)*16
60 TO 190
G 115
160
HK17) «0
G 116
L0U7) s 0
G 117
HK61) s 0
G 11β
HK115) * 0
G 119
L0(115)=0
60 TO 190
G 120
170
IF ( .NOT. OPTIME) 60 TO 180
G 121
HK17) «10
G 122
L0<17) * 10
G 123
HK61) =10
G 124
HK115) =10
G 125
L0<115)*10
GO TO 190
G 126
180
HH17) =0
G 127
L0(17) * 0
G 128
HK61) = 0
G 129
HIC115) =0
G 130
L0(115)=0
GO TO 190
G 131
190
CONTINUE
G 132
RETURN
G 133
END
G 134-