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

removed some forgotten debug statements

This commit is contained in:
Martin Diehl 2014-03-08 22:51:32 +00:00
parent 2b589c3d71
commit 721183e702
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
code/lattice.f90
View File

@ -1033,7 +1033,6 @@ subroutine lattice_initializeStructure(myPhase,CoverA)
tn(1:3,i) = lattice_fcc_systemTwin(4:6,i) tn(1:3,i) = lattice_fcc_systemTwin(4:6,i)
ts(i) = lattice_fcc_shearTwin(i) ts(i) = lattice_fcc_shearTwin(i)
enddo enddo
print*, shape(lattice_NslipSystem),shape(lattice_fcc_NslipSystem)
lattice_NslipSystem(1:lattice_maxNslipFamily,myPhase) = lattice_fcc_NslipSystem lattice_NslipSystem(1:lattice_maxNslipFamily,myPhase) = lattice_fcc_NslipSystem
lattice_NtwinSystem(1:lattice_maxNtwinFamily,myPhase) = lattice_fcc_NtwinSystem lattice_NtwinSystem(1:lattice_maxNtwinFamily,myPhase) = lattice_fcc_NtwinSystem
lattice_NnonSchmid(myPhase) = lattice_fcc_NnonSchmid lattice_NnonSchmid(myPhase) = lattice_fcc_NnonSchmid
@ -1175,25 +1174,6 @@ subroutine lattice_initializeStructure(myPhase,CoverA)
if (abs(math_trace33(lattice_Stwin(1:3,1:3,i,myPhase))) > tol_math_check) & if (abs(math_trace33(lattice_Stwin(1:3,1:3,i,myPhase))) > tol_math_check) &
call IO_error(301_pInt,myPhase,ext_msg = 'dilatational twin Schmid matrix') call IO_error(301_pInt,myPhase,ext_msg = 'dilatational twin Schmid matrix')
enddo enddo
print*, lattice_Stwin
print*, lattice_C66
print*, lattice_C3333
print*, lattice_mu
print*, lattice_nu
print*, lattice_sd
print*, lattice_sn
print*, lattice_st
print*, lattice_sslip
print*, lattice_td
print*, lattice_tn
print*, lattice_tt
print*, lattice_sd
print*, lattice_sn
print*, lattice_stwin
print*, lattice_qtwin
print*, lattice_qtwin
print*, lattice_sheartwin
end subroutine lattice_initializeStructure end subroutine lattice_initializeStructure