- call reada(controlcard,'SCAL14',scal14,0.4d0)
- call reada(controlcard,'SCALSCP',scalscp,1.0d0)
- call reada(controlcard,'CUTOFF',cutoff_corr,7.0d0)
- call reada(controlcard,'DELT_CORR',delt_corr,0.5d0)
- r0_corr=cutoff_corr-delt_corr
-C Bartek
- call reada(controlcard,'WDFAD',wdfa_dist,0.0d0)
- call reada(controlcard,'WDFAT',wdfa_tor,0.0d0)
- call reada(controlcard,'WDFAN',wdfa_nei,0.0d0)
- call reada(controlcard,'WDFAB',wdfa_beta,0.0d0)
- write (iout,*) "wdfa_dist",wdfa_dist," wdfa_tor",wdfa_tor,
- & " wdfa_nei",wdfa_nei," wdfa_beta",wdfa_beta
- r0_corr=cutoff_corr-delt_corr