remap_bounds_3r Function

private function remap_bounds_3r(lb1, lb2, lb3, array) result(ptr)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: lb1
integer, intent(in) :: lb2
integer, intent(in) :: lb3
real, intent(in), DIMENSION(lb1:,lb2:,lb3:), TARGET :: array

Return Value real, DIMENSION(:,:,:), POINTER


Contents

Source Code

remap_bounds_3r

Source Code

  FUNCTION remap_bounds_3r(lb1, lb2, lb3, array) RESULT(ptr)
    INTEGER, INTENT(IN)                            :: lb1,lb2,lb3
    real, DIMENSION(lb1:,lb2:,lb3:), INTENT(IN), TARGET :: array
    real, DIMENSION(:,:,:), POINTER                  :: ptr
    ptr => array
  END FUNCTION remap_bounds_3r