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

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.