anchor.diff:        ELSE
           VFINAL = ERROR(MAXIT+1)
         END IF
  -*
         IF(NTEST .GT. 0 ) THEN
   *
         IF(CONVER) THEN
  
positive.code: * LOOP OVER BLOCKS OF VECTOR
  *
   1000 CONTINUE
  *
          IF( LBLK .GT. 0 ) THEN
            NBL1 = LBLK
            NBL2 = LBLK
  
negative.code: *  (Growing up in public?- Heading towards efficient treatment of 
  *                inactive orbitals)
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"	  
        INCLUDE 'wrkspc.inc'
        INCLUDE 'lucinp.inc'
        INCLUDE 'orbinp.inc'
  