anchor.diff:       *                      ngcd,nbls,buf2,lnijr,lnklr,lnij,lnkl,
        *                      nqij,nqkl,
        *                      nder_ac,der2)
  +!DIR$ INLINE
                 call block_bc(icart,jcart,
        *                      ngcd,nbls,buf2,lnijr,lnklr,lnij,lnkl,
        *                      nqij,nqkl,
  
positive.code: * $Id: derivat.f,v 1.6 2002-10-01 00:10:07 edo Exp $
  c===================================================================
  c This file contains all dintegral derivatives routines :
  c for nmr/giao integral derivatives
  
negative.code:      *                      ngcd,nbls,buf2,lnijr,lnklr,lnij,lnkl,
       *                      nqij,nqkl,
       *                      nder_aa,der2)
  !DIR$ NOINLINE
                call block_bb(icart,jcart,
       *                      ngcd,nbls,buf2,lnijr,lnklr,lnij,lnkl,
       *                      nqij,nqkl,
  