SUBROUTINE OPERATE (ARG)
    IMPLICIT NONE
    REAL, DIMENSION(:, :) :: ARG
    REAL, DIMENSION(:, :), ALLOCATABLE :: TEMP
    ALLOCATE(TEMP(UBOUND(ARG, 1), UBOUND(ARG, 2)))
END SUBROUTINE OPERATE