subroutine gen_K()
use work
! Genereaza matricea de rigiditate K(ngl, ngl)
implicit real(8) (a-h, o-z)

kk =0.


END subroutine gen_K
