anchor.diff:           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
   *     ***************************
  
positive.code:      *            '81','82','83','84','85','86','87','88','89','90',
       *            '91','92','93','94','95','96','97','98','99'/
  *
        IF(IA.LT.0) THEN
           IA = -IA
           ITA = ISCRTY(IA)
  
negative.code:       DATA AER  / '                                                  ' /
        DATA IFI  / 0 /
  *
        INTEGER IPRIO
  * Eric
        IB = 0
  *
        IPRIO = -4242
  *
        IFUVA = 0
        IF(IFI.EQ.0) THEN
           IFI = 1
  