MINICERN/mathlib/gen/d/newro.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:19  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE NEWRO(M1,N,IBCX,DELTAX,POT,POTW,POTE,POTS,POTN)
  11       DIMENSION POT(M1,N)
  12       DIMENSION POTW(N),POTE(N),POTS(M1),POTN(M1)
  13       M=M1-1
  14       COEFX=2.*DELTAX
  15       GO TO (100,200,300,400),IBCX
  16  100  RETURN
  17  200  DO 1 J=1,N
  18       POT(1,J)=POT(1,J)+COEFX*POTW(J)
  19  1    POT(M1,J)=POT(M1,J)-COEFX*POTE(J)
  20       RETURN
  21  300  DO 2 J=1,N
  22       POT(1,J)=POTW(J)
  23       POT(M1,J)=POTE(J)
  24       POT(2,J)=POT(2,J)-POTW(J)
  25  2    POT(M,J)=POT(M,J)-POTE(J)
  26       RETURN
  27  400  DO 3 J=1,N
  28       POT(1,J)=POTW(J)
  29       POT(2,J)=POT(2,J)-POTW(J)
  30  3    POT(M1,J)=POT(M1,J)-COEFX*POTE(J)
  31       RETURN
  32       END