Return to BLOCKDATA2.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/BLOCKDATA2.f, revision 1.1

1.1     ! root        1:       BLOCK DATA
        !             2: C
        !             3:       COMMON /TRANS/ Q(70)
        !             4:       INTEGER Q
        !             5: C
        !             6:       DATA Q(1) /1H0/, Q(2) /1H1/, Q(3) /1H2/, Q(4) /1H3/, Q(5) /1H4/
        !             7:       DATA Q(6) /1H5/, Q(7) /1H6/, Q(8) /1H7/, Q(9) /1H8/, Q(10) /1H9/
        !             8: C
        !             9:       DATA Q(31) /1HA/, Q(32) /1HB/, Q(33) /1HC/, Q(34) /1HD/, Q(35) /
        !            10:      *    1HE/
        !            11:       DATA Q(36) /1HF/, Q(37) /1HG/, Q(38) /1HH/, Q(39) /1HI/, Q(40) /
        !            12:      *    1HJ/
        !            13:       DATA Q(41) /1HK/, Q(42) /1HL/, Q(43) /1HM/, Q(44) /1HN/, Q(45) /
        !            14:      *    1HO/
        !            15:       DATA Q(46) /1HP/, Q(47) /1HQ/, Q(48) /1HR/, Q(49) /1HS/, Q(50) /
        !            16:      *    1HT/
        !            17:       DATA Q(51) /1HU/, Q(52) /1HV/, Q(53) /1HW/, Q(54) /1HX/, Q(55) /
        !            18:      *    1HY/
        !            19:       DATA Q(56) /1HZ/
        !            20: C
        !            21:       DATA Q(61) /1H+/, Q(62) /1H-/, Q(63) /1H)/, Q(64) /1H=/, Q(65) /
        !            22:      *    1H./
        !            23:       DATA Q(66) /1H(/, Q(67) /1H*/, Q(68) /1H//, Q(69) /1H,/, Q(70) /
        !            24:      *    1H /
        !            25:       END

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