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:
Martin Diehl 2012-03-20 12:26:21 +00:00
parent 012d568cf8
commit 04d83ec9cd
5 changed files with 15 additions and 9 deletions

View File

@ -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_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 OPTIMIZATION_AGGRESSIVE_gfortran :=-O3 $(PORTABLE_SWITCH) -ffast-math -funroll-loops -ftree-vectorize
ifeq "$(FASTBUILD)" "YES"
COMPILE_OPTIONS_ifort :=-fpp
else
COMPILE_OPTIONS_ifort :=-fpp\ COMPILE_OPTIONS_ifort :=-fpp\
-assume byterecl
ifneq "$(FASTBUILD)" "YES"
COMPILE_OPTIONS_ifort :=$(COMPILE_OPTIONS_ifort)\
-implicitnone\ -implicitnone\
-diag-enable sc3\ -diag-enable sc3\
-diag-disable 5268\ -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) #-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\ COMPILE_OPTIONS_gfortran :=-xf95-cpp-input\
-fno-range-check -fno-range-check
else ifneq "$(FASTBUILD)" "YES"
COMPILE_OPTIONS_gfortran :=-xf95-cpp-input\ COMPILE_OPTIONS_gfortran :=$(COMPILE_OPTIONS_gfortran)\
-xf95-cpp-input\
-ffree-line-length-132\ -ffree-line-length-132\
-fno-range-check\ -fno-range-check\
-fimplicit-none\ -fimplicit-none\

View File

@ -1,7 +1,7 @@
!$Id$ !$Id$
#ifdef __GFORTRAN__ #ifdef __GFORTRAN__
#if __GNUC__<=4 && __GNUC_MINOR__<=5 #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__ '.',__GNUC_PATCHLEVEL__
#else #else
write(6,*) 'Compiled with ', compiler_version() !not supported by GFORTRAN 4.5 and ifort 12 write(6,*) 'Compiled with ', compiler_version() !not supported by GFORTRAN 4.5 and ifort 12

View File

@ -21,7 +21,10 @@
!############################################################## !##############################################################
module debug module debug
!############################################################## !##############################################################
use prec, only: pInt, pReal, pLongInt use prec, only: &
pInt, &
pReal, &
pLongInt
implicit none implicit none
private private

View File

@ -136,7 +136,7 @@ subroutine material_init
debug_levelExtensive debug_levelExtensive
implicit none implicit none
!* Definition of variables
integer(pInt), parameter :: fileunit = 200_pInt integer(pInt), parameter :: fileunit = 200_pInt
integer(pInt) :: i,j, myDebug integer(pInt) :: i,j, myDebug

View File

@ -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) use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
implicit none implicit none
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(6,*) write(6,*)
write(6,*) '<<<+- prec init -+>>>' write(6,*) '<<<+- prec init -+>>>'