diff --git a/src/Makefile b/src/Makefile index 9b7cc0892a..7de59c267d 100644 --- a/src/Makefile +++ b/src/Makefile @@ -77,10 +77,9 @@ ifeq ($(COMPILER),gfortran) endif # use petsc compiler - ifeq ($(COMPILER),petsc) F90 = ${FLINKER} - F90FLAGS := -cpp -ffree-form + F90FLAGS := -cpp -ffree-form -I ${PETSC_DIR}/include include ${PETSC_DIR}/conf/variables include ${PETSC_DIR}/conf/rules LDFLAGS = ${PETSC_SYS_LIB} diff --git a/src/cmfd_header.f90 b/src/cmfd_header.F90 similarity index 100% rename from src/cmfd_header.f90 rename to src/cmfd_header.F90 diff --git a/src/cmfd_utils.f90 b/src/cmfd_utils.F90 similarity index 100% rename from src/cmfd_utils.f90 rename to src/cmfd_utils.F90 diff --git a/src/source.F90 b/src/source.F90 index b3b9a552f1..aa326be32a 100644 --- a/src/source.F90 +++ b/src/source.F90 @@ -45,11 +45,11 @@ contains ! Allocate source bank allocate(source_bank(maxwork), STAT=alloc_err) if (alloc_err /= 0) then -#ifndef NO_F2008 - bytes = maxwork * storage_size(bank_obj) / 8 -#else +!#ifndef NO_F2008 +! bytes = maxwork * storage_size(bank_obj) / 8 +!#else bytes = maxwork * 64 / 8 -#endif +!#endif message = "Could not allocate source bank. Attempted to allocate " & // trim(int_to_str(bytes)) // " bytes." call fatal_error() @@ -58,11 +58,11 @@ contains ! Allocate fission bank allocate(fission_bank(3*maxwork), STAT=alloc_err) if (alloc_err /= 0) then -#ifndef NO_F2008 - bytes = 3 * maxwork * storage_size(bank_obj) / 8 -#else +!#ifndef NO_F2008 +! bytes = 3 * maxwork * storage_size(bank_obj) / 8 +!#else bytes = 3 * maxwork * 64 / 8 -#endif +!#endif message = "Could not allocate fission bank. Attempted to allocate " & // trim(int_to_str(bytes)) // " bytes." call fatal_error()