C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ SUBROUTINE SIMP C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ IMPLICIT REAL(A-H,O-Y) IMPLICIT COMPLEX(Z) PARAMETER(KIZA=421) COMMON/OM/ OMO(KIZA) OMO(1) = 1.0D0 DO 1101 N = 2,KIZA-1,2 OMO(N) = 4.0D0 OMO(N+1) = 2.0D0 1101 CONTINUE OMO(KIZA) = 1.0D0 RETURN END