Searched refs:CONT_NFORCE (Results 1 – 4 of 4) sorted by relevance
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
H A D | fstr_AddContactStiff.f90 | 278 if( associated(fstrSOLID%CONT_NFORCE) ) fstrSOLID%CONT_NFORCE(:) = 0.d0 445 …fstrSOLID%CONT_NFORCE(idx:idx+2) = fstrSOLID%CONT_NFORCE(idx:idx+2) + ctNForce((i-1)*3+1:(i-1)*3+3)
|
H A D | make_result.f90 | 313 if( fstrSOLID%output_ctrl(3)%outinfo%on(30) .and. associated(fstrSOLID%CONT_NFORCE) ) then 317 call hecmw_result_add( id, nitem, label, fstrSOLID%CONT_NFORCE ) 670 if( fstrSOLID%output_ctrl(4)%outinfo%on(30) .and. associated(fstrSOLID%CONT_NFORCE) ) then 915 if( fstrSOLID%output_ctrl(4)%outinfo%on(30) .and. associated(fstrSOLID%CONT_NFORCE) ) then 922 fstrRESULT%node_val_item(nitem*(i-1)+j+iitem) = fstrSOLID%CONT_NFORCE(nn*(i-1)+j) 1494 if( fstrSOLID%output_ctrl(phase)%outinfo%on(30) .and. associated(fstrSOLID%CONT_NFORCE) ) then 1496 call fstr_setup_parancon_contactvalue(hecMESH,ndof,fstrSOLID%CONT_NFORCE,1) 1535 … if( .not. updated(1)) call fstr_setup_parancon_contactvalue(hecMESH,ndof,fstrSOLID%CONT_NFORCE,1) 1541 fstrSOLID%CONT_NTRAC(3*i-2:3*i) = fstrSOLID%CONT_NFORCE(3*i-2:3*i)/area
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/common/ |
H A D | fstr_contact.f90 | 278 fstrSOLID%CONT_NFORCE(:) = 0.d0 435 if( .not. associated(fstrSOLID%CONT_NFORCE) ) then 436 allocate( fstrSOLID%CONT_NFORCE(hecMAT%NP*3) ) 437 fstrSOLID%CONT_NFORCE(:) = 0.d0
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
H A D | m_fstr.f90 | 328 real(kind=kreal), pointer :: CONT_NFORCE(:) !< contact normal force for output component
|