anchor.diff:  !-----MEMORY MANAGEMENT ----------------------------------------------------- ! 1
         PARAMETER(LNAM=10000,LTEX=4000,LCC=10000)                               ! 2
         CHARACTER(LEN=8), DIMENSION(LNAM) :: CNAM
  -      CHARACTER(LEN=132), DIMENSION(LTEX) :: CTEX
  -      CHARACTER(LEN=132) CBLA                                                 ! 3
  +      CHARACTER(LEN=80), DIMENSION(LTEX) :: CTEX
  +      CHARACTER(LEN=80) CBLA                                                  ! 3
         INTEGER NPAR(LNAM,17)                                                   ! 4
         DOUBLE PRECISION CC(LCC)                                                ! 5
         COMMON / CMEM / CNAM,CTEX,CBLA                                          ! 6
  
positive.code: !
  !-----MEMORY MANAGEMENT -----------------------------------------------------! 1
        PARAMETER(LNAM=10000,LVAR=8,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: 
        DATA llINAM / 0 /
  
        do i=1,80
          blanks(i:i)=' '     
        enddo
  !      blank6='      '
  