agrees_with_complex_1d_array Function

private function agrees_with_complex_1d_array(val, correct, err)

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension(:) :: val
complex, intent(in), dimension(:) :: correct
real, intent(in) :: err

Return Value logical


Contents


Source Code

  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