      SUBROUTINE GET_RL(IUNIT1,VAL)
*
***** ***************************************************************
*
*---- Opvragen real uit stuurfile
*
*---- Bert Bleij, LUW, 260994
*
***** ***************************************************************
*
      CHARACTER C60*60
      REAL VAL
*
      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)VAL
         GOTO 20
      END IF
10    STOP 'Fout in stuurfile, geen real in gelezen!'
*
900   FORMAT(A)
910   FORMAT(F8.2)
*
20    RETURN
      END