function valGrid(this) result(p) type(Grid), intent(in) :: this real(dp), pointer :: p(:) nullify(p) p => this%data%grid_data end function valGrid