Log an informational message.
@param[in] message Info message to log
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | message |
subroutine s3_log_info(message) character(len=*), intent(in) :: message if (current_log_level >= S3_LOG_LEVEL_INFO) then write(*, '(A,A)') '[S3 INFO] ', trim(message) end if end subroutine s3_log_info