remap_bounds_1c Function

private function remap_bounds_1c(lb1, array) result(ptr)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: lb1
complex, intent(in), DIMENSION(lb1:), TARGET :: array

Return Value complex, DIMENSION(:), POINTER


Contents

Source Code

remap_bounds_1c

Source Code

  FUNCTION remap_bounds_1c(lb1, array) RESULT(ptr)
    INTEGER, INTENT(IN)                          :: lb1
    complex, DIMENSION(lb1:), INTENT(IN), TARGET :: array
    complex, DIMENSION(:), POINTER               :: ptr
    ptr => array
  END FUNCTION remap_bounds_1c