Searched refs:CONT_NTRAC (Results 1 – 3 of 3) sorted by relevance
345 if( fstrSOLID%output_ctrl(3)%outinfo%on(36) .and. associated(fstrSOLID%CONT_NTRAC) ) then349 call hecmw_result_add( id, nitem, label, fstrSOLID%CONT_NTRAC )690 if( fstrSOLID%output_ctrl(4)%outinfo%on(36) .and. associated(fstrSOLID%CONT_NTRAC) ) then971 if( fstrSOLID%output_ctrl(4)%outinfo%on(36) .and. associated(fstrSOLID%CONT_NTRAC) ) then978 fstrRESULT%node_val_item(nitem*(i-1)+j+iitem) = fstrSOLID%CONT_NTRAC(nn*(i-1)+j)1533 if( fstrSOLID%output_ctrl(phase)%outinfo%on(36) .and. associated(fstrSOLID%CONT_NTRAC) ) then1537 fstrSOLID%CONT_NTRAC(:) = 0.d01541 fstrSOLID%CONT_NTRAC(3*i-2:3*i) = fstrSOLID%CONT_NFORCE(3*i-2:3*i)/area
460 if( .not. associated(fstrSOLID%CONT_NTRAC) ) then461 allocate( fstrSOLID%CONT_NTRAC(hecMAT%NP*3) )462 fstrSOLID%CONT_NTRAC(:) = 0.d0
334 real(kind=kreal), pointer :: CONT_NTRAC(:) !< contact normal traction force for output component