58 real(RP),
dimension(:,:),
intent(out) :: y
59 real(RP),
dimension(:,:),
intent(in) :: x
64 if (
size(x,1) <
size(y,1))
call quit(&
65 &
"R2d_mod: R2d_copy: 1" )
66 if (
size(x,2) <
size(y,2))
call quit(&
67 &
"R2d_mod: R2d_copy: 2" )
75 y(1:n1, ii) = x(1:n1, ii)
subroutine r2d_copy(y, x)
y(:,:) := x(:,:)
integer, parameter, public rp
real(kind=RP) = real precision in the code REAL_TOL = epsilon to test real equality ...
REAL NUMBERS PRECISION IN CHORAL: selects simple/double/quad
OPENMP OPERATIONS ON 2-DIMENSIONAL REAL ARRAYS