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: *
  *. Jeppe Olsen, April3, 2013
  *
  #include "mafdecls.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'glbbas.inc'
  