Searched refs:EPSTRESS (Results 1 – 3 of 3) sorted by relevance
207 real(kind=kreal), pointer :: EPSTRESS(:) => null() !< elemental principal stress component315 real(kind=kreal), pointer :: EPSTRESS(:) !< elemental principal stress component677 nullify( S%EPSTRESS )
934 if ( .not. associated(RES%EPSTRESS) ) then935 allocate(RES%EPSTRESS( 3*hecMESH%n_elem ))978 if (iand(flag,B'00010000') /= 0) RES%EPSTRESS(3*(i-1)+1:3*(i-1)+3)=tvec
498 call hecmw_result_add( id, nitem, label, RES%EPSTRESS )1046 fstrRESULT%elem_val_item(eitem*(i-1)+j+jitem) = fstrSOLID%SOLID%EPSTRESS((nn)*(i-1)+j)1289 fstrRESULT%elem_val_item(eitem*(i-1)+j+jitem) = RES%EPSTRESS((nn)*(i-1)+j)