LoggerModule.f90

Go to the documentation of this file.

!===================================================================== 
!===============================================================
module loggermodule
    use filehandlingmodule, only: file
    TYPE(File) :: LogFile
    LOGICAL :: initialized; 
    INTEGER :: err
    ! LogMessage can be used to write variables write (logMessage, *) var
    ! LogInfo(LogMessage)
    character(len=1024) :: logmessage
    private :: logfile, initialized, err, file
contains
!===============================================================
!===================================================================== 
!===============================================================
    SUBROUTINE initlogger(Log_file)
        use filehandlingmodule
        TYPE(file), INTENT(in) :: Log_file
        call openfilew(log_file, err)
        logfile = log_file
        initialized = .true.
    end SUBROUTINE initlogger
!===================================================================== 
!===============================================================
    SUBROUTINE stoplogger()
        use filehandlingmodule
        initialized = .false.
        call closefile(logfile)
    end SUBROUTINE stoplogger
!===================================================================== 
!===============================================================
    SUBROUTINE logerror(msg)
        character(len=*), INTENT(in) :: msg
        call logall("Error", msg)
    end SUBROUTINE logerror
!===================================================================== 
!===============================================================
    SUBROUTINE logwarning(msg)
        character(len=*), INTENT(in) :: msg
        call logall("Warning", msg)
    end SUBROUTINE logwarning
!===================================================================== 
!===============================================================
    SUBROUTINE loginfo(msg)
        character(len=*), INTENT(in) :: msg
        call logall("Info", msg)
    end SUBROUTINE loginfo
!===================================================================== 
!===============================================================
    SUBROUTINE logall(msgType, msg)
        use filehandlingmodule
        character(len=*), INTENT(in) :: msgType
        character(len=*), INTENT(in) :: msg
 
        INTEGER, dimension(8) :: timeVec
 
        call date_and_time(values=timevec)
        if (.NOT. initialized) then
            write (*, 9000) timevec(5), timevec(6), timevec(7), msgtype, trim(msg); 
            return
        end if
        write (*, 9000) timevec(5), timevec(6), timevec(7), msgtype, trim(msg); 
        write (logfile%unit, 9000) timevec(5), timevec(6), timevec(7), msgtype, trim(msg); 
9000    FORMAT('[', i2.2, ':', i2.2, ":", i2.2, "][", a, "] ", a)
    end SUBROUTINE logall
end module loggermodule