Annotation of researchv10no/cmd/pfort/sum2, revision 1.1.1.1

1.1       root        1: C XXXXXtt2
                      2: BLOCKDATA0.f:
                      3:    BLOCK DATA:
                      4: BLOCKDATA1.f:
                      5:    BLOCK DATA:
                      6: BLOCKDATA2.f:
                      7:    BLOCK DATA:
                      8: BLOCKDATA3.f:
                      9:    BLOCK DATA:
                     10: MAIN0.f:
                     11:    MAIN:
                     12: COMPIL.f:
                     13:    compil:
                     14: OVRLAY.f:
                     15:    ovrlay:
                     16: SATT1.f:
                     17:    satt1:
                     18: IGATT1.f:
                     19:    igatt1:
                     20: EXCH.f:
                     21:    exch:
                     22: SSORT.f:
                     23:    ssort:
                     24: ERROR1.f:
                     25:    error1:
                     26: ERROR2.f:
                     27:    error2:
                     28: ARDECL.f:
                     29:    ardecl:
                     30: ASSASF.f:
                     31:    assasf:
                     32: ASSIGN.f:
                     33:    assign:
                     34: COMMON.f:
                     35:    common:
                     36: DIMENS.f:
                     37:    dimens:
                     38: DOCHK.f:
                     39:    dochk:
                     40: DOSPEC.f:
                     41:    dospec:
                     42: DOVAR.f:
                     43:    dovar:
                     44: EQUIV.f:
                     45:    equiv:
                     46: EXTERN.f:
                     47:    extern:
                     48: FIXLAB.f:
                     49:    fixlab:
                     50: FORMAT.f:
                     51:    format:
                     52: GETTOK.f:
                     53:    gettok:
                     54: GOTO.f:
                     55:    goto:
                     56: ID.f:
                     57:    id:
                     58: IDLIST.f:
                     59:    idlist:
                     60: IFS.f:
                     61:    ifs:
                     62: INTEXT.f:
                     63:    intext:
                     64: IO.f:
                     65:    io:
                     66: LDOVAR.f:
                     67:    ldovar:
                     68: NEXTOK.f:
                     69:    nextok:
                     70: OUTSYM.f:
                     71:    outsym:
                     72: POP.f:
                     73:    pop:
                     74: RDLIST.f:
                     75:    rdlist:
                     76: RFLIST.f:
                     77:    rflist:
                     78: SEPAR.f:
                     79:    separ:
                     80: SETNAM.f:
                     81:    setnam:
                     82: SORT.f:
                     83:    sort:
                     84: SUBS.f:
                     85:    subs:
                     86: SUBFCN.f:
                     87:    subfcn:
                     88: TOKCOM.f:
                     89:    tokcom:
                     90: TOKLAB.f:
                     91:    toklab:
                     92: TOKLOG.f:
                     93:    toklog:
                     94: TOKLOP.f:
                     95:    toklop:
                     96: TOKPNO.f:
                     97:    tokpno:
                     98: TOKRL.f:
                     99:    tokrl:
                    100: TYPE.f:
                    101:    type:
                    102: TYPST.f:
                    103:    typst:
                    104: TYPST2.f:
                    105:    typst2:
                    106: SATT2.f:
                    107:    satt2:
                    108: IGATT2.f:
                    109:    igatt2:
                    110: CALLS.f:
                    111:    calls:
                    112: DATA.f:
                    113:    data:
                    114: DOSTMT.f:
                    115:    dostmt:
                    116: END.f:
                    117:    end:
                    118: EXPR.f:
                    119:    expr:
                    120: INSTMT.f:
                    121:    instmt:
                    122: IN.f:
                    123:    in:
                    124: INOPT.f:
                    125:    inopt:
                    126: LIST.f:
                    127:    list:
                    128: LOOKUP.f:
                    129:    lookup:
                    130: MAPCHR.f:
                    131:    mapchr:
                    132: PU.f:
                    133:    pu:
                    134: COMCHK.f:
                    135:    comchk:
                    136: COMPAR.f:
                    137:    compar:
                    138: FINDND.f:
                    139:    findnd:
                    140: FINDCM.f:
                    141:    findcm:
                    142: INREF.f:
                    143:    inref:
                    144: INSYM.f:
                    145:    insym:
                    146: MATCH.f:
                    147:    match:
                    148: MKCOM.f:
                    149:    mkcom:
                    150: OUTCOM.f:
                    151:    outcom:
                    152: OUTLAT.f:
                    153:    outlat:
                    154: OUT2A.f:
                    155:    out2a:
                    156: OUT2C.f:
                    157:    out2c:
                    158: SCAN.f:
                    159:    scan:
                    160: SETARG.f:
                    161:    setarg:
                    162: SETASF.f:
                    163:    setasf:
                    164: SETCOM.f:
                    165:    setcom:
                    166: SETEXT.f:
                    167:    setext:
                    168: SETPD.f:
                    169:    setpd:
                    170: SETREF.f:
                    171:    setref:
                    172: UNSAFE.f:
                    173:    unsafe:
                    174: CHECKS.f:
                    175:    checks:
                    176: CONSTR.f:
                    177:    constr:
                    178: OUT2.f:
                    179:    out2:
                    180: SETNOD.f:
                    181:    setnod:
                    182: CHK1.f:
                    183:    chk1:
                    184: CHK2.f:
                    185:    chk2:
                    186: FIND.f:
                    187:    find:
                    188: ASLEV.f:
                    189:    aslev:
                    190: INVOKE.f:
                    191:    invoke:
                    192: RDSYM.f:
                    193:    rdsym:
                    194: PROC.f:
                    195:    proc:
                    196: CHKALL.f:
                    197:    chkall:
                    198: CHK3.f:
                    199:    chk3:
                    200: packc.f:
                    201:    s5pack:
                    202: unpakc.f:
                    203:    s5unpk:
                    204: C XXXXXtt2ARDECL.f
                    205: ARDECL.f:
                    206:    ardecl:
                    207: C XXXXXtt2ASLEV.f
                    208: ASLEV.f:
                    209:    aslev:
                    210: C XXXXXtt2ASSASF.f
                    211: ASSASF.f:
                    212:    assasf:
                    213: C XXXXXtt2ASSIGN.f
                    214: ASSIGN.f:
                    215:    assign:
                    216: C XXXXXtt2BLOCKDATA0.
                    217: BLOCKDATA0.f:
                    218:    BLOCK DATA:
                    219: C XXXXXtt2BLOCKDATA1.
                    220: BLOCKDATA1.f:
                    221:    BLOCK DATA:
                    222: C XXXXXtt2BLOCKDATA2.
                    223: BLOCKDATA2.f:
                    224:    BLOCK DATA:
                    225: C XXXXXtt2BLOCKDATA3.
                    226: BLOCKDATA3.f:
                    227:    BLOCK DATA:
                    228: C XXXXXtt2CALLS.f
                    229: CALLS.f:
                    230:    calls:
                    231: C XXXXXtt2CHECKS.f
                    232: CHECKS.f:
                    233:    checks:
                    234: C XXXXXtt2CHK1.f
                    235: CHK1.f:
                    236:    chk1:
                    237: C XXXXXtt2CHK2.f
                    238: CHK2.f:
                    239:    chk2:
                    240: C XXXXXtt2CHK3.f
                    241: CHK3.f:
                    242:    chk3:
                    243: C XXXXXtt2CHKALL.f
                    244: CHKALL.f:
                    245:    chkall:
                    246: C XXXXXtt2COMCHK.f
                    247: COMCHK.f:
                    248:    comchk:
                    249: C XXXXXtt2COMMON.f
                    250: COMMON.f:
                    251:    common:
                    252: C XXXXXtt2COMPAR.f
                    253: COMPAR.f:
                    254:    compar:
                    255: C XXXXXtt2COMPIL.f
                    256: COMPIL.f:
                    257:    compil:
                    258: C XXXXXtt2CONSTR.f
                    259: CONSTR.f:
                    260:    constr:
                    261: C XXXXXtt2DATA.f
                    262: DATA.f:
                    263:    data:
                    264: C XXXXXtt2DIMENS.f
                    265: DIMENS.f:
                    266:    dimens:
                    267: C XXXXXtt2DOCHK.f
                    268: DOCHK.f:
                    269:    dochk:
                    270: C XXXXXtt2DOSPEC.f
                    271: DOSPEC.f:
                    272:    dospec:
                    273: C XXXXXtt2DOSTMT.f
                    274: DOSTMT.f:
                    275:    dostmt:
                    276: C XXXXXtt2DOVAR.f
                    277: DOVAR.f:
                    278:    dovar:
                    279: C XXXXXtt2END.f
                    280: END.f:
                    281:    end:
                    282: C XXXXXtt2EQUIV.f
                    283: EQUIV.f:
                    284:    equiv:
                    285: C XXXXXtt2ERROR1.f
                    286: ERROR1.f:
                    287:    error1:
                    288: C XXXXXtt2ERROR2.f
                    289: ERROR2.f:
                    290:    error2:
                    291: C XXXXXtt2EXCH.f
                    292: EXCH.f:
                    293:    exch:
                    294: C XXXXXtt2EXPR.f
                    295: EXPR.f:
                    296:    expr:
                    297: C XXXXXtt2EXTERN.f
                    298: EXTERN.f:
                    299:    extern:
                    300: C XXXXXtt2FIND.f
                    301: FIND.f:
                    302:    find:
                    303: C XXXXXtt2FINDCM.f
                    304: FINDCM.f:
                    305:    findcm:
                    306: C XXXXXtt2FINDND.f
                    307: FINDND.f:
                    308:    findnd:
                    309: C XXXXXtt2FIXLAB.f
                    310: FIXLAB.f:
                    311:    fixlab:
                    312: C XXXXXtt2FORMAT.f
                    313: FORMAT.f:
                    314:    format:
                    315: C XXXXXtt2GETTOK.f
                    316: GETTOK.f:
                    317:    gettok:
                    318: C XXXXXtt2GOTO.f
                    319: GOTO.f:
                    320:    goto:
                    321: C XXXXXtt2ID.f
                    322: ID.f:
                    323:    id:
                    324: C XXXXXtt2IDLIST.f
                    325: IDLIST.f:
                    326:    idlist:
                    327: C XXXXXtt2IFS.f
                    328: IFS.f:
                    329:    ifs:
                    330: C XXXXXtt2IGATT1.f
                    331: IGATT1.f:
                    332:    igatt1:
                    333: C XXXXXtt2IGATT2.f
                    334: IGATT2.f:
                    335:    igatt2:
                    336: C XXXXXtt2IN.f
                    337: IN.f:
                    338:    in:
                    339: C XXXXXtt2INOPT.f
                    340: INOPT.f:
                    341:    inopt:
                    342: C XXXXXtt2INREF.f
                    343: INREF.f:
                    344:    inref:
                    345: C XXXXXtt2INSTMT.f
                    346: INSTMT.f:
                    347:    instmt:
                    348: C XXXXXtt2INSYM.f
                    349: INSYM.f:
                    350:    insym:
                    351: C XXXXXtt2INTEXT.f
                    352: INTEXT.f:
                    353:    intext:
                    354: C XXXXXtt2INVOKE.f
                    355: INVOKE.f:
                    356:    invoke:
                    357: C XXXXXtt2IO.f
                    358: IO.f:
                    359:    io:
                    360: C XXXXXtt2LDOVAR.f
                    361: LDOVAR.f:
                    362:    ldovar:
                    363: C XXXXXtt2LIST.f
                    364: LIST.f:
                    365:    list:
                    366: C XXXXXtt2LOOKUP.f
                    367: LOOKUP.f:
                    368:    lookup:
                    369: C XXXXXtt2MAIN0.f
                    370: MAIN0.f:
                    371:    MAIN:
                    372: C XXXXXtt2MAIN1.f
                    373: MAIN1.f:
                    374: Error on line 1 of MAIN1.f: illegal continuation card ignored
                    375: 
                    376: Error.  No assembly.
                    377: C XXXXXtt2MAPCHR.f
                    378: MAPCHR.f:
                    379:    mapchr:
                    380: C XXXXXtt2MATCH.f
                    381: MATCH.f:
                    382:    match:
                    383: C XXXXXtt2MKCOM.f
                    384: MKCOM.f:
                    385:    mkcom:
                    386: C XXXXXtt2NEXTOK.f
                    387: NEXTOK.f:
                    388:    nextok:
                    389: C XXXXXtt2OUT2.f
                    390: OUT2.f:
                    391:    out2:
                    392: C XXXXXtt2OUT2A.f
                    393: OUT2A.f:
                    394:    out2a:
                    395: C XXXXXtt2OUT2C.f
                    396: OUT2C.f:
                    397:    out2c:
                    398: C XXXXXtt2OUTCOM.f
                    399: OUTCOM.f:
                    400:    outcom:
                    401: C XXXXXtt2OUTLAT.f
                    402: OUTLAT.f:
                    403:    outlat:
                    404: C XXXXXtt2OUTSYM.f
                    405: OUTSYM.f:
                    406:    outsym:
                    407: C XXXXXtt2OVRLAY.f
                    408: OVRLAY.f:
                    409:    ovrlay:
                    410: C XXXXXtt2POP.f
                    411: POP.f:
                    412:    pop:
                    413: C XXXXXtt2PROC.f
                    414: PROC.f:
                    415:    proc:
                    416: C XXXXXtt2PU.f
                    417: PU.f:
                    418:    pu:
                    419: C XXXXXtt2RDLIST.f
                    420: RDLIST.f:
                    421:    rdlist:
                    422: C XXXXXtt2RDSYM.f
                    423: RDSYM.f:
                    424:    rdsym:
                    425: C XXXXXtt2RFLIST.f
                    426: RFLIST.f:
                    427:    rflist:
                    428: C XXXXXtt2SATT1.f
                    429: SATT1.f:
                    430:    satt1:
                    431: C XXXXXtt2SATT2.f
                    432: SATT2.f:
                    433:    satt2:
                    434: C XXXXXtt2SCAN.f
                    435: SCAN.f:
                    436:    scan:
                    437: C XXXXXtt2SEPAR.f
                    438: SEPAR.f:
                    439:    separ:
                    440: C XXXXXtt2SETARG.f
                    441: SETARG.f:
                    442:    setarg:
                    443: C XXXXXtt2SETASF.f
                    444: SETASF.f:
                    445:    setasf:
                    446: C XXXXXtt2SETCOM.f
                    447: SETCOM.f:
                    448:    setcom:
                    449: C XXXXXtt2SETEXT.f
                    450: SETEXT.f:
                    451:    setext:
                    452: C XXXXXtt2SETNAM.f
                    453: SETNAM.f:
                    454:    setnam:
                    455: C XXXXXtt2SETNOD.f
                    456: SETNOD.f:
                    457:    setnod:
                    458: C XXXXXtt2SETPD.f
                    459: SETPD.f:
                    460:    setpd:
                    461: C XXXXXtt2SETREF.f
                    462: SETREF.f:
                    463:    setref:
                    464: C XXXXXtt2SORT.f
                    465: SORT.f:
                    466:    sort:
                    467: C XXXXXtt2SSORT.f
                    468: SSORT.f:
                    469:    ssort:
                    470: C XXXXXtt2SUBFCN.f
                    471: SUBFCN.f:
                    472:    subfcn:
                    473: C XXXXXtt2SUBS.f
                    474: SUBS.f:
                    475:    subs:
                    476: C XXXXXtt2TOKCOM.f
                    477: TOKCOM.f:
                    478:    tokcom:
                    479: C XXXXXtt2TOKLAB.f
                    480: TOKLAB.f:
                    481:    toklab:
                    482: C XXXXXtt2TOKLOG.f
                    483: TOKLOG.f:
                    484:    toklog:
                    485: C XXXXXtt2TOKLOP.f
                    486: TOKLOP.f:
                    487:    toklop:
                    488: C XXXXXtt2TOKPNO.f
                    489: TOKPNO.f:
                    490:    tokpno:
                    491: C XXXXXtt2TOKRL.f
                    492: TOKRL.f:
                    493:    tokrl:
                    494: C XXXXXtt2TYPE.f
                    495: TYPE.f:
                    496:    type:
                    497: C XXXXXtt2TYPST.f
                    498: TYPST.f:
                    499:    typst:
                    500: C XXXXXtt2TYPST2.f
                    501: TYPST2.f:
                    502:    typst2:
                    503: C XXXXXtt2UNSAFE.f
                    504: UNSAFE.f:
                    505:    unsafe:
                    506: C XXXXXtt2out
                    507: BLOCKDATA0.f:
                    508:    BLOCK DATA:
                    509: BLOCKDATA1.f:
                    510:    BLOCK DATA:
                    511: BLOCKDATA2.f:
                    512:    BLOCK DATA:
                    513: BLOCKDATA3.f:
                    514:    BLOCK DATA:
                    515: MAIN0.f:
                    516:    MAIN:
                    517: COMPIL.f:
                    518:    compil:
                    519: OVRLAY.f:
                    520:    ovrlay:
                    521: SATT1.f:
                    522:    satt1:
                    523: IGATT1.f:
                    524:    igatt1:
                    525: EXCH.f:
                    526:    exch:
                    527: SSORT.f:
                    528:    ssort:
                    529: ERROR1.f:
                    530:    error1:
                    531: ERROR2.f:
                    532:    error2:
                    533: ARDECL.f:
                    534:    ardecl:
                    535: ASSASF.f:
                    536:    assasf:
                    537: ASSIGN.f:
                    538:    assign:
                    539: COMMON.f:
                    540:    common:
                    541: DIMENS.f:
                    542:    dimens:
                    543: DOCHK.f:
                    544:    dochk:
                    545: DOSPEC.f:
                    546:    dospec:
                    547: DOVAR.f:
                    548:    dovar:
                    549: EQUIV.f:
                    550:    equiv:
                    551: EXTERN.f:
                    552:    extern:
                    553: FIXLAB.f:
                    554:    fixlab:
                    555: FORMAT.f:
                    556:    format:
                    557: GETTOK.f:
                    558:    gettok:
                    559: GOTO.f:
                    560:    goto:
                    561: ID.f:
                    562:    id:
                    563: IDLIST.f:
                    564:    idlist:
                    565: IFS.f:
                    566:    ifs:
                    567: INTEXT.f:
                    568:    intext:
                    569: IO.f:
                    570:    io:
                    571: LDOVAR.f:
                    572:    ldovar:
                    573: NEXTOK.f:
                    574:    nextok:
                    575: OUTSYM.f:
                    576:    outsym:
                    577: POP.f:
                    578:    pop:
                    579: RDLIST.f:
                    580:    rdlist:
                    581: RFLIST.f:
                    582:    rflist:
                    583: SEPAR.f:
                    584:    separ:
                    585: SETNAM.f:
                    586:    setnam:
                    587: SORT.f:
                    588:    sort:
                    589: SUBS.f:
                    590:    subs:
                    591: SUBFCN.f:
                    592:    subfcn:
                    593: TOKCOM.f:
                    594:    tokcom:
                    595: TOKLAB.f:
                    596:    toklab:
                    597: TOKLOG.f:
                    598:    toklog:
                    599: TOKLOP.f:
                    600:    toklop:
                    601: TOKPNO.f:
                    602:    tokpno:
                    603: TOKRL.f:
                    604:    tokrl:
                    605: TYPE.f:
                    606:    type:
                    607: TYPST.f:
                    608:    typst:
                    609: TYPST2.f:
                    610:    typst2:
                    611: SATT2.f:
                    612:    satt2:
                    613: IGATT2.f:
                    614:    igatt2:
                    615: CALLS.f:
                    616:    calls:
                    617: DATA.f:
                    618:    data:
                    619: DOSTMT.f:
                    620:    dostmt:
                    621: END.f:
                    622:    end:
                    623: EXPR.f:
                    624:    expr:
                    625: INSTMT.f:
                    626:    instmt:
                    627: IN.f:
                    628:    in:
                    629: INOPT.f:
                    630:    inopt:
                    631: LIST.f:
                    632:    list:
                    633: LOOKUP.f:
                    634:    lookup:
                    635: MAPCHR.f:
                    636:    mapchr:
                    637: PU.f:
                    638:    pu:
                    639: COMCHK.f:
                    640:    comchk:
                    641: COMPAR.f:
                    642:    compar:
                    643: FINDND.f:
                    644:    findnd:
                    645: FINDCM.f:
                    646:    findcm:
                    647: INREF.f:
                    648:    inref:
                    649: INSYM.f:
                    650:    insym:
                    651: MATCH.f:
                    652:    match:
                    653: MKCOM.f:
                    654:    mkcom:
                    655: OUTCOM.f:
                    656:    outcom:
                    657: OUTLAT.f:
                    658:    outlat:
                    659: OUT2A.f:
                    660:    out2a:
                    661: OUT2C.f:
                    662:    out2c:
                    663: SCAN.f:
                    664:    scan:
                    665: SETARG.f:
                    666:    setarg:
                    667: SETASF.f:
                    668:    setasf:
                    669: SETCOM.f:
                    670:    setcom:
                    671: SETEXT.f:
                    672:    setext:
                    673: SETPD.f:
                    674:    setpd:
                    675: SETREF.f:
                    676:    setref:
                    677: UNSAFE.f:
                    678:    unsafe:
                    679: CHECKS.f:
                    680:    checks:
                    681: CONSTR.f:
                    682:    constr:
                    683: OUT2.f:
                    684:    out2:
                    685: SETNOD.f:
                    686:    setnod:
                    687: CHK1.f:
                    688:    chk1:
                    689: CHK2.f:
                    690:    chk2:
                    691: FIND.f:
                    692:    find:
                    693: ASLEV.f:
                    694:    aslev:
                    695: INVOKE.f:
                    696:    invoke:
                    697: RDSYM.f:
                    698:    rdsym:
                    699: PROC.f:
                    700:    proc:
                    701: CHKALL.f:
                    702:    chkall:
                    703: CHK3.f:
                    704:    chk3:
                    705: packc.f:
                    706:    s5pack:
                    707: unpakc.f:
                    708:    s5unpk:
                    709: C XXXXXtt2packc.f
                    710: packc.f:
                    711:    s5pack:
                    712: C XXXXXtt2tstpak.f
                    713: tstpak.f:
                    714:    MAIN:
                    715: C XXXXXtt2tt2ASLEV.f
                    716: tt2ASLEV.f:
                    717: Error on line 1 of tt2ASLEV.f: illegal continuation card ignored
                    718: Error on line 2 of tt2ASLEV.f: illegal continuation card ignored
                    719: 
                    720: Error.  No assembly.
                    721: C XXXXXtt2ttASLEV.f
                    722: ttASLEV.f:
                    723: Error on line 1 of ttASLEV.f: illegal continuation card ignored
                    724: Error on line 2 of ttASLEV.f: illegal continuation card ignored
                    725: Error on line 3 of ttASLEV.f: illegal continuation card ignored
                    726: Error on line 4 of ttASLEV.f: illegal continuation card ignored
                    727: Error on line 5 of ttASLEV.f: illegal continuation card ignored
                    728: Error on line 6 of ttASLEV.f: nondigit in statement number field
                    729: Error on line 6 of ttASLEV.f: Execution error unclassifiable statement
                    730: 
                    731: Error.  No assembly.
                    732: C XXXXXtt2unpakc.f
                    733: unpakc.f:
                    734:    s5unpk:

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.