anchor.diff:           ENDIF
         ELSEIF(ITY.EQ.4) THEN
            IR  = NARI(I,3)
  -         DO 20 J=1,NPAR(IR,4)
  -  20     INDEX(J) = NARI(I,4+J)
  +         DO J=1,NPAR(IR,4)
  +           INDEX(J) = NARI(I,4+J)
  +         END DO
            CALL VNAM(IR, INDEX, AR,800,LR,ITR,ISCRTY)
            ITS = ITR
         ENDIF
  
positive.code:             continue
           else if (cmdarg_i.eq.1) then
              if (cmdarg_status.ne.0) then
                 write(6,*) "Error: Input file name too long."
                 stop 1
              end if
              fname_in = trim(cmdarg_arg)
           else if (cmdarg_i.eq.2) then
              if (cmdarg_status.ne.0) then
                 write(6,*) "Error: Output file name too long."
                 stop 1
              end if
              fname_out = trim(cmdarg_arg)
           else
              write(6,*) "Error: Expected either no arguments OR "
              write(6,*) "two arguements (input and output file name)"
              stop 1
           end if
           cmdarg_i = cmdarg_i+1
  
negative.code: !     *****************
  !
   1000 CONTINUE
        WRITE(OUTPUT_UNIT,'(1X,2A)') ' ### ', AER
        WRITE(OUTPUT_UNIT,'(1X,2A)') ' ', A(1:IA-1)
        WRITE(OUTPUT_UNIT,'(1X,255A)') ' ', (' ',K=1,I-1),'*'
        IF(IU.NE.0) THEN
           WRITE(IU,'(1X,2A)') ' ### ', AER
           WRITE(IU,'(1X,2A)') ' ', A(1:IA-1)
  