      SUBROUTINE GET_C60(IUNIT1,C60)
*
***** ***************************************************************
*
*---- Opvragen Character uit stuurfile
*
*---- Bert Bleij & Flip Witte, LUW, 260994
*
***** ***************************************************************
*
      CHARACTER C60*60
*
      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:60),900)C60
      END IF
*
900   FORMAT(A)
*
      RETURN
      END