module compile_mod use precision_def type g2moment_struct real(rp) sigma(6,6), ave(6), third(6) real(rp) max_sigma(6,6), min_sigma(6,6), max_ave(6), min_ave(6) integer n end type g2moment_struct type running_moment_struct real(rp) product(1:6,1:6), sum(1:6), third(6) integer n end type running_moment_struct end module compile_mod