From 906f8864afe0779969761523ec169d538e6c7b3c Mon Sep 17 00:00:00 2001 From: Sterling Harper Date: Fri, 24 Oct 2014 17:26:35 -0400 Subject: [PATCH] Add 'implicit none' to modules --- src/eigenvalue.F90 | 1 + src/endf.F90 | 2 ++ src/energy_grid.F90 | 2 ++ src/fixed_source.F90 | 2 ++ src/search.F90 | 2 ++ src/tracking.F90 | 2 ++ 6 files changed, 11 insertions(+) diff --git a/src/eigenvalue.F90 b/src/eigenvalue.F90 index c46f90ab17..58dd02841f 100644 --- a/src/eigenvalue.F90 +++ b/src/eigenvalue.F90 @@ -23,6 +23,7 @@ module eigenvalue reset_result use tracking, only: transport + implicit none private public :: run_eigenvalue diff --git a/src/endf.F90 b/src/endf.F90 index 924e125575..fb85262b20 100644 --- a/src/endf.F90 +++ b/src/endf.F90 @@ -3,6 +3,8 @@ module endf use constants use string, only: to_str + implicit none + contains !=============================================================================== diff --git a/src/energy_grid.F90 b/src/energy_grid.F90 index a006959d92..4c4061a201 100644 --- a/src/energy_grid.F90 +++ b/src/energy_grid.F90 @@ -5,6 +5,8 @@ module energy_grid use list_header, only: ListReal use output, only: write_message + implicit none + contains !=============================================================================== diff --git a/src/fixed_source.F90 b/src/fixed_source.F90 index 3cbf8673a6..4e7d9642f4 100644 --- a/src/fixed_source.F90 +++ b/src/fixed_source.F90 @@ -11,6 +11,8 @@ module fixed_source use tally, only: synchronize_tallies, setup_active_usertallies use tracking, only: transport + implicit none + contains subroutine run_fixedsource() diff --git a/src/search.F90 b/src/search.F90 index c8fc71d365..8de05a955b 100644 --- a/src/search.F90 +++ b/src/search.F90 @@ -3,6 +3,8 @@ module search use constants use error, only: fatal_error + implicit none + integer, parameter :: MAX_ITERATION = 64 interface binary_search diff --git a/src/tracking.F90 b/src/tracking.F90 index 9545d41ee6..d108325fa0 100644 --- a/src/tracking.F90 +++ b/src/tracking.F90 @@ -16,6 +16,8 @@ module tracking use track_output, only: initialize_particle_track, write_particle_track, & finalize_particle_track + implicit none + contains !===============================================================================