Searched refs:CONT_STATE (Results 1 – 3 of 3) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/common/ |
| H A D | fstr_contact.f90 | 233 fstrSOLID%CONT_STATE(:) = 0.d0
271 … set_contact_state_vector( fstrSOLID%contacts(i), dt, fstrSOLID%CONT_RELVEL, fstrSOLID%CONT_STATE )
450 if( .not. associated(fstrSOLID%CONT_STATE) ) then
451 allocate( fstrSOLID%CONT_STATE(hecMAT%NP*1) )
452 fstrSOLID%CONT_STATE(:) = 0.d0
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | make_result.f90 | 337 if( fstrSOLID%output_ctrl(3)%outinfo%on(33) .and. associated(fstrSOLID%CONT_STATE) ) then
341 call hecmw_result_add( id, nitem, label, fstrSOLID%CONT_STATE )
685 if( fstrSOLID%output_ctrl(4)%outinfo%on(33) .and. associated(fstrSOLID%CONT_STATE) ) then
957 if( fstrSOLID%output_ctrl(4)%outinfo%on(33) .and. associated(fstrSOLID%CONT_STATE) ) then
964 fstrRESULT%node_val_item(nitem*(i-1)+j+iitem) = fstrSOLID%CONT_STATE(nn*(i-1)+j)
1518 if( fstrSOLID%output_ctrl(phase)%outinfo%on(33) .and. associated(fstrSOLID%CONT_STATE) ) then
1520 call fstr_setup_parancon_contactvalue(hecMESH,1,fstrSOLID%CONT_STATE,2)
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
| H A D | m_fstr.f90 | 331 real(kind=kreal), pointer :: CONT_STATE(:) !< contact state for output component
|