anchor.diff:  c      IMPLICIT REAL*8 (A-H,O-Z)
   *. Input
   c      INCLUDE 'mxpdim.inc'
  +#include "mafdecls.fh"
         INCLUDE 'wrkspc.inc'
         INCLUDE 'cgas.inc'
         INCLUDE 'gasstr.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: * Jeppe Olsen, April 2013
  *
  *. Input
  #include "mafdecls.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc-static.inc'
  