Commit c1c4fd04 authored by Robert Schweppe's avatar Robert Schweppe
Browse files

[skip_ci]

- fixed bug in temp design
parent cbde6d2b
Pipeline #28311 skipped
......@@ -1183,28 +1183,26 @@ contains
end subroutine execute_CoordUpscaler
function allo_dp_1d(n) result(arr)
integer(i4), intent(in) :: n
real(dp), intent(out) :: arr
allocate(arr(n))
integer(ix), intent(in) :: n
real(dp), dimension(n) :: arr
arr = nodata_dp
end function allo_dp_1d
function allo_log_1d(n) result(arr)
integer(i4), intent(in) :: n
logical, intent(out) :: arr
allocate(arr(n))
integer(ix), intent(in) :: n
logical, dimension(n) :: arr
arr = .false.
end function allo_log_1d
subroutine move_alloc_dp_1d(from, to)
real(dp), dimension(:), intent(inout) :: from
real(dp), dimension(:), intent(inout) :: to
real(dp), dimension(:), allocatable, intent(inout) :: from
real(dp), dimension(:), allocatable, intent(inout) :: to
call move_alloc(from, to)
end subroutine move_alloc_dp_1d
subroutine move_alloc_log_1d(from, to)
logical, dimension(:), intent(inout) :: from
logical, dimension(:), intent(inout) :: to
logical, dimension(:), allocatable, intent(inout) :: from
logical, dimension(:), allocatable, intent(inout) :: to
call move_alloc(from, to)
end subroutine move_alloc_log_1d
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment