module work


integer ngl

! Matrices:
real(8), allocatable :: K(:,:), M(:,:), R(:,:)
real(8), allocatable :: S_1(:,:)	! S^(-1)

!*
real(8), allocatable :: SS(:,:)

character(256) name

end module

