1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
C--------------------------------------------------------------------------
subroutine ftc2as(array,nchar)
C convert characters from the machines
C native character coding sequence in to ASCII codes
C array c array of characters to be converted (in place)
C nchar i number of characters to convert
character*(*) array
integer nchar,i
integer asci1(128),asci2(128),ascii(256)
equivalence (asci1(1),ascii(1))
equivalence (asci2(1),ascii(129))
integer compid
common/ftcpid/compid
C The following look-up table gives the ASCII character code for
C the corresponding EBCDIC code. The conversion is not universally
C established, so some sites may need to modify this table.
C (The table has been broken into 2 arrays to reduce the number of
C continuation lines in a single statement).
data asci1/0,1,2,3,156,9,134,127,151,141,142, 11, 12, 13, 14, 15,
& 16, 17, 18, 19,157,133, 8,135, 24, 25,146,143, 28, 29, 30, 31,
& 128,129,130,131,132, 10, 23, 27,136,137,138,139,140, 5, 6, 7,
& 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26,
& 32,160,161,162,163,164,165,166,167,168, 91, 46, 60, 40, 43, 33,
& 38,169,170,171,172,173,174,175,176,177, 93, 36, 42, 41, 59, 94,
& 45, 47,178,179,180,181,182,183,184,185,124, 44, 37, 95, 62, 63,
& 186,187,188,189,190,191,192,193,194, 96, 58, 35, 64, 39, 61, 34/
data asci2/
& 195, 97, 98, 99,100,101,102,103,104,105,196,197,198,199,200,201,
& 202,106,107,108,109,110,111,112,113,114,203,204,205,206,207,208,
& 209,126,115,116,117,118,119,120,121,122,210,211,212,213,214,215,
& 216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,
& 123, 65, 66, 67, 68, 69, 70, 71, 72, 73,232,233,234,235,236,237,
& 125, 74, 75, 76, 77, 78, 79, 80, 81, 82,238,239,240,241,242,243,
& 92,159, 83, 84, 85, 86, 87, 88, 89, 90,244,245,246,247,248,249,
& 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,250,251,252,253,254,255/
C this conversion is only necessary on IBM mainframes (compid=4)
C This executable statement was originally located before the
C data statements, and it was moved here by PEH on 19 June 1998.
if (compid .ne. 4)return
do 10 i=1,nchar
C find the ASCII equivalent of the character
array(i:i)=char(ascii(ichar(array(i:i))+1))
10 continue
end
|
