Return to MAPCHR.f CVS log

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

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

1.1     ! root        1:       INTEGER FUNCTION MAPCHR(CHAR, ERR)
        !             2: C
        !             3: C     MAPCHR RETURNS THE INTERNAL CODE OF THE CHARACTER CHAR
        !             4: C
        !             5:       INTEGER CHAR
        !             6:       INTEGER LET(46), ICODE(46)
        !             7:       LOGICAL ERR
        !             8: C
        !             9:       DATA LET(7), ICODE(7) /1H0,0/
        !            10:       DATA LET(16), ICODE(16) /1H1,1/
        !            11:       DATA LET(22), ICODE(22) /1H2,2/
        !            12:       DATA LET(24), ICODE(24) /1H3,3/
        !            13:       DATA LET(26), ICODE(26) /1H4,4/
        !            14:       DATA LET(28), ICODE(28) /1H5,5/
        !            15:       DATA LET(25), ICODE(25) /1H6,6/
        !            16:       DATA LET(38), ICODE(38) /1H7,7/
        !            17:       DATA LET(34), ICODE(34) /1H8,8/
        !            18:       DATA LET(32), ICODE(32) /1H9,9/
        !            19:       DATA LET(3), ICODE(3) /1HA,30/
        !            20:       DATA LET(36), ICODE(36) /1HB,31/
        !            21:       DATA LET(14), ICODE(14) /1HC,32/
        !            22:       DATA LET(6), ICODE(6) /1HD,33/
        !            23:       DATA LET(5), ICODE(5) /1HE,34/
        !            24:       DATA LET(33), ICODE(33) /1HF,35/
        !            25:       DATA LET(27), ICODE(27) /1HG,36/
        !            26:       DATA LET(37), ICODE(37) /1HH,37/
        !            27:       DATA LET(8), ICODE(8) /1HI,38/
        !            28:       DATA LET(44), ICODE(44) /1HJ,39/
        !            29:       DATA LET(46), ICODE(46) /1HK,40/
        !            30:       DATA LET(13), ICODE(13) /1HL,41/
        !            31:       DATA LET(12), ICODE(12) /1HM,42/
        !            32:       DATA LET(4), ICODE(4) /1HN,43/
        !            33:       DATA LET(2), ICODE(2) /1HO,44/
        !            34:       DATA LET(18), ICODE(18) /1HP,45/
        !            35:       DATA LET(43), ICODE(43) /1HQ,46/
        !            36:       DATA LET(11), ICODE(11) /1HR,47/
        !            37:       DATA LET(15), ICODE(15) /1HS,48/
        !            38:       DATA LET(10), ICODE(10) /1HT,49/
        !            39:       DATA LET(30), ICODE(30) /1HU,50/
        !            40:       DATA LET(42), ICODE(42) /1HV,51/
        !            41:       DATA LET(45), ICODE(45) /1HW,52/
        !            42:       DATA LET(39), ICODE(39) /1HX,53/
        !            43:       DATA LET(35), ICODE(35) /1HY,54/
        !            44:       DATA LET(41), ICODE(41) /1HZ,55/
        !            45:       DATA LET(31), ICODE(31) /1H+,60/
        !            46:       DATA LET(29), ICODE(29) /1H-,61/
        !            47:       DATA LET(19), ICODE(19) /1H),62/
        !            48:       DATA LET(23), ICODE(23) /1H=,63/
        !            49:       DATA LET(17), ICODE(17) /1H.,64/
        !            50:       DATA LET(20), ICODE(20) /1H(,65/
        !            51:       DATA LET(21), ICODE(21) /1H*,66/
        !            52:       DATA LET(40), ICODE(40) /1H/,67/
        !            53:       DATA LET(9), ICODE(9) /1H,,68/
        !            54:       DATA LET(1), ICODE(1) /1H ,69/
        !            55: C
        !            56:       DO 10 I=1,46
        !            57:         IF (CHAR.EQ.LET(I)) GO TO 20
        !            58:    10 CONTINUE
        !            59: C
        !            60: C     UNKNOWN, RETURN BLANK AND SET ERR = .TRUE.
        !            61: C
        !            62:       MAPCHR = 69
        !            63:       ERR = .TRUE.
        !            64:       RETURN
        !            65: C
        !            66: C     KNOWN, RETURN INTERNAL CODE, LEAVE ERR ALONE
        !            67: C
        !            68:    20 MAPCHR = ICODE(I)
        !            69:       RETURN
        !            70:       END

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