FTN4
      SUBROUTINE JASC(IVAL,IBUF,JBYT
     .,NBYTE),. 92080-1X031 REV.2026  800515
C 
C     SOURCE 92080-18031
C 
C 
C 
C     **************************************************************
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.  *
C     **************************************************************
C 
C 
C*********************************************************************
C*                                                                   *
C*                    THIS SUBROUTINE IS USED TO CONVERT ANY INTEGER *
C*  NUMBER (POSITIVE OR NEGATIVE) IN AN ASCII STRING .               *
C*                                                                   *
C*           PARAMETERS :                                            *
C*                                                                   *
C*                 IVAL : INTEGER VALUE                              *
C*                 IBUF : BUFFER TO STORE ASCII STRING               *
C*                 IBYT : FIRST BYTE # TO STORE STRING               *
C*                        IF IBYT IS NEGATIVE LEADING BLANKS IN      *
C*                        STRING ARE CHANGED TO ZEROS                *
C*                NBYTE : # OF BYTES OF THE STRING                   *
C*                                                                   *
C*********************************************************************
C 
C 
      DIMENSION IBUF(1),ITEMP(3)
C 
      IBYT=JBYT 
      IF(JBYT.LT.0) IBYT=-JBYT
      IF((IBYT.LT.1).OR.(NBYTE.LT.1)) RETURN
      CALL BLAN(IBUF,IBYT,NBYTE)
      JVAL=IVAL 
      IF(IVAL.LT.0) JVAL=-IVAL
      CALL CNUMD(JVAL,ITEMP)
      DO 100 I=1,6
      IF(IGET1(ITEMP,I).NE.1H ) GO TO 200 
100   CONTINUE
200   IF(IVAL.GE.0) GO TO 300 
      I=I-1 
      CALL PUTCA(ITEMP,1H-,I) 
300   IF(7-I.GT.NBYTE) RETURN 
      CALL MOVCA(ITEMP,I,IBUF,IBYT+NBYTE-7+I,7-I) 
      IF(JBYT.GT.0) RETURN
      DO 350 K=IBYT,IBYT+NBYTE-1
      IF(IGET1(IBUF,K).EQ.1H ) CALL PUTCA(IBUF,1H0,K) 
350   CONTINUE
      RETURN
      END 
      END$
                                                                                                                                                                                                                                                          