1 #ifndef TEST_MODEL_INTERFACE_GB_H
2 #define TEST_MODEL_INTERFACE_GB_H
5 #include "Model/Interface/GB/GB.H"
23 amrex::Real small = 1E-12;
24 amrex::Real tolerance = 1E-3;
29 for (
int i = 0; i<20; i++)
31 amrex::Real theta = 2.0*
Set::Constant::Pi*((amrex::Real)rand()/(amrex::Real)RAND_MAX);
33 amrex::Real numerical_DW = (model.W(theta+small) - model.W(theta-small))/(2.0*small);
34 amrex::Real exact_DW = model.DW(theta);
35 if (fabs(numerical_DW-exact_DW)/(numerical_DW+exact_DW) > tolerance)
50 amrex::Real small = 1E-8;
51 amrex::Real tolerance = 1E-6;
56 for (
int i = 0; i<20; i++)
58 amrex::Real theta = 2.0*
Set::Constant::Pi*((amrex::Real)rand()/(amrex::Real)RAND_MAX);
60 amrex::Real numerical_DDW = (model.DW(theta+small) - model.DW(theta-small))/(2.0*small);
61 amrex::Real exact_DDW = model.DDW(theta);
62 if (fabs((numerical_DDW-exact_DDW)/(numerical_DDW+exact_DDW)) > tolerance)