anchor.diff:  c          ai=aax(i)
   c          bi=bbx(i)
   c          ci=ccx(i)
  -cccc       do m=1,10
  +c          do m=1,10
   c          do m=1,1
   c          bf2m=buf2(m,ijkl,IJ,KL)
   c          if(abs(bf2m).gt.0) then
  
positive.code:       ENDIF
        end
  c=======================================================================
  
negative.code:            endif         !    if ( iroute.eq.1 ) then
          endif            !    if(where.eq.'forc') then
          if(where.eq.'hess') then
             ibut2=ibuf
             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
  