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