anchor.diff:        ENDIF
         CC(ICC) = CVAL
         CTEX(ITEX)(1:I-IOLD) = A(IOLD:I-1)
  -      DO J=I-IOLD+1,132
  +      DO J=I-IOLD+1,80
           CTEX(ITEX)(J:J) = ' '
         END DO
         IANA = IANA + 1
  
positive.code:          ND = NPAR(IA,4)
        ELSEIF(IA.GT.LNAM) THEN
           IA = IA - LNAM
           LA = MAX(11,ILAST(CTEX(IA),1,132))
           A = '('//CTEX(IA)(1:LA)//')'//CBLA
           LA = LA + 2
           IF(INDEX(A(1:LA),'.').EQ.0) THEN
  
negative.code: !
  !-----MEMORY MANAGEMENT -----------------------------------------------------! 1
        PARAMETER(LNAM=10000,LVAR=8,LTEX=4000,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
  