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