module moments_com_mod use precision_def integer :: k2_4_row = 0 real(rp) :: row(8000,110) = 0 end module