Searched refs:stiff_da (Results 1 – 1 of 1) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
| H A D | static_LIB_3dIC.f90 | 703 real(kind=kreal) :: stiff_da(nn*3, 3*3), stiff_aa(3*3, 3*3) local
729 stiff_da(:, :) = 0.0D0
777 stiff_da(i, j) = stiff_da(i, j) + dot_product( B(1:6, i), DB_a(1:6, j) ) * wg
838 VECT(1:nn*ndof) = VECT(1:nn*ndof) - matmul( stiff_da(1:nn*ndof, 1:3*ndof), icdisp(1:3*ndof) )
|