anchor.diff:  * ( End of loop over iterations )
    1001 CONTINUE
         ITER = ITERP 
  -*
  -C?    WRITE(6,*) ' ITER, ITERP, MAXIT=', ITER,ITERP,MAXIT
         DO IROOT = 1, NROOT
          RNRM_CNV(IROOT) = RNRM(ITER,IROOT)
          FINEIG(IROOT) = EIG(ITER,IROOT) + EIGSHF
         END DO
  -*
         IF( .NOT. CONVER ) THEN
   *        CONVERGENCE WAS NOT OBTAINED
            IF(IPRT .GE. 2 )
  
positive.code:  1340     FORMAT(1H ,6X,I4,8X,F20.13,2X,E12.5)
   1600   CONTINUE
        END IF
  *
        IF(IPRT .EQ. 1 ) THEN
          DO 1607 IROOT = 1, NROOT
            WRITE(6,'(A,2I3,E13.6,2E10.3)')
  
negative.code:       LEN = NDIM_1EL_MAT(1,NTOOBS,NTOOBS,NSMOB,0)
  C                     (IHSM,NRPSM,NCPSM,NSM,IPACK)
        CALL MEMMAN(KLSAOE,LEN,'ADDL  ',2,'SAOE  ')
        CALL TRIPAK_BLKM(dbl_mb(KLSAOE),WORK(KSAO),2,NTOOBS,NSMOB)
  C          TRIPAK_BLKM(AUTPAK,APAK,IWAY,LBLOCK,NBLOCK)
  *
  *. Scratch vector for MO of given sym
  