anchor.diff:  c          enddo
   c  66 format('ij,kl=',2(i2,1x),' ijkl=',i3,' m=',i2,2x,f12.7)
   c9876 continue
  +c
   c23456789.123456789.123456789.123456789.123456789.123456789.123456789.12
   c
         end
  
positive.code:            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)
          endif
  c
        IF(lshellt.eq.0) go to 100
  
negative.code: ctest-test-test
  c
  c       write(6,*)' From assemb NBLS=',nbls,' NBLS1=',nbls1
  c       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
  