MINICERN/packlib/kernlib/kerngen/tcgen/csetdi.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:43  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE CSETDI (INTP, CHV,JLP,JRP)
  11 C
  12 C CERN PROGLIB# M432    CSETDI          .VERSION KERNFOR  4.29  910718
  13 C ORIG. 04/10/88, JZ
  14 C
  15 C-    Set decimal integer into CHV(JL:JR) right-justified
  16
  17       DIMENSION    INTP(9), JLP(9), JRP(9)
  18
  19       COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT, DUMMY(36)
  20       CHARACTER    CHV*(*)
  21
  22
  23       INT = INTP(1)
  24       JL  = JLP(1)
  25       JJ  = JRP(1)
  26
  27       IVAL   = IABS (INT)
  28       NDG    = 0
  29       NGSLAT = 0
  30
  31    12 IF (JJ.LT.JL)          GO TO 97
  32       K    = MOD (IVAL,10)
  33       IVAL = IVAL/10
  34 #if defined(CERNLIB_QASCII)
  35       CHV(JJ:JJ) = CHAR(K+48)
  36 #endif
  37 #if defined(CERNLIB_QEBCDIC)
  38       CHV(JJ:JJ) = CHAR(K+240)
  39 #endif
  40
  41       JJ  = JJ  - 1
  42       NDG = NDG + 1
  43       IF (IVAL.NE.0)         GO TO 12
  44       IF (INT.GE.0)          GO TO 98
  45       IF (JJ.LT.JL)          GO TO 97
  46       CHV(JJ:JJ) = '-'
  47       NFSLAT = JJ - 1
  48       GO TO 99
  49
  50    97 NGSLAT = JL
  51    98 NFSLAT = JJ
  52    99 NESLAT = JJ
  53       NDSLAT = NDG
  54       RETURN
  55       END