Searched refs:CONT_RELVEL (Results 1 – 3 of 3) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/common/ |
| H A D | fstr_contact.f90 | 232 fstrSOLID%CONT_RELVEL(:) = 0.d0
271 …call set_contact_state_vector( fstrSOLID%contacts(i), dt, fstrSOLID%CONT_RELVEL, fstrSOLID%CONT_ST…
445 if( .not. associated(fstrSOLID%CONT_RELVEL) ) then
446 allocate( fstrSOLID%CONT_RELVEL(hecMAT%NP*3) )
447 fstrSOLID%CONT_RELVEL(:) = 0.d0
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | make_result.f90 | 329 if( fstrSOLID%output_ctrl(3)%outinfo%on(32) .and. associated(fstrSOLID%CONT_RELVEL) ) then
333 call hecmw_result_add( id, nitem, label, fstrSOLID%CONT_RELVEL )
680 if( fstrSOLID%output_ctrl(4)%outinfo%on(32) .and. associated(fstrSOLID%CONT_RELVEL) ) then
943 if( fstrSOLID%output_ctrl(4)%outinfo%on(32) .and. associated(fstrSOLID%CONT_RELVEL) ) then
950 fstrRESULT%node_val_item(nitem*(i-1)+j+iitem) = fstrSOLID%CONT_RELVEL(nn*(i-1)+j)
1510 if( fstrSOLID%output_ctrl(phase)%outinfo%on(32) .and. associated(fstrSOLID%CONT_RELVEL) ) then
1512 call fstr_setup_parancon_contactvalue(hecMESH,ndof,fstrSOLID%CONT_RELVEL,1)
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
| H A D | m_fstr.f90 | 330 real(kind=kreal), pointer :: CONT_RELVEL(:) !< contact ralative velocity for output component
|