anchor.diff:    real(kind=fPrec), allocatable, save :: sum_ay(:) !(nblz)
     real(kind=fPrec), allocatable, save :: sqsum_ay(:) !(nblz)
     real(kind=fPrec), allocatable, save :: sampl(:) !(nblz)
  -!  common  /ampl_rev/ sum_ax,sqsum_ax,sum_ay,sqsum_ay,sampl,ename,nampl
   
     real(kind=fPrec), allocatable, save :: neffx(:) !(numeff)
     real(kind=fPrec), allocatable, save :: neffy(:) !(numeff)
  -!  common /efficiency/ neffx,neffy
   
     integer, allocatable, save :: secondary(:) !(npart)
     integer, allocatable, save :: tertiary(:) !(npart)
  
positive.code: 
    integer, save :: ie, iturn, nabs_total
  
   !-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
  !+cd dbcommon
  ! THIS BLOCK IS COMMON TO BOTH THIN6D, BEAMGAS, AND TRAUTHIN SUBROUTINES
  
    integer ieff,ieffdpop
  
  
negative.code:   real(kind=fPrec), allocatable, save :: myyp(:) !(npart)
    real(kind=fPrec), allocatable, save :: myp(:) !(npart)
    real(kind=fPrec), allocatable, save :: mys(:) !(npart)
    integer, allocatable, save :: counted_r(:,:) !(npart,numeff)
    integer, allocatable, save :: counted_x(:,:) !(npart,numeff)
    integer, allocatable, save :: counted_y(:,:) !(npart,numeff)
  
    character(len=4), save :: smpl
    character(len=80), save :: pfile
  
  ! THIS BLOCK IS COMMON TO WRITELIN,LINOPT,TRAUTHIN,THIN6D AND MAINCR
  !
    real(kind=fPrec), allocatable, save :: tbetax(:)  !(nblz)
  