anchor.diff:           ND = NPAR(IA,4)
         ELSEIF(IA.GT.LNAM) THEN
            IA = IA - LNAM
  -         LA = MAX(11,ILAST(CTEX(IA),1,132))
  +         LA = MAX(11,ILAST(CTEX(IA),1,80))
            A = '('//CTEX(IA)(1:LA)//')'//CBLA
            LA = LA + 2
            IF(INDEX(A(1:LA),'.').EQ.0) THEN
  
positive.code: !
  !-----MEMORY MANAGEMENT -----------------------------------------------------! 1
        PARAMETER(LNAM=10000,LTEX=4000,LCC=10000)                              ! 2
        CHARACTER CNAM(LNAM)*8,CTEX(LTEX)*132,CBLA*132                         ! 3
        INTEGER NPAR(LNAM,17)                                                  ! 4
        DOUBLE PRECISION CC(LCC)                                               ! 5
        COMMON / CMEM / CNAM,CTEX,CBLA                                         ! 6
  
negative.code:       COMMON / SYMBOL / OPER, FUNC                                           ! 4
  !----------------------------------------------------------------------------! 5
        integer i,j
        character(len=80) blanks
        character(len=8) blank8
  
        PARAMETER(ZERO=0.0D0)
  