      SUBROUTINE GET_ITG(IUNIT1,IVAL)
*
***** ***************************************************************
*
*---- Opvragen integer uit stuurfile
*
*---- Bert Bleij & Flip Witte, LUW, 260994
*
***** ***************************************************************
*
      CHARACTER C60*60
      INTEGER IVAL
*
      READ(IUNIT1,900)C60
      IF (C60(1:1).EQ.'V') THEN
         READ(IUNIT1,900)C60
         IF (C60(1:1).NE.'A') STOP 'Fout in stuurfile!' 
         READ(C60(3:10),910,ERR=10)IVAL
         GOTO 20
      END IF
10    STOP 'Fout in stuurfile, geen integer in gelezen!'
*
900   FORMAT(A)
910   FORMAT(I8)
*
20    RETURN
      END