Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | A | |||
character(len=*), | intent(in) | :: | iam | |||
integer, | intent(in) | :: | line | |||
integer, | intent(out), | optional | :: | RC |
logical function MAPL_ASRT(A,iam,line,rc) logical, intent(IN ) :: A character(len=*), intent(IN ) :: iam integer, intent(IN ) :: line integer, optional, intent(OUT) :: RC MAPL_ASRT = .not.A if(MAPL_ASRT)then if(present(RC))then !$omp critical (MAPL_ErrorHandling7) print '(A40,I10)',Iam,LINE !$omp end critical (MAPL_ErrorHandling7) RC=1 endif endif end function MAPL_ASRT