anchor.diff:  *.Input
   * =====
   *
  +#include "mafdecls.fh"
         INCLUDE 'wrkspc.inc'
         INCLUDE 'orbinp.inc'
         INCLUDE 'strbas.inc'
  
positive.code: *
  *. L-strings in integer arrays
  *
                CALL ICOPVE2(WORK(KOCSTR(IALTP)),IBLA,
       &             NALEL,IASTRF) 
                CALL ICOPVE2(WORK(KOCSTR(IBLTP)),IBLB,
       &             NBLEL,IBSTRF) 
  *
  *. Reform L strings from AB to CONF form
  
negative.code:           WRITE(6,*) ' KLOCMIN, KLOCMAX, KZCONF, KLZSCR',
       &                 KLOCMIN, KLOCMAX, KZCONF, KLZSCR
          END IF
          CALL CONF_GRAPH(int_mb(KLOCMIN),int_mb(KLOCMAX),NACOB,
       &        NELEC,int_mb(KZCONF),NCONF_P,int_mb(KLZSCR))
  *
           IF(JJOCCLS.EQ.1) THEN
              INITIALIZE_CONF_COUNTERS = 1
  