*
* $Id: fmatoe.F,v 1.1.1.1 1996/03/07 15:18:20 mclareni Exp $
*
* $Log: fmatoe.F,v $
* Revision 1.1.1.1  1996/03/07 15:18:20  mclareni
* Fatmen
*
*
#include "fatmen/pilot.h"
       SUBROUTINE FMATOE(CHTEXT,IRC)
*
***********************************************************************
*
*       Converts ASCII character string to EBCDIC in place
*
***********************************************************************
      CHARACTER*(*)    CHTEXT
      PARAMETER       (NCHAR = 127)
      INTEGER   EBCDIC
      DIMENSION EBCDIC(NCHAR)
      DATA EBCDIC /8*0,5,22*0,
     + 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97,
     +240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111,
     +124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214,
     +215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109,
     +121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150,
     +151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161,7/
*-----------------------------------
*
      LTEXT = LENOCC(CHTEXT)
      IRC   = 0
 
      DO 10 I=1,LTEXT
         CHTEXT(I:I) = CHAR(EBCDIC(ICHAR(CHTEXT(I:I))))
  10  CONTINUE
 
      END