FTN4,L
      INTEGER FUNCTION IFDVR(LU),92070-1X320 REV.2040 800723
C************************************************************** 
C*                                                            * 
C*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS   *   
C*  RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,    *   
C*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE  *   
C*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD  * 
C*  COMPANY.                                                  * 
C*                                                            * 
C************************************************************** 
C*  
C*    NAME:   IFDVR 
C*  SOURCE:   92070-18320 (&IFDVR for L-series) 
C*   RELOC:   PART OF 92070-12013 (%IFDVL merged into $DKLIB) 
C*    PGMR:   KKB 
C*  
C 
C RETURN 1, INDICATING HP-IB DRIVER (AS OPPOSED TO 13037) 
C 
      IFDVR = 1 
      RETURN
      END 
                                                                          