223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

moved option for UTF-8 encoding to spectral interface as this is now called before prec init. 

if UTF-8 encoding is needed for FEM solver (old compilers might not support it), add the same statement to the corresponding interface routine
This commit is contained in:
Martin Diehl 2012-10-04 14:22:39 +00:00
parent 124451ac1a
commit 80465c0b49
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code/DAMASK_spectral_interface.f90
View File

@ -82,7 +82,8 @@ subroutine DAMASK_interface_init(loadCaseParameterIn,geometryParameterIn)
logical :: & logical :: &
gotLoadCase = .false., & gotLoadCase = .false., &
gotGeometry = .false. gotGeometry = .false.
open(6, encoding='UTF-8') ! modern fortran compilers (gfortran >4.4, ifort >11 support it)
write(6,'(a)') '' write(6,'(a)') ''
write(6,'(a)') ' <<<+- DAMASK_spectral_interface init -+>>>' write(6,'(a)') ' <<<+- DAMASK_spectral_interface init -+>>>'
write(6,'(a)') ' $Id$' write(6,'(a)') ' $Id$'

6
code/prec.f90
View File

@ -94,12 +94,8 @@ subroutine prec_init
write(6,'(a,i3)') ' Bytes for pLongInt: ',pLongInt write(6,'(a,i3)') ' Bytes for pLongInt: ',pLongInt
write(6,'(a,e10.3)') ' NaN: ', DAMASK_NaN write(6,'(a,e10.3)') ' NaN: ', DAMASK_NaN
write(6,'(a,l3)') ' NaN /= NaN: ',DAMASK_NaN/=DAMASK_NaN write(6,'(a,l3)') ' NaN /= NaN: ',DAMASK_NaN/=DAMASK_NaN
if (DAMASK_NaN == DAMASK_NaN) call quit(9000)
#ifdef Spectral
open(6, encoding='UTF-8') ! modern fortran compilers (gfortran >4.4, ifort >11 support it)
write(6,*) 'using UTF-8 coded output'
#endif
write(6,*) write(6,*)
if (DAMASK_NaN == DAMASK_NaN) call quit(9000)
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
end subroutine prec_init end subroutine prec_init