anchor.diff:  c================================================================
         subroutine setup_thresh(thres)
         implicit real*8 (a-h,o-z)
  +c----------------------------------------------------------------
   c Set up the integral threshold :
   c----------------------------------------------------------------
   c Estimator1=16/(pi)**1/2 * Sab*Scd * 1/(a+b+c+d)**1/2
  
positive.code: c $Id: prepint.f,v 1.3 1995-12-21 00:50:25 pg481 Exp $
        subroutine prepint2(bl,eps,inuc,ibas,na,nbf,nsh,ncf,ncs,inx,
       *                    lcore,nsym,maxprice,scftype)
  c
  c---------------------------------------------------------------
  c dimensions for logical matrices in commons logicd,logic1-11 :
  c
  
negative.code: c
        common /memors/ nsymx,ijshp,isymm
        common /symmet/ rnsym
  c----------------------------------------------------------------
  c
        dimension bl(*)
        dimension inx(12,*)
  c
  c----------------------------------------------------------
  c
        call txs_second(tim1)
  c
  c----------------------------------------------------------
  c set up integral threshold :
  c
  c      call setup_thres(eps) 
  c now done in texas_set_accy which calls setup_thresh() routine 
  c----------------------------------------------------------
  c zero out timings
  c
  