MINICERN/mathlib/gen/divon/delete.F

   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