anchor.diff:       *            '81','82','83','84','85','86','87','88','89','90',
        *            '91','92','93','94','95','96','97','98','99'/
   *
  +      ND = -4242
  +      
         IF(IA.LT.0) THEN
            IA = -IA
            ITA = ISCRTY(IA)
  
positive.code:          DO 1 I=1,800
    1      BLANK(I:I) = ' '
        ENDIF
  *
        ISOFF = 0
        ISOUT = 1
  
negative.code:          WRITE(6,'(1X,A)') '!!! ERROR, IA = 0 IN VNAM'
           WRITE(2,'(1X,A)') '!!! ERROR, IA = 0 IN VNAM'
        ENDIF
  
        if (ND .eq. -4242) then
           write(6,*) "!!! ERROR, ND was not initialized in VNAM"
           stop 15
        end if
        
  *
  *     CASE OF ARRAYS OR FUNCTIONS
  *     ***************************
  