[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / divon / delete.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:03:26  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE DELETE (NLEN,IARRAY,IVALUE,IPOS)
      INTEGER NLEN, IVALUE, IPOS
      INTEGER IARRAY(NLEN)
      INTEGER I, NLENM1
      IPOS=0
      DO 10 I=1,NLEN
      IF(IVALUE.NE.IARRAY(I)) GOTO 10
      IPOS=I
      GOTO 20
 10   CONTINUE
      RETURN
 20   IF(IPOS.EQ.NLEN) RETURN
      NLENM1=NLEN-1
      DO 30 I=IPOS,NLENM1
      IARRAY(I)=IARRAY(I+1)
 30   CONTINUE
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:03:26 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	SUBROUTINE DELETE (NLEN,IARRAY,IVALUE,IPOS)
	11	INTEGER NLEN, IVALUE, IPOS
	12	INTEGER IARRAY(NLEN)
	13	INTEGER I, NLENM1
	14	IPOS=0
	15	DO 10 I=1,NLEN
	16	IF(IVALUE.NE.IARRAY(I)) GOTO 10
	17	IPOS=I
	18	GOTO 20
	19	10 CONTINUE
	20	RETURN
	21	20 IF(IPOS.EQ.NLEN) RETURN
	22	NLENM1=NLEN-1
	23	DO 30 I=IPOS,NLENM1
	24	IARRAY(I)=IARRAY(I+1)
	25	30 CONTINUE
	26	RETURN
	27	END