MAPL_VarSpecSamePrec Function

public function MAPL_VarSpecSamePrec(s1, s2)

Arguments

Type IntentOptional Attributes Name
type(MAPL_VarSpec), intent(in) :: s1
type(MAPL_VarSpec), intent(in) :: s2

Return Value logical


Called by

proc~~mapl_varspecsameprec~~CalledByGraph proc~mapl_varspecsameprec MAPL_VarSpecSamePrec proc~mapl_genericsetservices MAPL_GenericSetServices proc~mapl_genericsetservices->proc~mapl_varspecsameprec proc~setservices~2 SetServices proc~setservices~2->proc~mapl_genericsetservices proc~setservices~4 SetServices proc~setservices~4->proc~mapl_genericsetservices proc~setservices~5 SetServices proc~setservices~5->proc~mapl_genericsetservices proc~setservices~6 SetServices proc~setservices~6->proc~mapl_genericsetservices proc~setservices~7 SetServices proc~setservices~7->proc~mapl_genericsetservices

Source Code

   function MAPL_VarSpecSamePrec(s1, s2)
      type (MAPL_VarSpec ), intent(in) :: s1, s2
      logical                          :: MAPL_VarSpecSamePrec

      MAPL_VarSpecSamePrec = .FALSE.

      if (S1%SPECPtr%PRECISION /= S2%SPECPtr%PRECISION       ) RETURN

      MAPL_VarSpecSamePrec = .TRUE.
      RETURN
   end function MAPL_VarSpecSamePrec