sorry, in rev 568 some variables were not declared in crystallite_postResults

This commit is contained in:
Christoph Kords 2010-05-18 12:36:09 +00:00
parent 472684c30e
commit 51da3b6242
1 changed files with 2 additions and 2 deletions

View File

@ -1696,8 +1696,8 @@ function crystallite_postResults(&
1+constitutive_sizePostResults(g,i,e)) :: crystallite_postResults
!*** local variables ***!
real(pReal), dimension(3,3) :: U, R
integer(pInt) k,l,o,c,crystID
real(pReal), dimension(3,3) :: Ee
integer(pInt) k,l,o,c,crystID,mySize
logical error
crystID = microstructure_crystallite(mesh_element(4,e))