Searched refs:QFORCE_bkup (Results 1 – 2 of 2) sorted by relevance
42 allocate(fstrSOLID%QFORCE_bkup(size(fstrSOLID%QFORCE)))88 if( associated(fstrSOLID%QFORCE_bkup) ) deallocate(fstrSOLID%QFORCE_bkup)135 fstrSOLID%QFORCE_bkup(i) = fstrSOLID%QFORCE(i)186 fstrSOLID%QFORCE(i) = fstrSOLID%QFORCE_bkup(i)
387 real(kind=kreal), pointer :: QFORCE_bkup(:) => null() !< equivalent nodal force (backup) component