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

outer crystal system loop now runs up to _MaxCrystalStructure (used to be hardcoded 3)

This commit is contained in:
Philip Eisenlohr 2007-10-15 14:36:25 +00:00
parent 5a82f22681
commit e3dcaa6915
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/crystal.f90
View File

@ -20,7 +20,7 @@ implicit none
!* Number of crystal structures (1-FCC,2-BCC,3-HCP) !* Number of crystal structures (1-FCC,2-BCC,3-HCP)
integer(pInt), parameter :: crystal_MaxCrystalStructure = 3 integer(pInt), parameter :: crystal_MaxCrystalStructure = 3
!* Total number of slip systems per crystal structure !* Total number of slip systems per crystal structure
!* (as to be changed according the definition of slip systems) !* (has to be changed according the definition of slip systems)
integer(pInt), dimension(crystal_MaxCrystalStructure), parameter :: crystal_MaxNslipOfStructure = & integer(pInt), dimension(crystal_MaxCrystalStructure), parameter :: crystal_MaxNslipOfStructure = &
reshape((/12,48,12/),(/crystal_MaxCrystalStructure/)) reshape((/12,48,12/),(/crystal_MaxCrystalStructure/))
!* Maximum number of slip systems over crystal structures !* Maximum number of slip systems over crystal structures
@ -167,7 +167,7 @@ integer(pInt) i,j,k,l
real(pReal) invNorm real(pReal) invNorm
!* Iteration over the crystal structures !* Iteration over the crystal structures
do l=1,3 do l=1,crystal_MaxCrystalStructure
!* Iteration over the systems !* Iteration over the systems
do k=1,crystal_MaxNslipOfStructure(l) do k=1,crystal_MaxNslipOfStructure(l)
!* Defintion of Schmid matrix !* Defintion of Schmid matrix