Searched refs:hecTKT (Results 1 – 2 of 2) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | solve_LINEQ_iter_contact.f90 | 382 allocate(hecTKT%B(hecTKT%NP*ndof + fstrMAT%num_lagrange))
383 allocate(hecTKT%X(hecTKT%NP*ndof + fstrMAT%num_lagrange))
385 do i=1, hecTKT%N*ndof
394 hecTKT%B(hecTKT%NP*ndof + ilag) = hecMAT%B(hecMAT%NP*ndof + ilag)
396 do i=1, hecTKT%N*ndof
416 write(1000+myrank,*) hecTKT%B(1:hecTKT%N*ndof)
431 write(1000+myrank,*) hecTKT%X(1:hecTKT%N*ndof)
953 npndof_new = hecTKT%NP*hecTKT%NDOF
1017 call hecmw_update_3_R(hecMESHtmp, hecTKT%X, hecTKT%NP)
1116 call hecmw_update_3_R(hecMESHtmp, hecTKT%X, hecTKT%NP)
[all …]
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/matrix/ |
| H A D | hecmw_local_matrix.f90 | 194 iwS, num_lagrange, hecTKT) argument
789 hecTKT%N =hecMAT%N
790 hecTKT%NP=nc
791 hecTKT%NDOF=ndof
793 if (associated(hecTKT%D)) deallocate(hecTKT%D)
796 if (associated(hecTKT%indexL)) deallocate(hecTKT%indexL)
797 if (associated(hecTKT%indexU)) deallocate(hecTKT%indexU)
922 if (associated(hecTKT%B)) deallocate(hecTKT%B)
923 if (associated(hecTKT%X)) deallocate(hecTKT%X)
924 allocate(hecTKT%B(ndof*hecTKT%NP))
[all …]
|