Computer code doing the calculation of the differential cross section for 208Pb(p,p') via an isolated isobaric analog resonance in 209Bi

Example of a computer code based on IDL [1] to calculate the differential cross section of a state described by 1p1h configurations excited by 208Pb(p,p') via an isolated isobaric analog resonance in 209Bi. The formula is given by Eq. (4) in [2] and uses a table of the geometrical coefficients calculated for all orbits 50 .le. N .le. 184 shown in [3].