C     Simple program
C     
      
      PROGRAM s4
      INTEGER A(100,100)
      INTEGER B(100,100)
      INTEGER C(100,100)
      INTEGER D(100,100)
      INTEGER E(100,100)
      
      INTEGER N,M,I,J,K,L
      
      N = 20 
      M=50
      DO I= 1,N,2
	 DO J = 1,M,1
            DO K = 1,I,1
               DO L=1,K,1
                  A(I,J) = B(K,J) + B(I,K)
                  C(K,L) = E(L,K) * A(I,L)
                  E(I,K) = C(I,J) + D(K,L)
               ENDDO
            ENDDO	
	 ENDDO
      ENDDO
      
      END