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

transformed lattice structure should not be mandatory

This commit is contained in:
Su Leen Wong 2015-06-11 17:03:34 +00:00
parent bfe76794af
commit a370372c1b
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/lattice.f90
View File

@ -1211,8 +1211,6 @@ subroutine lattice_init
trans_lattice_structure(section) = LATTICE_bcc_ID trans_lattice_structure(section) = LATTICE_bcc_ID
case('hex','hexagonal','hcp') case('hex','hexagonal','hcp')
trans_lattice_structure(section) = LATTICE_hex_ID trans_lattice_structure(section) = LATTICE_hex_ID
case default
call IO_error(132_pInt,ext_msg=trim(IO_lc(IO_stringValue(line,positions,2_pInt))))
end select end select
case ('c11') case ('c11')
lattice_C66(1,1,section) = IO_floatValue(line,positions,2_pInt) lattice_C66(1,1,section) = IO_floatValue(line,positions,2_pInt)
@ -1453,8 +1451,6 @@ subroutine lattice_initializeStructure(myPhase,CoverA,a_fcc,a_bcc)
sqrt(2.0_pReal)*(a_bcc/a_fcc)*math_tensorproduct(zb(1:3,i), zb(1:3,i)) sqrt(2.0_pReal)*(a_bcc/a_fcc)*math_tensorproduct(zb(1:3,i), zb(1:3,i))
endif endif
enddo enddo
case default
call IO_error(132_pInt,ext_msg='lattice_initializeStructure')
end select end select
lattice_NslipSystem(1:lattice_maxNslipFamily,myPhase) = lattice_fcc_NslipSystem lattice_NslipSystem(1:lattice_maxNslipFamily,myPhase) = lattice_fcc_NslipSystem