FTN4,L
C 
C 
C 
C 
C 
C 
CC************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
CC************************************************************
C 
C 
C 
C      NAME: GASC1
C      SOURCE: 92840 - 18161
C      RELOC:  92840 - 16021
C 
C 
C 
CC*********************************************************** 
      SUBROUTINE GASC1(ICHAR,IA)
     +,92840-16021 REV.2013 790904
C*****************************************************************
C GASC1 RETURNS THE FOLLOWING VALUE IN IA AS A FUNCTION OF ICHAR: 
C 
C     ICHAR        IA 
C 
C       0           0 
C     1-255        -1 
C     >255         +1 
C 
C GASC1 CAN BE USED TO TELL IF A STRING VARIABLE CAME FROM
C A FORTRAN CALL OR A BASIC CALL, SINCE A BASIC STRING
C VARIABLE WILL HAVE A LENGTH WORD IN FRONT OF IT, SO THAT
C IA WILL BE SET NEGATIVE IF THE STRING CAME FROM BASIC.
C*****************************************************************
      INTEGER ICHAR,IA
C 
      IA=0
      IF (ICHAR .EQ. 0) RETURN
C 
      IA=-1 
      IF (ICHAR .GT. 255) IA=1
      RETURN
      END 
                                                                                                                                                                                            