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

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.