c
c     target data
      character*1    isomer
      character*2    sy
      character*8    target
      character*4    reac(maxrec)
      character*8    prod(maxrec)
      integer        ia,iz,nrec
      real           crossf(maxrec,ngmax), crossg(maxrec,ngmax)
      common /targ1/ sy,isomer,target,reac,prod
      common /targ2/ ia,iz,nrec,crossf,crossg