- if (itype(1).eq.21) nnt=2
- if (itype(nres).eq.21) nct=nct-1
-
-C Juyong:READ init_vars
-C Initialize variables!
-C Juyong:READ read_info
-C READ fragment information!!
-C both routines should be in dfa.F file!!
-
- if (.not. (wdfa_dist.eq.0.0 .and. wdfa_tor.eq.0.0 .and.
- & wdfa_nei.eq.0.0 .and. wdfa_beta.eq.0.0)) then
- call init_dfa_vars
- print*, 'init_dfa_vars finished!'
- call read_dfa_info
- print*, 'read_dfa_info finished!'
- endif
-C
-C
-
-