should_be_real Subroutine

private subroutine should_be_real(val, rslt)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: val
real, intent(in) :: rslt

Contents

Source Code

should_be_real

Source Code

  subroutine should_be_real(val, rslt)
    real, intent(in) :: val, rslt
    if (should_print(3)) write (*,*) '      Value: ', val, ' should be ', rslt, proc_message()
  end subroutine should_be_real