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