added "-assume byterecl" in Makefile for ifortran to specify with "recl=" the size of the file in bytes instead of 4byte chunk when opening files. (same as in gfortran per default).
no important changes in other files
This commit is contained in:
parent
012d568cf8
commit
04d83ec9cd
|
@ -121,10 +121,11 @@ OPTIMIZATION_DEFENSIVE_gfortran :=-O2
|
|||
OPTIMIZATION_AGGRESSIVE_ifort :=-O3 $(PORTABLE_SWITCH) -ipo -static -no-prec-div -fp-model fast=2
|
||||
OPTIMIZATION_AGGRESSIVE_gfortran :=-O3 $(PORTABLE_SWITCH) -ffast-math -funroll-loops -ftree-vectorize
|
||||
|
||||
ifeq "$(FASTBUILD)" "YES"
|
||||
COMPILE_OPTIONS_ifort :=-fpp
|
||||
else
|
||||
|
||||
COMPILE_OPTIONS_ifort :=-fpp\
|
||||
-assume byterecl
|
||||
ifneq "$(FASTBUILD)" "YES"
|
||||
COMPILE_OPTIONS_ifort :=$(COMPILE_OPTIONS_ifort)\
|
||||
-implicitnone\
|
||||
-diag-enable sc3\
|
||||
-diag-disable 5268\
|
||||
|
@ -180,11 +181,12 @@ endif
|
|||
#-integer-size 16: set precision to one of those 16/32/64 (= 2/4/8 bytes) for standard integer (=4 for pInt)
|
||||
###################################################################################################
|
||||
|
||||
ifeq "$(FASTBUILD)" "YES"
|
||||
|
||||
COMPILE_OPTIONS_gfortran :=-xf95-cpp-input\
|
||||
-fno-range-check
|
||||
else
|
||||
COMPILE_OPTIONS_gfortran :=-xf95-cpp-input\
|
||||
ifneq "$(FASTBUILD)" "YES"
|
||||
COMPILE_OPTIONS_gfortran :=$(COMPILE_OPTIONS_gfortran)\
|
||||
-xf95-cpp-input\
|
||||
-ffree-line-length-132\
|
||||
-fno-range-check\
|
||||
-fimplicit-none\
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
!$Id$
|
||||
#ifdef __GFORTRAN__
|
||||
#if __GNUC__<=4 && __GNUC_MINOR__<=5
|
||||
write(6,'(3(a,i2.2))') ' Compiled with GNU fortran version ', __GNUC__,'.',__GNUC_MINOR__,&
|
||||
write(6,'(3(a,i2.2))') ' Compiled with GCC version ', __GNUC__,'.',__GNUC_MINOR__,&
|
||||
'.',__GNUC_PATCHLEVEL__
|
||||
#else
|
||||
write(6,*) 'Compiled with ', compiler_version() !not supported by GFORTRAN 4.5 and ifort 12
|
||||
|
|
|
@ -21,7 +21,10 @@
|
|||
!##############################################################
|
||||
module debug
|
||||
!##############################################################
|
||||
use prec, only: pInt, pReal, pLongInt
|
||||
use prec, only: &
|
||||
pInt, &
|
||||
pReal, &
|
||||
pLongInt
|
||||
|
||||
implicit none
|
||||
private
|
||||
|
|
|
@ -136,7 +136,7 @@ subroutine material_init
|
|||
debug_levelExtensive
|
||||
|
||||
implicit none
|
||||
!* Definition of variables
|
||||
|
||||
integer(pInt), parameter :: fileunit = 200_pInt
|
||||
integer(pInt) :: i,j, myDebug
|
||||
|
||||
|
|
|
@ -56,6 +56,7 @@ subroutine prec_init
|
|||
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
|
||||
|
||||
implicit none
|
||||
|
||||
!$OMP CRITICAL (write2out)
|
||||
write(6,*)
|
||||
write(6,*) '<<<+- prec init -+>>>'
|
||||
|
|
Loading…
Reference in New Issue