[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / cright.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:42  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      SUBROUTINE CRIGHT (CHV,JLP,JRP)
C
C CERN PROGLIB# M432    CRIGHT          .VERSION KERNFOR  4.21  890323
C ORIG. 04/10/88, JZ
C
C-    Right-justify CHV(JL:JR)

      DIMENSION    JLP(9), JRP(9)

      COMMON /SLATE/ NDSLAT,NESLAT, DUMMY(38)
      CHARACTER    CHV*(*)

C--       Find first blank

      JL = JLP(1)
      JR = JRP(1)

      JP = JL - 1
      JJ = JR
   12 IF (JJ.LE.JP)          GO TO 99
      IF (CHV(JJ:JJ).NE.' ')   THEN
          JJ = JJ - 1
          GO TO 12
        ENDIF

C--       Copy shifted

      JP = JJ
      JJ = JJ - 1
   21 IF (JJ.LT.JL)          GO TO 91
      IF (CHV(JJ:JJ).NE.' ')   THEN
          CHV(JP:JP) = CHV(JJ:JJ)
          JP = JP - 1
        ENDIF
      JJ = JJ - 1
      GO TO 21

   91 CHV(JL:JP) = ' '
   99 NESLAT = JP
      NDSLAT = JR - JP
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:42 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	SUBROUTINE CRIGHT (CHV,JLP,JRP)
	11	C
	12	C CERN PROGLIB# M432 CRIGHT .VERSION KERNFOR 4.21 890323
	13	C ORIG. 04/10/88, JZ
	14	C
	15	C- Right-justify CHV(JL:JR)
	16
	17	DIMENSION JLP(9), JRP(9)
	18
	19	COMMON /SLATE/ NDSLAT,NESLAT, DUMMY(38)
	20	CHARACTER CHV()
	21
	22	C-- Find first blank
	23
	24	JL = JLP(1)
	25	JR = JRP(1)
	26
	27	JP = JL - 1
	28	JJ = JR
	29	12 IF (JJ.LE.JP) GO TO 99
	30	IF (CHV(JJ:JJ).NE.' ') THEN
	31	JJ = JJ - 1
	32	GO TO 12
	33	ENDIF
	34
	35	C-- Copy shifted
	36
	37	JP = JJ
	38	JJ = JJ - 1
	39	21 IF (JJ.LT.JL) GO TO 91
	40	IF (CHV(JJ:JJ).NE.' ') THEN
	41	CHV(JP:JP) = CHV(JJ:JJ)
	42	JP = JP - 1
	43	ENDIF
	44	JJ = JJ - 1
	45	GO TO 21
	46
	47	91 CHV(JL:JP) = ' '
	48	99 NESLAT = JP
	49	NDSLAT = JR - JP
	50	RETURN
	51	END