dbcsr_logger_set Subroutine

public subroutine dbcsr_logger_set(logger, local_filename, global_filename)

sets various attributes of the given logger

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_logger_type), POINTER:: logger

the logger you want to change

character(len=*), intent(in), optional :: local_filename

the root of the name of the file used for local logging the root of the name of the file used for global logging

character(len=*), intent(in), optional :: global_filename

the root of the name of the file used for local logging the root of the name of the file used for global logging


Contents

Source Code


Source Code

   SUBROUTINE dbcsr_logger_set(logger, local_filename, global_filename)
      !! sets various attributes of the given logger

      TYPE(dbcsr_logger_type), POINTER                   :: logger
         !! the logger you want to change
      CHARACTER(len=*), INTENT(in), OPTIONAL             :: local_filename, global_filename
         !! the root of the name of the file used for local logging
         !! the root of the name of the file used for global logging

      CHARACTER(len=*), PARAMETER :: routineN = 'dbcsr_logger_set', &
                                     routineP = moduleN//':'//routineN

      IF (.NOT. ASSOCIATED(logger)) &
         DBCSR_ABORT(routineP//" unassociated logger")
      IF (PRESENT(local_filename)) logger%local_filename = local_filename
      IF (PRESENT(global_filename)) logger%global_filename = global_filename
   END SUBROUTINE dbcsr_logger_set