anchor.diff:  *
             CALL ADD_STR_GROUP(NSTI,
        &          IBSTFGS(IGAS),
  -     &          WORK(KOCSTR(ITPFGS(IGAS))),
  +     &          int_mb(KOCSTR(ITPFGS(IGAS))),
        &          NSTB,NSTA,ISTROC,NELB+1,NELI,NEL)
   *. Loop over strings in IGAS 
           END IF
  
positive.code:       IF(NTEST.GE.200) WRITE(6,*) ' NGASL = ', NGASL
  *. Number of strings per GAS space and offsets for strings of given sym
        DO IGAS = 1, NGAS
          CALL ICOPVE2(WORK(KNSTSGP(1)),(ITPFGS(IGAS)-1)*NSMST+1,NSMST,
       &               NNSTSGP(1,IGAS))
          CALL ICOPVE2(WORK(KISTSGP(1)),(ITPFGS(IGAS)-1)*NSMST+1,NSMST,
       &               IISTSGP(1,IGAS))
        END DO
  *
  
negative.code: * Jeppe Olsen, April 2013
  *
  *. Input
  #include "mafdecls.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc-static.inc'
  