Commit 7c79b4c5 authored by Roy Fabrice's avatar Roy Fabrice
Browse files

add alloc real64 1d array

parent d09b0272
......@@ -31,7 +31,7 @@ module allocation_m
use common_shared_variables_m, only : mpi_process, timer
use error_codes_m, only : ALLOCATE_ERROR_CODE, ALREADY_ALLOCATED_CODE, DEALLOCATE_ERROR_CODE, NOT_ALLOCATED_CODE
use error_handling_m, only : ERR_MSG_LEN, Algorithmic_error, Allocate_error, Deallocate_error
use iso_fortran_env, only : ERROR_UNIT, INT32, INT64, OUTPUT_UNIT, REAL32
use iso_fortran_env, only : ERROR_UNIT, INT32, INT64, OUTPUT_UNIT, REAL32, REAL64
implicit none
private
......@@ -45,6 +45,12 @@ module allocation_m
!> @param[in] array_name name of the array, used for error handling and logging
!> @param[in] caller_name name of the subroutine calling the allocation subroutine, used for error handling and logging
interface Alloc
module subroutine Alloc_d1d(array, dims, array_name, caller_name)
real(REAL64), allocatable, dimension(:), intent(inout) :: array
integer(INT32), intent(in) :: dims
character(*), intent(in) :: array_name
character(*), intent(in) :: caller_name
end subroutine Alloc_d1d
module subroutine Alloc_r1d(array, dims, array_name, caller_name)
real(REAL32), allocatable, dimension(:), intent(inout) :: array
integer(INT32), intent(in) :: dims
......
Supports Markdown
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