SUBROUTINE VDET
      LOGICAL*1 IOSB(2)
      INTEGER*2 PLU,VLU,TLU,EFN,DSW,BYTCNT,USRPRM(6)
      COMMON/VEXEC/PLU,VLU,TLU,EFN,DSW,IOSB,BYTCNT,USRPRM
      INTEGER*2 DET,NAME(3)
      DATA DET/"2000/,NAME/2H  ,2HVD,2HET/
      DO 1000 I=1,6
1000  USRPRM(I)=0
      CALL GETADR(USRPRM,USRPRM)
      USRPRM(2)=2
      CALL QIO(DET,VLU,EFN,,IOSB,USRPRM,DSW)
      CALL WAITFR(EFN)
      CALL VPERR(NAME)
      USRPRM(1)=0
      USRPRM(2)=0
      CALL QIO(DET,PLU,EFN,,IOSB,USRPRM,DSW)
      CALL WAITFR(EFN)
      CALL VPERR(NAME)
      RETURN
      END