anchor.diff:    if(st_quiet > 0 .and. iunit == 6) return
     write(iunit,1984) '#', 'name', 'aptype', 's[m]', 'aper1[mm]', 'aper2[mm]', &
    &                  'aper3[mm][rad]', 'aper4[mm][rad]', 'aper5[mm][rad]', 'aper6[mm][rad]', &
  - &                  'angle[rad]', 'xoff[mm]', 'yoff[mm]'
  -  return
  - 1984 format (a1,a48,1x,a6,1x,10(1x,a15))
  + &                  'angle[rad]', 'xoff[mm]', 'yoff[mm]', 'aper7[mm][rad]', 'aper8[mm][rad]'
  +  return
  + 1984 format (a1,a,1x,a6,1x,12(1x,a15))
   end subroutine dump_aperture_header
   
   subroutine dump_aperture_xsecs
  
positive.code:   logical,          intent(inout) :: iErr
  
    character(len=:), allocatable   :: lnSplit(:)
    real(kind=fPrec) tmpflts(6)
    integer          nSplit, i
    logical          spErr
  
  
negative.code:             apxx = aprr(3)**2.
              apyy = aprr(4)**2.
              apxy = apxx * apyy
              llos=checkRT( xchk(1), xchk(2), aprr(10), aprr(11), aprr(3), aprr(4), apxx, apyy, apxy ) .or. &
                isnan_mb(xchk(1)).or.isnan_mb(xchk(2))
            end select
          end do !do jj=1,niter
  