!
      integer :: lbdsk,lbscm,lbphy,lbtap,nbaddr,modulo,njtmp,
     |  njm2,njm1,nj,njp1,njp2,njin,njot,njnp,ndj,lbdski,lsumm
      COMMON/BUFF/LBDSK,LBSCM,LBPHY,LBTAP,NBADDR(8),
     |  MODULO,NJTMP(1),NJM2,NJM1,NJ,NJP1,NJP2,NJIN,NJOT,NJNP,
     |  NDJ,LBDSKI,lsumm
C