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