00001 /* @(#)root/main:$Id: setpawc.c 37315 2010-12-06 10:47:17Z rdm $ */ 00002 /* Author: Valery Fine(fine@vxcern.cern.ch) 08/12/96 */ 00003 00004 /* 00005 * This fortran subroutine is needed to set the right size 00006 * for the /PAWC/ common block for h2root C++ utility. 00007 * This common is defined as "external" in h2root and 00008 * its size is ignored by linker. 00009 */ 00010 00011 int PAWC[4000000]; 00012 void setpawc(){}