5 * Revision 1.1.1.1 1996/02/15 17:49:43 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE CSETVI (NINTP,INTV,NBIASP,CHV,JLP,JRP,NSTEPP,IFLSQP)
12 C CERN PROGLIB# M432 CSETVI .VERSION KERNFOR 4.36 930602
15 C- Set NINT decimal integers INTV(J)+NBIAS into CHV(JL:JR)
16 C- every NSTEP columns, each with one leading blank
17 C- and right-justified within its field;
18 C- squeeze multiple blanks if IFLSQ non-zero.
20 COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT, DUMMY(36)
22 DIMENSION NINTP(9), NBIASP(9)
23 DIMENSION JLP(9), JRP(9), NSTEPP(9), IFLSQP(9)
32 LIMIT = JRP(1) - NSTEP + 1
37 IF (JWK.GE.LIMIT) THEN
38 IF (IFLSQ.EQ.0) GO TO 91
39 IF (JIN.EQ.1) GO TO 91
40 CALL CSQMBL (CHV,JL,JWK)
42 IF (JWK.GE.LIMIT) GO TO 91
44 JVAL = INTV(JIN) + NBIAS
45 CALL CSETDI (JVAL,CHV,JWK+2,JWK+NSTEP)
49 CALL CSQMBL (CHV,JL,JWK)