anchor.diff:  * Jeppe Olsen, April 2013
   *
   *. Input
  +#include "mafdecls.fh"
         INCLUDE 'implicit.inc'
         INCLUDE 'mxpdim.inc'
         INCLUDE 'wrkspc-static.inc'
  
positive.code: *
            CALL ADD_STR_GROUP(NSTI,
       &          IBSTFGS(IGAS),
       &          WORK(KOCSTR(ITPFGS(IGAS))),
       &          NSTB,NSTA,ISTROC,NELB+1,NELI,NEL)
  *. Loop over strings in IGAS 
          END IF
  
negative.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(int_mb(KNSTSGP(1)),(ITPFGS(IGAS)-1)*NSMST+1,NSMST,
       &               NNSTSGP(1,IGAS))
          CALL ICOPVE2(int_mb(KISTSGP(1)),(ITPFGS(IGAS)-1)*NSMST+1,NSMST,
       &               IISTSGP(1,IGAS))
        END DO
  *
  