1       PARAMETER( LM=7 )
2      PARAMETER( NM=2+2**LM, NV=NM**3 )
3      PARAMETER( NR = (8*(NM**3+NM**2+5*NM-23+7*LM))/7 )
4	COMMON /X/ U, V, R, A
5      REAL*8 U(NR),V(NV),R(NR),A(0:3)
6      DO 20 IT=1,NIT
7        CALL RESID(U,V,R,N,A)
8 20   CONTINUE
9      END
10