Subversion Repositories openrisc

MODULE  M1
  IMPLICIT NONE
  TYPE mmm
    COMPLEX(KIND=8), DIMENSION(:,:), POINTER :: data
  END TYPE mmm

CONTAINS

  SUBROUTINE S(ma,mb,mc)
      TYPE(mmm), POINTER :: ma,mb,mc
      COMPLEX(KIND=8), DIMENSION(:, :), &
        POINTER                                :: a, b, c
      INTEGER :: i,j
      a=>ma%data
      b=>mb%data
      c=>mc%data
      DO i=1,size(a,1)
      DO j=1,size(a,2)
         c(i,j)=a(i,j)*b(i,j)
      ENDDO
      ENDDO
  END SUBROUTINE

END MODULE M1