program for2
! Purpose: Establish performance baseline for opening/closing a file
      open (unit=1,file='sys$scratch:tti_vendor.tmp',status='old')
      close (unit=1)
      end