CVS log for pol_hms_single/qfs_new12_sub.f
	Help

Request diff between arbitrary revisions / Display revisions graphically

1) Updated to use factor 'scalein' which is set in the input file and scales
   the inelastic cross section for A>2.

2) fixed bug in code in IF statement

if((a.eq.1.and.z.eq.1).and.(wsq.le.3.9d0))

replaced by

if((a.eq.1.and.z.eq.1).and.(wsq/1d6.le.3.9d0).and.elflag .eq. 0.d0)

1. For A=4 PF=162., EPS=20.6 , EPSD = 13.0
2. Changed modification of form factors in nuclei. Calculate new "ap"
    for "na" <5 ( before <4).
3. Modified code get_gegm_prot and get_gegm_neut to modify the form factors
   according to a correction determined by the "ap" variable. So nuclei with
   A <= 4 have modified form factor by the ratio of the free dipole to
   a dipole using "ap". "ap" is linearly changed  as a function of A from
   the free A =1 form factors "ap = 840" to the "ap=815" for A > 4 .

Added new subroutines to calculate nucleon Ge and Gm.

For A = 2 change PF from 130 to 100.

Modified how elastic ep events are treated.

Updated QFS code to match C data better. Version 12 so Makefile is updated.