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