include 'COMMON.IOUNITS'
include 'COMMON.CHAIN'
include 'COMMON.DFA'
-
+ include 'COMMON.FFIELD'
C NOTE THAT FILENAMES are FIXED, CURRENTLY!!
C THIS SHOULD BE MODIFIED!!
C END OF NEIGHBORING CA
C READ BETA RESTRAINT
+ if (wdfa_beta.eq.0.0) return
open(iodfa, file='beta_dfa.dat',status='old',err=39)
goto 40
39 write(iout,'(a)') 'Error opening beta_dfa.dat file'