anchor.diff:  *                LNAM < IA:          IA - LNAM ADDRESS OF CONSTANT
   *
   *
  -*-----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
  -*-----CODE ------------------------------------------------------------------ 1
  -      PARAMETER (LARI=10000)                                                   2
  -      INTEGER NARI(LARI,11), IARI                                             3
  -      COMMON / CODE / NARI, IARI                                              4
  -*---------------------------------------------------------------------------- 5
  -*-----SYMBOL---------------------------------------------------------------- 1
  -      PARAMETER (LFUNC=100,LOPER=16)                                           2
  +*-----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
  +*-----CODE ------------------------------------------------------------------! 1
  +      PARAMETER (LARI=10000)                                                 ! 2
  +      INTEGER NARI(LARI,11), IARI                                            ! 3
  +      COMMON / CODE / NARI, IARI                                             ! 4
  +*----------------------------------------------------------------------------! 5
  +*-----SYMBOL-----------------------------------------------------------------! 1
  +      PARAMETER (LFUNC=100,LOPER=16)                                         ! 2
         INTEGER KFUN(LFUNC)
  -      CHARACTER OPER(LOPER)*6, FUNC(LFUNC)*6                                  3
  +      CHARACTER OPER(LOPER)*6, FUNC(LFUNC)*6                                 ! 3
         COMMON / SYMBOL1 / KFUN
  -      COMMON / SYMBOL / OPER, FUNC                                           4
  -*---------------------------------------------------------------------------- 5
  +      COMMON / SYMBOL / OPER, FUNC                                           ! 4
  +*----------------------------------------------------------------------------! 5
   *
   cfrs      PARAMETER(LANA=100,LA=10000,LCHECK=0,LDEC=37)
         PARAMETER(LANA=100,LA=10000,LDEC=37)
  
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(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)
        PARAMETER(ISZ=200)
  !      CHARACTER A*160
  !      INTEGER NA(50)
  *
        !For command line argument parsing
        INTEGER :: cmdarg_i, cmdarg_length, cmdarg_status
  