anchor.diff: -* $Id: assemblx.f,v 1.9 2001-06-22 22:07:07 pg481 Exp $
  +* $Id: assemblx.f,v 1.10 2001-07-02 21:30:03 d3g681 Exp $
   c----------------------------------------------------------------
   c All routines of the type name_2 are used when 
   c          IROUTE=2
  
positive.code: C
             FIRSTC=.FALSE.
          ELSE
             DO 601 KL=nfu(nqkl)+1,LNKL
             DO 601 ij=ijs,LNIJ
             do 601 i=1,nbls1
             ijkl=indx(i)
             BUF2(ijkl,IJ,KL)=BUF2(ijkl,IJ,KL)+XT1(i,IJ,KL)
    601      CONTINUE
          ENDIF
        ENDIF
  c
  
negative.code: C
  c-------
        IF(where.eq.'buff') THEN
          ijs=nfu(nqij)+1
          IF (FIRSTC) THEN
             DO 501 KL=nfu(nqkl)+1,LNKL
  