SUBROUTINE VCIGT(NUM,FDB,DDB,TYPE,IND,LOC)
      INTEGER*2 NUM,FDB,TYPE,IND,LOC
      REAL*4 DDB
C VCIGT CALCULATES THE IND AND LOC OF THE 1ST GRID LINE OR TICK MARK
C ALL PARAMETERS ARE THE SAME AS FOR VCNGT EXCEPT FDB
C FDB = POSITION OF 1ST DIVISION
      IF(NUM.NE.0)GO TO 1000
      LOC=32767
      RETURN
1000  IF(TYPE.EQ.1)GO TO 1010
      IND=NUM-IFIX(FLOAT(FDB*NUM)/DDB)
      GO TO 1020
1010  IND=-1+IFIX(0.9999
     1    +10.0**(ALOG10(FLOAT(NUM+1))*(DDB-FLOAT(FDB))/DDB))
1020  IND=IND-1
      CALL VCNGT(NUM,FDB,DDB,TYPE,IND,LOC)
      RETURN
      END