              PROGRAM MAIN
              complex*16 T1, A(100),B(100)
              complex*16 D11, D12, D21, D22
              D11 = 1.1
              D12 = 1.2
              D21 = 2.1
              D22 = 2.2
              A = 1.0
              DO J = 1, 10
                 T1 = A(J )
                 T2 = A(J+1)
                 A(J) = D11*T1 + D12*T2
                 A(J+1) = D21*T1 + D22*T2
              ENDDO
              DO I = 1, 10
                 PRINT *, A(I)
              ENDDO
              END PROGRAM
