5 * Revision 1.1.1.1 1996/02/15 17:49:42 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE CRIGHT (CHV,JLP,JRP)
12 C CERN PROGLIB# M432 CRIGHT .VERSION KERNFOR 4.21 890323
15 C- Right-justify CHV(JL:JR)
17 DIMENSION JLP(9), JRP(9)
19 COMMON /SLATE/ NDSLAT,NESLAT, DUMMY(38)
29 12 IF (JJ.LE.JP) GO TO 99
30 IF (CHV(JJ:JJ).NE.' ') THEN
39 21 IF (JJ.LT.JL) GO TO 91
40 IF (CHV(JJ:JJ).NE.' ') THEN
41 CHV(JP:JP) = CHV(JJ:JJ)