From 287f9866232f8e77efc234d17112a33e73c62d83 Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Thu, 8 May 2014 14:25:37 -0400 Subject: [PATCH] fixed openmp build warnings --- src/eigenvalue.F90 | 4 ++-- src/initialize.F90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/eigenvalue.F90 b/src/eigenvalue.F90 index 72fb27f92b..37edb922c4 100644 --- a/src/eigenvalue.F90 +++ b/src/eigenvalue.F90 @@ -834,8 +834,8 @@ contains subroutine join_bank_from_threads() - integer :: total ! total number of fission bank sites - integer :: i ! loop index for threads + integer(8) :: total ! total number of fission bank sites + integer :: i ! loop index for threads ! Initialize the total number of fission bank sites total = 0 diff --git a/src/initialize.F90 b/src/initialize.F90 index 52869a281e..c36977510b 100644 --- a/src/initialize.F90 +++ b/src/initialize.F90 @@ -416,7 +416,7 @@ contains #ifdef _OPENMP ! Read and set number of OpenMP threads - n_threads = str_to_int(argv(i)) + n_threads = int(str_to_int(argv(i)), 4) if (n_threads < 1) then message = "Invalid number of threads specified on command line." call fatal_error()