/*===================================================================*/
 /* NRDF D0403 Data No.1                                              */
 /*===================================================================*/
 /* Bibliography                                                      */
 /*===================================================================*/
 \\BIB,1;
 D#=D403;
 TITLE=/ELASTIC AND INELASTIC DIFFRACTION SCATTERING OF 0.8 GEV PROTONS
        BY 89Y AND 90ZR/;
 PURPOSE=/IN ORDER TO INVESTIGATE THE POSSIBLE SENSITIVITY OF A SMALL
          WAVELENGTH PROBE TO THE DETAILS OF NUCLEAR STRUCTURC, WE CHOSE
          AS TARGETS THE NEIGHBORING NUCLEI 89Y AND 90ZR./;
 ATH=(N.J.DIGIACOMO'1',R.L.BOUDRIE'1',I.BRISSAUD'1',J.J.KRAUSHAAR'1',
      R.J.PETERSON'1',R.A.RISTINEN'1',E.S.ROST'1',G.R.SMITH'1');
 INST-ATH=(1USACLU'1');
 REF=PR/C;
 VLP=19(1979)1132;
 RCTS=(89Y(P,P)89Y,90ZR(P,P)90ZR);
 /*===================================================================*/
 /* Experimental Conditions                                           */
 /*===================================================================*/
 \\EXP,1;
 RCT=90ZR(P,P)90ZR;
 ENR=X%;
 CHM=X;
 THK-TGT=XMG/CM**2;
 BAC=X;
 THK-BAC=X MG/CM**2;
 POL-TGT=NO;
 ALGN-TGT=NO;
 RCT=89Y(P,P)89Y;
 ENR=X%;
 CHM=X;
 THK-TGT=XMG/CM**2;
 BAC=X;
 THK-BAC=XMG/CM**2;
 POL-TGT=NO;
 ALGN-TGT=NO;
 INST-ACC=1USALAS;
 INC-ENGY-LAB-RANGE=(800MEV);
 DELTA-INC-ENGY-LAB=XKEV;
 ERS-PRJ=XKEV;
 BEAM-INTNSTY=X UA;
 POL-PRJ=NO;
 DET-PARTCL=(P);
 DET-SYS=(MAG+PLST-SCT+TOF+X'1');
 /*@3@*/
 SOLID-ANGL=XMSR;
 ERS-DET=[200KEV;
 ANL=(OPT-MODEL,DWBA,COLL-MODEL);
 PHQ=(XSECTN,ANGL-DSTRN,DSIGMA/DOMEGA,POL,OPT-POTL-PARA);
 /*===================================================================*/
 /* Descriptive Parameters                                            */
 /*===================================================================*/
 \\DATA,1;
 PRJ=P;
 TGT=(89Y,90ZR);
 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-ENGY-LAB V RR AR WV RIV AIV VSO RRSO ARSO WSO RISO AISO
 RC
 (MEV) (MEV) (FM) (FM) (MEV) (FM) (FM) (MEV) (FM) (FM) (MEV) (FM) (FM)
 (FM)
 800 28.4 1.047 0.462 -52.9 1.11 0.555 1.34 1.04 6.745 -0.48 1.04 0.745
   1.113
 \END;
 /*===================================================================*/