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