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