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

removed 2003 standard initialization expression not supported by ifort so far

This commit is contained in:
Martin Diehl 2013-02-27 07:35:53 +00:00
parent 0be6706483
commit bac186c5b7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
code/lattice.f90
View File

@ -96,8 +96,8 @@ module lattice
lattice_fcc_NtwinSystem = int([12, 0, 0, 0],pInt) !< # of twin systems per family for fcc lattice_fcc_NtwinSystem = int([12, 0, 0, 0],pInt) !< # of twin systems per family for fcc
integer(pInt), parameter, private :: & integer(pInt), parameter, private :: &
lattice_fcc_Nslip = sum(lattice_fcc_NslipSystem), & !< total # of slip systems for fcc lattice_fcc_Nslip = 12_pInt, & ! sum(lattice_fcc_NslipSystem), & !< total # of slip systems for fcc
lattice_fcc_Ntwin = sum(lattice_fcc_NtwinSystem) !< total # of twin systems for fcc lattice_fcc_Ntwin = 12_pInt ! sum(lattice_fcc_NtwinSystem) !< total # of twin systems for fcc
integer(pInt), private :: & integer(pInt), private :: &
lattice_fcc_Nstructure = 0_pInt lattice_fcc_Nstructure = 0_pInt
@ -223,8 +223,8 @@ module lattice
lattice_bcc_NtwinSystem = int([ 12, 0, 0, 0], pInt) !< # of twin systems per family for bcc lattice_bcc_NtwinSystem = int([ 12, 0, 0, 0], pInt) !< # of twin systems per family for bcc
integer(pInt), parameter, private :: & integer(pInt), parameter, private :: &
lattice_bcc_Nslip = sum(lattice_bcc_NslipSystem), & !< total # of slip systems for bcc lattice_bcc_Nslip = 24_pInt, & ! sum(lattice_bcc_NslipSystem), & !< total # of slip systems for bcc
lattice_bcc_Ntwin = sum(lattice_bcc_NtwinSystem) !< total # of twin systems for bcc lattice_bcc_Ntwin = 12_pInt ! sum(lattice_bcc_NtwinSystem) !< total # of twin systems for bcc
integer(pInt), private :: & integer(pInt), private :: &
lattice_bcc_Nstructure = 0_pInt lattice_bcc_Nstructure = 0_pInt
@ -417,8 +417,8 @@ module lattice
lattice_hex_NtwinSystem = int([ 6, 6, 6, 6],pInt) !< # of slip systems per family for hex lattice_hex_NtwinSystem = int([ 6, 6, 6, 6],pInt) !< # of slip systems per family for hex
integer(pInt), parameter , private :: & integer(pInt), parameter , private :: &
lattice_hex_Nslip = sum(lattice_hex_NslipSystem),& !< total # of slip systems for hex lattice_hex_Nslip = 30_pInt, ! sum(lattice_hex_NslipSystem),& !< total # of slip systems for hex
lattice_hex_Ntwin = sum(lattice_hex_NtwinSystem) !< total # of twin systems for hex lattice_hex_Ntwin = 24_pInt ! sum(lattice_hex_NtwinSystem) !< total # of twin systems for hex
integer(pInt), private :: & integer(pInt), private :: &
lattice_hex_Nstructure = 0_pInt lattice_hex_Nstructure = 0_pInt