anchor.diff:           A(LA+1:LA+1) = ')'
            LA = LA + 1
   !      ENDIF
  -!
  +
         IF(LA.GT.NA) THEN
            WRITE(ERROR_UNIT,'(1X,A)') '!!! ERROR IN ROUTINE VNAM, IA > NA'
            WRITE(2,'(1X,A)') '!!! ERROR IN ROUTINE VNAM, IA > NA'
            STOP 14
         ENDIF
  -!
  +
         RETURN
         END
  
positive.code:             LA = 16
              A(1:LA) = 'ISCRDA( '//CNUM(IA)//'+IDAA)'
           ENDIF
  !
        ELSEIF((IA.GE.1).AND.(IA.LE.LNAM)) THEN
           ITA = NPAR(IA,2)
           LA = 11
  
negative.code:                      'MIN1  ','AMIN0 ','DIM   ','IDIM  ','MOD   ', & !18
                       'AMOD  ','SIGN  ','ISIGN ','DPROD ','ATAN2 ', & !19
                       'DATAN2','DMAX1 ','DDIM  ','DSIGN ','DMOD  '/   !20
  
        DATA llKFUN / 74*1,26*2 /
  !   Eric left unchanged, but trying a DO loop later
  !     DATA llCBLA / '
  !    *                           ' /
  
        DATA llINAM / 0 /
  
        do i=1,80
          blanks(i:i)=' '     
        enddo
  !      blank6='      '
        blank8='        '
  
        do i=1,lnam
          cnam(i)=blank8
        enddo
  
        do i=1,ltex
          ctex(i)=blanks
        enddo
  
        cbla=blanks
  
        do i=1,lnam
          do j=1,17
            npar(i,j)=0
          enddo
        enddo
  
        do i=1,lcc
          cc(i)=ZERO
        enddo
  
        itex=0
        icc=0
  
        do i=1,lari
          do j=1,11
            nari(i,j)=0
          enddo
        enddo
        iari=0
  
        do i=1,100
          kfun(i)=llkfun(i)
        enddo
  
        do i=1,lnam
          do j=1,17
            npar(i,j)=0
          enddo
        enddo
  
        do i=1,lfunc
          func(i)=llfunc(i)
        enddo
  
        do i=1,loper
          oper(i)=lloper(i)
        enddo
  
        inam=llINAM
  
        END
  
  ! ANFANG UNTERPROGRAMM
    
        SUBROUTINE PRECOM
  