Go to the documentation of this file.00001
00002
00003
00004
00005 #ifndef _FML_CONSTANTS_H_
00006 #define _FML_CONSTANTS_H_
00007
00008 #define stop_arith 100
00009 #define stop_div0 101
00010 #define stop_sqrt 102
00011
00012 #define stop_overflow 200
00013 #define stop_array_indice_exceed 201
00014 #define stop_array_compatible 202
00015 #define stop_array_diag_compatible 203
00016
00017 #define stop_array_singular 300
00018 #define stop_array_diverge 301
00019 #define stop_array_symmetric 302
00020 #define stop_array_positive 304
00021 #define stop_array_factorisation 305
00022
00023 #define stop_method_exist 400
00024
00025 #define stop_std 1100
00026 #define stop_err 1101
00027 #define stop_tst 1102
00028
00029 #define stop_aloc 2001
00030 #define stop_dealoc 2002
00031
00032 #define stop_open_file 3001
00033 #define stop_write_file 3011
00034
00035
00036
00037
00038 #define OMP_NUM_THREADS 2
00039
00040 #define use_type
00041
00042 #ifdef use_type
00043 #define type_precision real*4
00044 #define mpi_type_precision MPI_REAL
00045 #define p_abs abs
00046 #define p_sqrt sqrt
00047 #define p_cast dble
00048 #define p_dble dble
00049 #define p_sngl real
00050 #define p_notcast real
00051 #define p_un 1.0
00052 #define p_mun -1.0
00053 #define p_eps 1.e-16
00054 #define p_iter_eps 1.e-7
00055 #define p_fmt_file '(f0.8)'
00056 #else
00057 #define type_precision real*8
00058 #define mpi_type_precision MPI_REAL8
00059 #define p_abs dabs
00060 #define p_sqrt dsqrt
00061 #define p_cast real
00062 #define p_dble dble
00063 #define p_sngl real
00064 #define p_notcast dble
00065 #define p_un 1.d0
00066 #define p_mun -1.d0
00067 #define p_eps 1.e-16
00068 #define p_iter_eps 1.e-9
00069 #define p_fmt_file '(f0.16)'
00070 #endif
00071
00072 #define len_what_exception 100
00073
00074 #define DEBUGPRINT(txtmsg,msg) write(*,*),'txtmsg',':',msg
00075 #define DEBUGPRINT_MPI(txtmsg,msg,myrank) write(*,*),'txtmsg',':',msg,myrank
00076
00077
00078 #define DEBUG_EXCEPTION
00079
00080
00081 #define MASTER_ID 0
00082
00083
00084 #include "fml_timing.h"
00085
00086 #include "fml_debug.h"
00087
00088
00089 #endif