SUBROUTINE VCNGT(NUM,NDB,DDB,TYPE,IND,LOC)
      REAL*4 DDB
      INTEGER*2 NUM,NDB,TYPE,IND,LOC
C VCNGT CALCULATES THE INDEX(IND) AND POSITION(LOC) OF NEXT GRID OR TICK
C NUM = NUMBER OF GRID LINES OR TICK MARKS PER DIVISION
C NDB = POSITION (IN BITS) OF NEXT DIVISION
C DDB = BITS PER DIVISION
C TYPE = (0,1) FOR (LINEAR,LOG)
      IF(IND.EQ.NUM)IND=0
      IND=IND+1
      IF(TYPE.EQ.1)GO TO 1000
      LOC=NDB-IFIX(DDB*(1.0-FLOAT(IND)/FLOAT(NUM))+.5)
      RETURN
1000  LOC=NDB-IFIX(DDB*(1.0-ALOG10(FLOAT(IND+1))/ALOG10(FLOAT(NUM+1)))
     1    +.5)
      RETURN
      END