#ifndef POSINNUC_INCLUDED INTEGER*4 IBOUND REAL*4 POSNUC COMMON /POSINNUC/IBOUND,POSNUC(3,MAXVC) #define POSINNUC_INCLUDED #endif