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

bugfix, Lp not available anymore for crystallite

This commit is contained in:
Martin Diehl 2019-10-20 14:01:42 +02:00
parent b96bd71b09
commit 872c85112f
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/crystallite.f90
View File

@ -904,10 +904,6 @@ function crystallite_postResults(ipc, ip, el)
mySize = 9 mySize = 9
crystallite_postResults(c+1:c+mySize) = & crystallite_postResults(c+1:c+mySize) = &
reshape(transpose(crystallite_Fp(1:3,1:3,ipc,ip,el)),[mySize]) reshape(transpose(crystallite_Fp(1:3,1:3,ipc,ip,el)),[mySize])
case (lp_ID)
mySize = 9
crystallite_postResults(c+1:c+mySize) = &
reshape(transpose(crystallite_Lp(1:3,1:3,ipc,ip,el)),[mySize])
case (p_ID) case (p_ID)
mySize = 9 mySize = 9
crystallite_postResults(c+1:c+mySize) = & crystallite_postResults(c+1:c+mySize) = &