anchor.diff:  *
   * Eric: use local LL DATA and copy it to the COMMON blocks
         PARAMETER(ZERO=0.0D0,HALF=5.0D-1,ONE=1.0D0)
  -*-----MEMORY MANAGEMENT ----------------------------------------------------- 1
  -      PARAMETER(LNAM=10000,LVAR=8,LTEX=4000,LTTE=80,LCC=10000)                2
  -      CHARACTER CNAM(LNAM)*8,CTEX(LTEX)*80,CBLA*80                            3
  -      INTEGER NPAR(LNAM,17)                                                 4
  -      DOUBLE PRECISION CC(LCC)                                              5
  -      COMMON / CMEM / CNAM,CTEX,CBLA                                          6
  -      COMMON /  MEM / NPAR, CC, INAM, ITEX, ICC                               7
  -*---------------------------------------------------------------------------- 8
  +*-----MEMORY MANAGEMENT ----------------------------------------------------- ! 1
  +      PARAMETER(LNAM=10000,LVAR=8,LTEX=4000,LTTE=80,LCC=10000)                ! 2
  +      CHARACTER CNAM(LNAM)*8,CTEX(LTEX)*80,CBLA*80                            ! 3
  +      INTEGER NPAR(LNAM,17)                                                   ! 4
  +      DOUBLE PRECISION CC(LCC)                                                ! 5
  +      COMMON / CMEM / CNAM,CTEX,CBLA                                          ! 6
  +      COMMON /  MEM / NPAR, CC, INAM, ITEX, ICC                               ! 7
  +*---------------------------------------------------------------------------- ! 8
   *
   *     CNAM: CONTAINS INAM NAMES OF VARIABLES, FUNCTIONS, SUBROUTINES
   *     NPAR: PARAMETERS DESCRIBING THE VARIABLES
  
positive.code:       PARAMETER(C1M15=1.0D-15,C1M17=1.0D-17,C1M18=1.0D-18)
        PARAMETER(C1M21=1.0D-21,C1M24=1.0D-24,C1M38=1.0D-38)
        PARAMETER(FIVE=5.0D0,SIX=6.0D0,SEVEN=7.0D0,EIGHT=8.0D0)
        PARAMETER(NINE=9.0D0,TEN=10.0D0)
        PARAMETER(C24E0=24.0D0,C120E0=120.0D0,C16E0=16.0D0,C40E0=40.0D0)
        PARAMETER(C80E0=80.0D0,C72E0=72.0D0)
        PARAMETER(C12E0=12.0D0,C32E0=32.0D0,C48E0=48.0D0,C160E0=160.0D0)
  
negative.code:       PARAMETER(C1M15=1.0D-15,C1M17=1.0D-17,C1M18=1.0D-18)
        PARAMETER(C1M21=1.0D-21,C1M24=1.0D-24,C1M38=1.0D-38)
        PARAMETER(FIVE=5.0D0,SIX=6.0D0,SEVEN=7.0D0,EIGHT=8.0D0)
  !     PARAMETER(NINE=9.0D0,TEN=10.0D0)
        PARAMETER(TEN=10.0D0)
        PARAMETER(C24E0=24.0D0,C120E0=120.0D0,C16E0=16.0D0,C40E0=40.0D0)
        PARAMETER(C80E0=80.0D0,C72E0=72.0D0)
        PARAMETER(C12E0=12.0D0,C32E0=32.0D0,C48E0=48.0D0,C160E0=160.0D0)
  