Searched refs:PSTRAIN (Results 1 – 5 of 5) sorted by relevance
199 real(kind=kreal), pointer :: PSTRAIN(:) => null() !< nodal principal strain component307 real(kind=kreal), pointer :: PSTRAIN(:) !< nodal principal strain component670 nullify( S%PSTRAIN )
922 if ( .not. associated(RES%PSTRAIN) ) then923 allocate(RES%PSTRAIN( 3*hecMESH%n_node ))970 if (iand(flag,B'00000100') /= 0) RES%PSTRAIN(3*(i-1)+1:3*(i-1)+3)=tvec
434 call hecmw_result_add( id, nitem, label, RES%PSTRAIN )1218 fstrRESULT%node_val_item(nitem*(i-1)+j+iitem) = RES%PSTRAIN(nn*(i-1)+j)
349 - plane strain (`PSTRAIN`)