anchor.diff:  * Jeppe Olsen, April 2013
   *
   *. Input
  +#include "mafdecls.fh"
         INCLUDE 'implicit.inc'
         INCLUDE 'mxpdim.inc'
         INCLUDE 'wrkspc-static.inc'
  
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:       DO IGRP = 1, NGRPA
  C?      WRITE(6,*) ' (IGRPA(IGRP)-1)*NSMST+1 = ',
  C?   &               (IGRPA(IGRP)-1)*NSMST+1
          CALL ICOPVE2(int_mb(KNSTSGP(1)),(IGRPA(IGRP)-1)*NSMST+1,NSMST,
       &               NNSTSGP(1,IGRP))
          CALL ICOPVE2(int_mb(KISTSGP(1)),(IGRPA(IGRP)-1)*NSMST+1,NSMST,
       &               IISTSGP(1,IGRP))
        END DO
  *
  