anchor.diff:                END IF
                 ONE = 1.0D0
                 CALL GET_2EBLK(WORK(KLBL1),ISM,JSM,KSM,LSM,
  -     &        WORK(KPINT2))
  +     &        dbl_mb(KPINT2))
   *. Number of output blocks originating from this input block
                 CALL PERM_SYM_SSSSBLK(ISM,JSM,KSM,LSM,I12S,I34S,I1234S,
        &                              I12S_A,I34S_A,I1234S_A,NPERM_SSSS,
  
positive.code: c      IMPLICIT REAL*8(A-H,O-Z)
  *. General input
  c      INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc.inc'
        INCLUDE 'orbinp.inc'
        INCLUDE 'lucinp.inc'
  
negative.code: * The pointers to the MO-AO transformation matrices are in KLC*, so the
  * first transformation matrix is in WORK(KLCI)
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
        INCLUDE 'orbinp.inc'
        INCLUDE 'lucinp.inc'
  