1* 2* $Id$ 3* 4 5 6* ***** rhoall common block **** 7 integer rho1_all(2) 8 integer rho2_all(2) 9 common / c_rhoall_block / rho1_all,rho2_all 10 11