SUBROUTINE v_read
USE FileUnits_Module
USE InputFile_Module
USE CommonInfo_Module
USE APH_Module
USE Aph_Ham_Module
IMPLICIT NONE
!==============================================================================
LOGICAL there, vzero
!REAL(dp) v_pot(nrho,ntheta,nchi+1)

NAMELIST / daf / vzero

!============================================
! Second Call

 INQUIRE (file = TRIM(inputfile2), exist = there)
 IF (there) THEN
   OPEN (unit = bin_unit8, file = TRIM(inputfile2), status = 'old')
   READ (bin_unit8, daf)
   CLOSE (unit = bin_unit8, status = 'keep')
 ELSE
   STOP 'v_read'
 ENDIF

 IF (vzero) v_pot=0.d0

RETURN
END