MAPL_SetFailOnDeprecated Subroutine

public subroutine MAPL_SetFailOnDeprecated(flag)

Arguments

Type IntentOptional Attributes Name
logical, intent(in), optional :: flag

Source Code

   subroutine MAPL_SetFailOnDeprecated(flag)
      logical, optional, intent(in) :: flag

      logical :: flag_
      flag_ = .true.
      if (present(flag)) flag_ = flag

      FAIL_ON_DEPRECATED = flag_
   end subroutine MAPL_SetFailOnDeprecated