/*===================================================================*/
 /* NRDF D0388 Data No.5                                              */
 /*===================================================================*/
 /* Bibliography                                                      */
 /*===================================================================*/
 \\BIB,5;
 D#=D388;
 TITLE=/EXCITATION OF THE GIANT ISOSCALAR MONOPOLE RESONANCE IN 144SM
        AND 154SM VIA INELASTIC PROTON SCATTERING/;
 PURPOSE=/TO REEVALUATE THE CALCULATION FOR T=1,L=1 EXCITATIONS AND TO
          SHOW THAT THE RESULTS CAN BE EXPLAINED IN TERMS OF THE
          EXCITATION OF ISOSCALAR 0+ AND 2+ GIANT RESONANCES.WHICH IS
          CONSISTENT WITH RECENT 144SM(ALPHA,ALPHA) MEASUREMENTS AND
          ISOVECTOR 1- GIANT RESONANCES./;
 /*@5@*/
 ATH=(F.E.BERTRAND'1',G.R.SATCHLER'1',D.J.HOREN'1',A.VAN DER WOUDE'2');
 INST-ATH=(1USAORL'1',2NEDGRN'2');
 REF=PR/C;
 VLP=18(1978)2788;
 RCTS=(144SM(P,P)144SM,154SM(P,P)154SM);
 /*===================================================================*/
 /* Experimental Conditions                                           */
 /*===================================================================*/
 \\EXP,5;
 ACC=(CYC);
 INST-ACC=1USAORL;
 INC-ENGY-LAB-RANGE=(67MEV);
 POL-PRJ=NO;
 DET-PARTCL=(P);
 DET-SYS=(MAG'1');
 /*@3@*/
 ERS-DET=X KEV'1';
 /*@4@*/
 ANL=(OPT-MODEL,DWBA);
 RCT=144SM(P,P)144SM;
 RCT=154SM(P,P)154SM;
 PHQ=(EXC-FUNCT,DSIGMA/DOMEGA/DE,RESN-ENGY,GIA-RESN);
 PHQ=(ANGL-DSTRN,DSIGMA/DOMEGA,EXC-ENGY,RESN-ENGY,GIA-RESN);
 PHQ=(OPT-POTL-PARA);
 /*===================================================================*/
 /* Descriptive Parameters                                            */
 /*===================================================================*/
 \\DATA,5;
 PRJ=P;
 TGT=144SM;
 INC-ENGY=67MEV;
 POTL-FORM=/ -(V*F(XR)+I*(WV*F(XIV)-4*WS*DIF(1!XIS)+WG*G(XIG)))+
 (HBAR/(MPI*C)**2*1/R*(VSO*DIF(1!R)F(XRSO)+I*WSO*DIF(1!R)
 F(XISO))*SIGMA*L+UC(R):
 F(XI)=1/(1+EXP(XI)): G(XG)=EXP(-XG**2):
 XI=(R-RI*A**(1/3))/AI:
 UNIFORM CHARGE OF RADIUS RC*A**(1/3)/;
 /*===================================================================*/
 /* Data Table                                                        */
 /*===================================================================*/
 \DATA;
 /* 2006-02-26 N.OTUKA RESN-EXC-ENGY -> EXC-ENGY in DATA,3,4 */
 V WS
 (MEV) (MEV)
  17.7     2.8
 \END;
 /*===================================================================*/