KIM API V2
kim_model_compute_arguments_create_log_macros.fd
Go to the documentation of this file.
1 !
2 ! CDDL HEADER START
3 !
4 ! The contents of this file are subject to the terms of the Common Development
5 ! and Distribution License Version 1.0 (the "License").
6 !
7 ! You can obtain a copy of the license at
8 ! http:!www.opensource.org/licenses/CDDL-1.0. See the License for the
9 ! specific language governing permissions and limitations under the License.
10 !
11 ! When distributing Covered Code, include this CDDL HEADER in each file and
12 ! include the License file in a prominent location with the name LICENSE.CDDL.
13 ! If applicable, add the following below this CDDL HEADER, with the fields
14 ! enclosed by brackets "[]" replaced with your own identifying information:
15 !
16 ! Portions Copyright (c) [yyyy] [name of copyright owner]. All rights reserved.
17 !
18 ! CDDL HEADER END
19 !
20 
21 !
22 ! Copyright (c) 2016--2018, Regents of the University of Minnesota.
23 ! All rights reserved.
24 !
25 ! Contributors:
26 ! Ryan S. Elliott
27 !
28 
29 !
30 ! Release: This file is part of the kim-api-v2.0.0-beta.0 package.
31 !
32 
33 
34 !
35 ! Line length limits require renaming the log functions in the use statement.
36 ! To employ the macros contained in this file use the following syntax in your
37 ! Fortran source code:
38 !
39 ! use kim_model_compute_arguments_create_module, &
40 ! log_entry => kim_model_compute_arguments_create_log_entry
41 !
42 
43 #include "KIM_LOG_DEFINES.inc"
44 
45 #undef FATAL_VERBOSITY
46 #define FATAL_VERBOSITY (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_FATAL_)
47 #ifdef LOG_FATAL
48 #undef LOG_FATAL
49 #endif
50 #if (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_FATAL_)
51 #define LOG_FATAL()\
52 call log_entry(model_compute_arguments_create_handle, kim_log_verbosity_fatal, kim_log_message, __LINE__, kim_log_file)
53 #else
54 #define LOG_FATAL()
55 #endif
56 
57 #undef ERROR_VERBOSITY
58 #define ERROR_VERBOSITY (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_ERROR_)
59 #ifdef LOG_ERROR
60 #undef LOG_ERROR
61 #endif
62 #if (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_ERROR_)
63 #define LOG_ERROR()\
64 call log_entry(model_compute_arguments_create_handle, kim_log_verbosity_error, kim_log_message, __LINE__, kim_log_file)
65 #else
66 #define LOG_ERROR()
67 #endif
68 
69 #undef WARNING_VERBOSITY
70 #define WARNING_VERBOSITY (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_WARNING_)
71 #ifdef LOG_WARNING
72 #undef LOG_WARNING
73 #endif
74 #if (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_WARNING_)
75 #define LOG_WARNING()\
76 call log_entry(model_compute_arguments_create_handle, kim_log_verbosity_warning, kim_log_message, __LINE__, kim_log_file)
77 #else
78 #define LOG_WARNING()
79 #endif
80 
81 #undef INFORMATION_VERBOSITY
82 #define INFORMATION_VERBOSITY (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_INFORMATION_)
83 #ifdef LOG_INFORMATION
84 #undef LOG_INFORMATION
85 #endif
86 #if (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_INFORMATION_)
87 #define LOG_INFORMATION()\
88 call log_entry(model_compute_arguments_create_handle, kim_log_verbosity_information, kim_log_message, __LINE__, kim_log_file)
89 #else
90 #define LOG_INFORMATION()
91 #endif
92 
93 #undef DEBUG_VERBOSITY
94 #define DEBUG_VERBOSITY (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_DEBUG_)
95 #ifdef LOG_DEBUG
96 #undef LOG_DEBUG
97 #endif
98 #if (KIM_LOG_MAXIMUM_LEVEL >= KIM_LOG_VERBOSITY_DEBUG_)
99 #define LOG_DEBUG()\
100 call log_entry(model_compute_arguments_create_handle, kim_log_verbosity_debug, kim_log_message, __LINE__, kim_log_file)
101 #else
102 #define LOG_DEBUG()
103 #endif