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'
C
implicit real*8 (a-h,o-z)
include 'DIMENSIONS'
+ include 'DIMENSIONS.ZSCOPT'
include 'COMMON.IOUNITS'
include 'COMMON.CHAIN'
include 'COMMON.DFA'
+ include 'COMMON.FFIELD'
C NOTE THAT FILENAMES are FIXED, CURRENTLY!!
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'