HERWIG/src/hwunst.f

   1
   2 CDECK  ID>, HWUNST.
   3
   4 *CMZ :-        -27/07/99  13.33.03  by  Mike Seymour
   5
   6 *-- Author : Ian Knowles
   7
   8 C-----------------------------------------------------------------------
   9
  10       FUNCTION HWUNST(N)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     Creates a character string of length 7 equivalent to integer N
  15
  16 C-----------------------------------------------------------------------
  17
  18       INTEGER N,I,M,NN(7)
  19
  20       CHARACTER*1 NCHAR(0:9)
  21
  22       CHARACTER*7 HWUNST
  23
  24       DATA NCHAR/'0','1','2','3','4','5','6','7','8','9'/
  25
  26       M=1
  27
  28       DO 10 I=7,1,-1
  29
  30       NN(I)=MOD(N/M,10)
  31
  32   10  M=M*10
  33
  34       WRITE(HWUNST,'(7A1)') (NCHAR(NN(I)),I=1,7)
  35
  36       RETURN
  37
  38       END