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