module work

integer ngl

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

character(260) name

end module

