MAPL_RTRN Function

public function MAPL_RTRN(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_RTRN(A,iam,line,rc)
      integer,           intent(IN ) :: A
      character(len=*),  intent(IN ) :: iam
      integer,           intent(IN ) :: line
      integer, optional, intent(OUT) :: RC

        MAPL_RTRN = .true.
        !$omp critical (MAPL_ErrorHandling5)
        if(A/=0) print '(A40,I10)',Iam,line
        !$omp end critical (MAPL_ErrorHandling5)
        if(present(RC)) RC=A
   end function MAPL_RTRN