Searched refs:EPSTRESS_VECT (Results 1 – 3 of 3) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
| H A D | m_fstr.f90 | 209 real(kind=kreal), pointer :: EPSTRESS_VECT(:,:) => null() !< elemental principal stress vector component
317 real(kind=kreal), pointer :: EPSTRESS_VECT(:,:) !< elemental principal stress vector component
679 nullify( S%EPSTRESS_VECT )
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | fstr_NodalStress.f90 | 940 if ( .not. associated(RES%EPSTRESS_VECT) ) then
941 allocate(RES%EPSTRESS_VECT( 3*hecMESH%n_elem ,3))
979 if (iand(flag,B'00100000') /= 0) RES%EPSTRESS_VECT(3*(i-1)+1:3*(i-1)+3,1:3)=tmat
|
| H A D | make_result.f90 | 516 call hecmw_result_add( id, nitem, label, RES%EPSTRESS_VECT(:,k) )
1076 … fstrRESULT%elem_val_item(eitem*(i-1)+j+jitem) = fstrSOLID%SOLID%EPSTRESS_VECT((nn)*(i-1)+j,k)
1319 fstrRESULT%elem_val_item(eitem*(i-1)+j+jitem) = RES%EPSTRESS_VECT((nn)*(i-1)+j,k)
|