anchor.diff:  !
   !-----MEMORY MANAGEMENT -----------------------------------------------------! 1
         PARAMETER(LNAM=10000,LTEX=4000,LCC=10000)                              ! 2
  -      CHARACTER CNAM(LNAM)*8,CTEX(LTEX)*132,CBLA*132                         ! 3
  +      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
  
positive.code:          ITI = NPAR(II,2)
        ELSEIF(II.GT.LNAM) THEN
           II = II - LNAM
           IL = ILAST(CTEX(II),1,132)
           IF(INDEX(CTEX(II)(1:IL),'.').EQ.0) THEN
              ITI = 2
           ELSE
  
negative.code:          I = I + 1
           ITEX = ITEX + 1
           CTEX(ITEX)(1:4) = '-ONE'
           DO J=5,80
             CTEX(ITEX)(J:J) = ' '
           END DO
           ICC = ICC + 1
  