c -*- Fortran -*- common /homo/ Re, Pr, Mach, alpha, beta common /ipar/ ihomo_sgs, ihomo_str, ihomo_flag double precision re, pr, mach, alpha, beta integer ihomo_sgs, ihomo_str, ihomo_flag save /homo/, /ipar/