4 *CMZ :- -27/07/99 13.33.03 by Mike Seymour
6 *-- Author : Ian Knowles
8 C-----------------------------------------------------------------------
12 C-----------------------------------------------------------------------
14 C Creates a character string of length 7 equivalent to integer N
16 C-----------------------------------------------------------------------
20 CHARACTER*1 NCHAR(0:9)
24 DATA NCHAR/'0','1','2','3','4','5','6','7','8','9'/
34 WRITE(HWUNST,'(7A1)') (NCHAR(NN(I)),I=1,7)