Sanitize R16P exploitation

szaghi · szaghi · commit 6508d02246be · 2017-04-12T14:38:40.000+02:00
Sanitize R16P exploitation by means of PENF.

Trim out foodie_kinds module in flavor of PENF one.
diff --git a/src/lib/foodie.f90 b/src/lib/foodie.f90
@@ -65,7 +65,6 @@ module foodie
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
 use foodie_integrator_object, only : integrator_object
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_adams_bashforth, only : integrator_adams_bashforth
 use foodie_integrator_adams_bashforth_moulton, only : integrator_adams_bashforth_moulton
 use foodie_integrator_adams_moulton, only : integrator_adams_moulton
@@ -78,6 +77,7 @@ module foodie
 use foodie_integrator_runge_kutta_emd, only : integrator_runge_kutta_emd
 use foodie_integrator_runge_kutta_low_storage, only : integrator_runge_kutta_ls
 use foodie_integrator_runge_kutta_ssp, only : integrator_runge_kutta_ssp
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_adt_integrand.f90 b/src/lib/foodie_adt_integrand.f90
@@ -3,7 +3,7 @@
 module foodie_adt_integrand
 !< Define the abstract type *integrand* for building FOODIE ODE integrators.
 
-use foodie_kinds, only : R_P
+use penf, only : R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_error_codes.f90 b/src/lib/foodie_error_codes.f90
@@ -3,7 +3,7 @@
 module foodie_error_codes
 !< FOODIE error codes list.
 
-use foodie_kinds, only : I_P
+use penf, only : I_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_adams_bashforth.f90 b/src/lib/foodie_integrator_adams_bashforth.f90
@@ -28,8 +28,8 @@ module foodie_integrator_adams_bashforth
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_adams_bashforth_moulton.f90 b/src/lib/foodie_integrator_adams_bashforth_moulton.f90
@@ -78,10 +78,10 @@ module foodie_integrator_adams_bashforth_moulton
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_adams_bashforth, only : integrator_adams_bashforth
 use foodie_integrator_adams_moulton, only : integrator_adams_moulton
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_adams_moulton.f90 b/src/lib/foodie_integrator_adams_moulton.f90
@@ -29,8 +29,8 @@ module foodie_integrator_adams_moulton
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_backward_differentiation_formula.f90 b/src/lib/foodie_integrator_backward_differentiation_formula.f90
@@ -35,8 +35,8 @@ module foodie_integrator_backward_differentiation_formula
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_euler_explicit.f90 b/src/lib/foodie_integrator_euler_explicit.f90
@@ -15,8 +15,8 @@ module foodie_integrator_euler_explicit
 !< @note The value of \(\Delta t\) must be provided, it not being computed by the integrator.
 
 use foodie_adt_integrand, only : integrand
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_leapfrog.f90 b/src/lib/foodie_integrator_leapfrog.f90
@@ -38,8 +38,8 @@ module foodie_integrator_leapfrog
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_lmm_ssp.f90 b/src/lib/foodie_integrator_lmm_ssp.f90
@@ -28,8 +28,8 @@ module foodie_integrator_lmm_ssp
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_lmm_ssp_vss.f90 b/src/lib/foodie_integrator_lmm_ssp_vss.f90
@@ -39,8 +39,8 @@ module foodie_integrator_lmm_ssp_vss
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_ms_runge_kutta_ssp.f90 b/src/lib/foodie_integrator_ms_runge_kutta_ssp.f90
@@ -36,8 +36,8 @@ module foodie_integrator_ms_runge_kutta_ssp
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_object.f90 b/src/lib/foodie_integrator_object.f90
@@ -4,7 +4,7 @@ module foodie_integrator_object
 !< Define the abstract type *integrator* of FOODIE ODE integrators.
 
 use, intrinsic :: iso_fortran_env, only : stderr=>error_unit
-use foodie_kinds, only : I_P
+use penf, only : I_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_runge_kutta_embedded.f90 b/src/lib/foodie_integrator_runge_kutta_embedded.f90
@@ -268,8 +268,8 @@ module foodie_integrator_runge_kutta_emd
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_runge_kutta_low_storage.f90 b/src/lib/foodie_integrator_runge_kutta_low_storage.f90
@@ -149,8 +149,8 @@ module foodie_integrator_runge_kutta_low_storage
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, I8P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, I8P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_integrator_runge_kutta_ssp.f90 b/src/lib/foodie_integrator_runge_kutta_ssp.f90
@@ -102,8 +102,8 @@ module foodie_integrator_runge_kutta_ssp
 
 use foodie_adt_integrand, only : integrand
 use foodie_error_codes, only : ERROR_UNSUPPORTED_SCHEME
-use foodie_kinds, only : I_P, R_P
 use foodie_integrator_object, only : integrator_object
+use penf, only : I_P, R_P
 
 implicit none
 private
diff --git a/src/lib/foodie_kinds.f90 b/src/lib/foodie_kinds.f90
diff --git a/src/lib/foodie_utils.f90 b/src/lib/foodie_utils.f90
@@ -3,7 +3,7 @@
 module foodie_utils
 !< FOODIE utils: module of (possible) unrelated utilities of FOODIE library.
 
-use foodie_kinds, only : I_P
+use penf, only : I_P
 
 implicit none
 private
diff --git a/src/tests/accuracy/oscillation/fobos b/src/tests/accuracy/oscillation/fobos
@@ -6,16 +6,16 @@ modes = gnu gnu-debug gnu-coverage
         intel-pure intel-debug-pure
 
 [common-variables]
-$CSTATIC_GNU          = -cpp -c -frealloc-lhs
-$CSTATIC_INT          = -cpp -c -assume realloc_lhs
-$DEBUG_GNU            = -Og -g3 -Warray-bounds -Wcharacter-truncation -Wline-truncation -Wimplicit-interface -Wimplicit-procedure -Wunderflow -Wuninitialized -fcheck=all -fmodule-private -ffree-line-length-132 -fimplicit-none -fbacktrace -fdump-core -finit-real=nan -std=f2008 -fall-intrinsics
-$DEBUG_INT            = -O0 -debug all -check all -warn all -extend-source 132 -traceback -gen-interfaces -fp-stack-check -fstack-protector-all -ftrapuv -no-ftz -std08
-$OPTIMIZE             = -O2
-$EXDIRS               = src/tests/parallel/ src/tests/regression/
-                        PENF/src/tests/
-                        FACE/src/tests/ FACE/src/third_party/
-                        FLAP/src/tests/ FLAP/src/third_party/
-                        WenOOF/src/tests/ WenOOF/src/third_party/
+$CSTATIC_GNU = -cpp -c -frealloc-lhs
+$CSTATIC_INT = -cpp -c -assume realloc_lhs
+$DEBUG_GNU   = -Og -g3 -Warray-bounds -Wcharacter-truncation -Wline-truncation -Wimplicit-interface -Wimplicit-procedure -Wunderflow -Wuninitialized -fcheck=all -fmodule-private -ffree-line-length-132 -fimplicit-none -fbacktrace -fdump-core -finit-real=nan -std=f2008 -fall-intrinsics
+$DEBUG_INT   = -O0 -debug all -check all -warn all -extend-source 132 -traceback -gen-interfaces -fp-stack-check -fstack-protector-all -ftrapuv -no-ftz -std08
+$OPTIMIZE    = -O2
+$EXDIRS      = src/tests/parallel/ src/tests/regression/
+               PENF/src/tests/
+               FACE/src/tests/ FACE/src/third_party/
+               FLAP/src/tests/ FLAP/src/third_party/
+               WenOOF/src/tests/ WenOOF/src/third_party/
 
 # main modes
 [gnu]
@@ -35,8 +35,8 @@ template = template-common
 [gnu-coverage]
 help     = Build test in release coverage mode with GNU gfortran
 compiler = gnu
-cflags   = $CSTATIC_GNU $OPTIMIZE
-lflags   = $OPTIMIZE
+cflags   = $CSTATIC_GNU $DEBUG_GNU
+lflags   = $DEBUG_GNU
 coverage = True
 template = template-common
 
@@ -125,4 +125,3 @@ colors          = True
 quiet           = False
 log             = True
 jobs            = 10
-
diff --git a/src/third_party/FACE b/src/third_party/FACE
@@ -1 +1 @@
-Subproject commit bc8290874430b454ec57e255185ba1ab7419766f
+Subproject commit 04e6b28cd94bf5b8c1816a9ac52f2745f5efb213
diff --git a/src/third_party/FLAP b/src/third_party/FLAP
@@ -1 +1 @@
-Subproject commit 0069a3b8026db5c1331e0b2adfce92250eb1846d
+Subproject commit 3243f11b9ca4cdb932a6d514eb42415e9aad5eaa
diff --git a/src/third_party/PENF b/src/third_party/PENF
@@ -1 +1 @@
-Subproject commit e4ddeb2c3f02047a371f909b4e0e69a2926550a2
+Subproject commit cb1fee23accc4c80ebcb9ab3f49285b0334aa431
diff --git a/src/third_party/WenOOF b/src/third_party/WenOOF
@@ -1 +1 @@
-Subproject commit 788e973129538283199d8d6bf1bbfc8e5af7dd5e
+Subproject commit e2deb104603d3ab06dc8636432df70553c0c38b9
diff --git a/src/third_party/pyplot-fortran b/src/third_party/pyplot-fortran
@@ -1 +1 @@
-Subproject commit 88c1ce059f805bdd55dca51220daa881f38ba7bf
+Subproject commit 24e9673d1da0f8bb13255ba367a58e70d54e8c27
