This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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