MAPL_VRFY Function

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

Arguments

Type IntentOptional Attributes Name
integer, 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_VRFY(A,iam,line,rc)
      integer,           intent(IN ) :: A
      character(len=*),  intent(IN ) :: iam
      integer,           intent(IN ) :: line
      integer, optional, intent(OUT) :: RC
        MAPL_VRFY = A/=0
        if(MAPL_VRFY)then
          if(present(RC)) then
            !$omp critical (MAPL_ErrorHandling6)
            print '(A40,I10)',Iam,line
            !$omp end critical (MAPL_ErrorHandling6)
            RC=A
          endif
        endif
   end function MAPL_VRFY