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_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\

View File

@ -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

View File

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

View File

@ -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

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)
implicit none
!$OMP CRITICAL (write2out)
write(6,*)
write(6,*) '<<<+- prec init -+>>>'