/*===================================================================*/
 /* NRDF D0442 Data No.22                                             */
 /*===================================================================*/
 /* Bibliography                                                      */
 /*===================================================================*/
 \\BIB,22;
                       -Opneing paren. added in INST-ACC in \EXP,1[41
                       -Colon after semicolon in INC-ENGY-LAB deleted in
                        DATA,11
                       -Semicolon added in J-PI in DATA,12
 D#=D442;
 TITLE=/800-MEV INELASTIC PROTON SCATTERING FROM 40CA, 48CA, AND 54FE/;
 ATH=(G.S.ADAMS'1,2',TH.S.BAUER'1,3',G.IGO'1',G.PAULETTA'1',
      C.A.WHITTEN,JR.'1',A.WRIEKAT'1',G.W.HOFFMANN'4',G.R.SMITH'5',
      M.GAZZALY'6,7');
 /*@2@*/
 INST-ATH=(1USACLA'1',1USATEX'4',1USACLU'5',1USAPEN'6');
 REF=PR/C;
 VLP=21(1980)2485;
 RCTS=(40CA(P,P)40CA,48CA(P,P)48CA,54FE(P,P)54FE);
 /*===================================================================*/
 /* Experimental Conditions                                           */
 /*===================================================================*/
 \\EXP,22;
 POL-TGT=NO;
 ALGN-TGT=NO;
 ACC=(LINAC);
 INST-ACC=(1USALAS);
 INC-ENGY-LAB-RANGE=(800MEV);
 ERS-PRJ=+-2MEV;
 BEAM-INTNSTY=XUA;
 POL-PRJ=YES;
 DET-PARTCL=(P);
 DET-SYS=(MAG);
 SOLID-ANGL=XMSR;
 ERS-DET=105KEV'10',130KEV'11',140KEV'12';
 /*@3@*/
 ANL=(DWIA,DWBA,COLL-MODEL);
 PHQ=(XSECTN,ANGL-DSTRN,ENGY-SPEC,DSIGMA/DOMEGA,ANALPW,OPT-POTL-PARA,
      DEFORM-PARA);
 RCT=48CA(P,P)48CA;
 94.5%;
 ELM;
 THK-TGT=101MG/CM**2;
 /*===================================================================*/
 /* Descriptive Parameters                                            */
 /*===================================================================*/
 \\DATA,22;
 PRJ=P;
 TGT=48CA;
 INC-ENGY=800MEV;
 POTL-FORM=/
 -(V*F(XR)+I*(WV*F(XIV)-4*WS-DIF(1/XIS)F(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 RAIDUS RC*A**(1/3):/;
 /*===================================================================*/
 /* Data Table                                                        */
 /*===================================================================*/
 \DATA;
 INC-ENGHY-LAB V RR AR WV RIV AIV VSO RRSO ARSO WSO RISO AISO RC
 800 -2.02 1.05 0.55 64.0 1.05 0.55 0.74 1.03 0.57 1.71 1.03 0.57 1.05
 \END;
 /*===================================================================*/