MAPL_ASRT Function

public function MAPL_ASRT(A, iam, line, RC)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: A
character(len=*), intent(in) :: iam
integer, intent(in) :: line
integer, intent(out), optional :: RC

Return Value logical


Source Code

   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