1*
2* $Id$
3*
4
5*     **** semicore common block ****
6      integer ncore(2),rcore(2)
7      integer semicore(2)
8      common / c_ccore / ncore,rcore,semicore
9
10*     **** semicore2 common block ****
11      integer ncore_sum(2)
12      common / c_ccore2 / ncore_sum
13
14*     **** semicore3 common block ****
15      integer dncore(2)
16      common / c_ccore3 / dncore
17
18