FTN 
      SUBROUTINE DCITA(DNUM,IBUF),92069-16175 REV.1912 781026 
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH OUT THE PRIOR 
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18175
C     RELOC:     92069-16175
C 
C 
C****************************************************************:
C 
C 
C 
C 
C 
      INTEGER IBUF(5) 
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WIOTH OUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     LISTING:   XXXXX-XXXXX
C     SOURCE:    XXXXX-XXXXX
C     RELOC:     XXXXX-XXXXX
C 
C 
C ABSTRACT: 
C 
C DCITA CONVERTS THE ABSOULE VALUE OF A DOUBLE WORD INTEGER TO IT'S 
C ASCII EQUICALENT. 
C 
C CALLING SEQUENCE: 
C 
C  CALL DCITA(DNUM,IBUF)
C 
C     WHERE:
C 
C         DNUM
C         IS A DOUBLE WORD INTEGER
C 
C         IBUF
C         IS A FIVE WORD BUFFER 
C 
C ON EXIT:
C 
C    IBUF CONTAINS A TEN CHARACTER ASCII EQUIVALENT OF DNUM,
C    ZERO FILLED TO THE LEFT. 
C 
C****************************************************************:
C 
      INTEGER IZERO(2),ITEN(2),ICHAR(2) 
      REAL ZERO,TEN,CHAR,TEMP 
      EXTERNAL DCO,DMP,DDI,DSB
      EQUIVALENCE (ZERO,IZERO),(TEN,ITEN),(CHAR,ICHAR)
      DATA IZERO/0,0/ 
      DATA ITEN/0,10/ 
      DATA ICHAR/0,0/ 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$780711 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$780711 
C 
C 
C 
C 
C 
C 
      DDNUM = DNUM
      DO 10 I = 1,5 
      IBUF(I) = 2H00
10    CONTINUE
C 
C BE SURE THERE THIS IS NOT A NEGETIVE NUMBER 
C 
      IF(DCO(DDNUM,ZERO)) 11,15,15
C 
C NUMBER IS NEGETIVE, RETURN ERROR
C 
11    CONTINUE
      DDNUM = DNG(DDNUM)
C 
C LOOP FOR CONVERSIONS
C 
15    CONTINUE
      DO 40 I= 10,1,-1
      IF( DCO(DDNUM,ZERO) ) 50,50,20
20    CONTINUE
      TEMP = DDI(DDNUM,TEN) 
      CHAR = DSB(DDNUM,DMP(TEMP,TEN) )
      DDNUM = TEMP
      CALL SPUT(IBUF,I,ICHAR(2) + 60B ) 
40    CONTINUE
50    RETURN
      END 
                                                                                                                                                                                                                                            