anchor.diff:             endif         !    if ( iroute.eq.1 ) then
           endif            !    if(where.eq.'forc') then
           if(where.eq.'hess') then
  -           call getmem(6*nbls1,iexpo)
              ibut2=ibuf
  -           call conbuf2_der2(firstx,nbls,nbls1,bl(iwt0),l01,l02,
  -     *                      bl(ibut2),bl(indx),
  -     *                      bl(iaax),bl(ibbx),bl(iccx),bl(iexpo))
  -           call retmem(1)
  +           if(iroute.eq.1) then
  +              call getmem(6*nbls1,iexpo)
  +              call conbuf2_der21(firstx,nbls,nbls1,bl(iwt0),l01,l02,
  +     *                         bl(ibut2),bl(indx),
  +     *                         bl(iaax),bl(ibbx),bl(iccx),bl(iexpo))
  +              call retmem(1)
  +           else
  +              call conbuf2_der22(firstx,nbls,nbls1,bl(iwt0),l01,l02,
  +     *                         bl(ibut2),bl(indx),
  +     *                         bl(iaax),bl(ibbx),bl(iccx))
  +           endif
           endif
   c
         IF(lshellt.eq.0) go to 100
  
positive.code: ctest-test-test
  c
  c       write(6,*)' From assemb NBLS=',nbls,' NBLS1=',nbls1
  ctest   do 9876 kl=nfu(nqkl)+1,nfu(nskl+1)
  c       do 9876 kl= 1, 1
  c       do 9876 ij=nfu(nqij)+1,nfu(nsij+1)
  c       do 9876 i=1,nbls1
  
negative.code: * $Id: assemblx.f,v 1.9 2001-06-22 22:07:07 pg481 Exp $
  c----------------------------------------------------------------
  c All routines of the type name_2 are used when 
  c          IROUTE=2
  