Laserfiche WebLink
<br />TABLE 1 <br />GENERAL FLOW DESCRIPTION - SUBPROGRAM H2MAIN <br /> <br />STATEMENT NUMBERS <br />1000 - 1085 <br /> <br />OPERATION <br /> <br />Dimension, formats, initialize variables and <br />tape numbers, rewind 7,8. <br /> <br />1195 - 1272 <br /> <br />Call BLOCK to printout program version, <br />check for ARCHIVAL run, read and print <br />title cards, read comment cards and write <br />on tape 9, rewind tape 9, rewind tape 6. <br /> <br />Initialize optional job card variables <br />and change' card (NC-ET) values. <br /> <br />Read cards J1-EJ and print. identify cards <br />Xl (subscript for IDCRD=7), EJ(14), ER(15), <br />Jl(l), J2(2), J3(19), J4(20), J5(23), J6(24). <br /> <br />1 090 - 11 90 <br /> <br />1190 - 1190 + 65 <br /> <br />1275 - 1330 <br />1335 - 1455 <br />1460 - 1470 <br />1475 - 1490 <br />1495 - 1510 <br />1512 <br />1515 - 1635 <br /> <br />Initialize J1 card variables. <br />Initialize J2 card variables. <br />Initial i ze J3 card variables. <br />Initial ize J4 card variables. <br />Initial ize J5 card variables. <br />Initial ize J6 card variables. <br /> <br />After reading last data card, rewind 6, <br />rewind 9, initialize variables, call DONE, <br />call PRIAH, write J3, J4, J5 card on 110. <br /> <br />1640 <br />1645 - 1695 <br /> <br />Check for interpolated cross section. <br /> <br />Read cards NC-EJ from tape 6. Identify <br />card code by first two letters. When no <br />GR cards are used (NSTRD=O), optional cards <br />X2, X3, X4, X5, BT, or CI must be read by <br />reading a11 cards unti1 the next cross <br />sections I Xl card is read. This card must <br />be stored for future use (IRDX1=10). Branch <br />to statement where data card variables are <br />initialized. <br /> <br />13 <br />