Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex, | intent(in), | dimension(:) | :: | val | ||
complex, | intent(in), | dimension(:) | :: | correct | ||
real, | intent(in) | :: | err |
function agrees_with_complex_1d_array(val, correct, err)
complex, dimension(:), intent(in) :: val, correct
real, intent(in) :: err
logical :: agrees_with_complex_1d_array
integer :: n
n = size(val)
agrees_with_complex_1d_array = &
agrees_with_real_1d_array(real(val), real(correct), err) .and. &
agrees_with_real_1d_array(aimag(val), aimag(correct), err)
end function agrees_with_complex_1d_array