*     -----------------------------------------------------
      FUNCTION efgampi0p(GK,COST)
*     -----------------------------------------------------
*     
*     ( purpose )
*       RETURN DIFFERENTIAL CROSS SECTION OF
C          GAMMA,p ---> pi0p
*
*     ( input ) 
*          GK   : gamma energy(MEV)
*         COST  : COS(THETA_CM)
*
*     ( output ) 
*       efgampi0p : DIFFERENTIAL CROSS SECTION (MICRO BARN/STR.)
*
C
C -- REFERENCE
C      SAID PWA as of Jan-Feb, 2010
C      Solution: SP09K 2700 MEV P(199)
C      (http://gwdac.phys.gwu.edu/analysis/pr_analysis.html)
C                     - P. de Perio
C
      DIMENSION NRG(91),ANG(41),CRS(41,91)
      DATA NRG/144.,
     &150.,160.,170.,180.,190.,200.,210.,220.,230.,
     &240.,250.,260.,270.,280.,290.,300.,310.,320.,
     &330.,340.,350.,360.,370.,380.,390.,400.,410.,
     &420.,430.,440.,450.,460.,470.,480.,490.,500.,
     &510.,520.,530.,540.,550.,560.,570.,580.,590.,
     &600.,610.,620.,630.,640.,650.,660.,670.,680.,
     &690.,700.,710.,720.,730.,740.,750.,760.,770.,
     &780.,790.,800.,810.,840.,870.,900.,930.,960.,
     &990.,1020.,1050.,1080.,1110.,1140.,1170.,1200.,1230.,
     &1260.,1290.,1320.,1350.,1380.,1410.,1440.,1470.,2000./

      DATA ANG/-1.00,
     &-0.95,-0.90,-0.85,-0.80,-0.75,-0.70,-0.65,-0.60,
     &-0.55,-0.50,-0.45,-0.40,-0.35,-0.30,-0.25,-0.20,
     &-0.15,-0.10,-0.05,0.00,0.05,0.10,0.15,0.20,
     &0.25,0.30,0.35,0.40,0.45,0.50,0.55,0.60,
     &0.65,0.70,0.75,0.80,0.85,0.90,0.95,1.00/

      DATA CRS/ 

C    Egam = 144
     &0,
     &0,0,0,0,0,0,0,0,
     &0,0,0,0,0,0,0,0,
     &0,0,0,0,0,0,0,0,
     &0,0,0,0,0,0,0,0,
     &0,0,0,0,0,0,0,0,

C    Egam = 150
     &0.0494,
     &0.0493,0.0491,0.0489,0.0487,0.0484,0.0481,0.0478,0.0474,
     &0.047,0.0466,0.0461,0.0456,0.0451,0.0445,0.0439,0.0433,
     &0.0426,0.0419,0.0412,0.0404,0.0397,0.0388,0.038,0.0371,
     &0.0362,0.0352,0.0342,0.0332,0.0322,0.0311,0.03,0.0289,
     &0.0277,0.0265,0.0253,0.024,0.0227,0.0213,0.02,0.0186,

C    Egam = 160
     &0.208,
     &0.209,0.211,0.212,0.212,0.213,0.213,0.213,0.213,
     &0.213,0.213,0.212,0.212,0.211,0.209,0.208,0.207,
     &0.205,0.203,0.201,0.199,0.197,0.194,0.191,0.188,
     &0.185,0.182,0.178,0.174,0.17,0.166,0.162,0.157,
     &0.153,0.148,0.142,0.137,0.132,0.126,0.12,0.113,

C    Egam = 170
     &0.446,
     &0.45,0.454,0.456,0.459,0.461,0.463,0.464,0.465,
     &0.466,0.466,0.465,0.464,0.463,0.461,0.459,0.456,
     &0.453,0.45,0.446,0.441,0.436,0.431,0.424,0.418,
     &0.411,0.404,0.396,0.387,0.378,0.369,0.359,0.348,
     &0.337,0.326,0.314,0.301,0.288,0.274,0.259,0.244,

C    Egam = 180
     &0.766,
     &0.774,0.78,0.787,0.792,0.797,0.801,0.805,0.808,
     &0.809,0.81,0.811,0.81,0.808,0.806,0.803,0.799,
     &0.794,0.788,0.781,0.773,0.765,0.755,0.745,0.733,
     &0.721,0.707,0.693,0.678,0.662,0.644,0.626,0.607,
     &0.586,0.565,0.542,0.518,0.493,0.466,0.438,0.409,

C    Egam = 190
     &1.18,
     &1.19,1.2,1.21,1.23,1.24,1.24,1.25,1.26,
     &1.26,1.27,1.27,1.27,1.27,1.26,1.26,1.26,
     &1.25,1.24,1.23,1.22,1.21,1.19,1.17,1.16,
     &1.14,1.12,1.09,1.07,1.04,1.01,0.985,0.954,
     &0.92,0.884,0.846,0.805,0.763,0.718,0.67,0.619,

C    Egam = 200
     &1.69,
     &1.71,1.73,1.75,1.78,1.79,1.81,1.83,1.84,
     &1.85,1.86,1.87,1.87,1.87,1.87,1.87,1.86,
     &1.86,1.85,1.83,1.82,1.8,1.78,1.75,1.73,
     &1.7,1.67,1.63,1.6,1.56,1.52,1.47,1.42,
     &1.37,1.31,1.25,1.19,1.12,1.05,0.975,0.893,

C    Egam = 210
     &2.31,
     &2.35,2.39,2.43,2.47,2.51,2.54,2.57,2.59,
     &2.62,2.63,2.65,2.66,2.67,2.67,2.67,2.67,
     &2.66,2.65,2.63,2.61,2.59,2.56,2.53,2.49,
     &2.45,2.41,2.36,2.31,2.25,2.19,2.12,2.05,
     &1.98,1.89,1.8,1.71,1.61,1.5,1.38,1.25,

C    Egam = 220
     &3.06,
     &3.14,3.21,3.27,3.34,3.4,3.46,3.51,3.56,
     &3.6,3.64,3.67,3.69,3.71,3.73,3.73,3.74,
     &3.73,3.72,3.7,3.68,3.65,3.62,3.57,3.53,
     &3.47,3.41,3.34,3.27,3.19,3.1,3.01,2.9,
     &2.79,2.67,2.54,2.4,2.25,2.09,1.91,1.72,

C    Egam = 230
     &3.96,
     &4.08,4.19,4.31,4.42,4.52,4.62,4.71,4.79,
     &4.87,4.93,4.99,5.04,5.08,5.11,5.13,5.14,
     &5.14,5.14,5.12,5.1,5.06,5.02,4.96,4.9,
     &4.83,4.75,4.66,4.56,4.45,4.32,4.19,4.04,
     &3.88,3.71,3.53,3.32,3.11,2.87,2.61,2.34,

C    Egam = 240
     &5,
     &5.19,5.38,5.57,5.74,5.91,6.07,6.22,6.36,
     &6.48,6.59,6.69,6.78,6.85,6.91,6.95,6.98,
     &6.99,7,6.99,6.96,6.92,6.87,6.8,6.72,
     &6.63,6.52,6.39,6.26,6.11,5.94,5.75,5.55,
     &5.33,5.09,4.82,4.54,4.23,3.89,3.52,3.13,

C    Egam = 250
     &6.18,
     &6.49,6.78,7.07,7.35,7.61,7.86,8.09,8.31,
     &8.51,8.68,8.84,8.98,9.1,9.2,9.28,9.34,
     &9.38,9.4,9.39,9.37,9.33,9.27,9.18,9.08,
     &8.96,8.82,8.65,8.47,8.26,8.03,7.78,7.5,
     &7.2,6.86,6.5,6.1,5.67,5.2,4.69,4.13,

C    Egam = 260
     &7.48,
     &7.94,8.38,8.81,9.23,9.62,10,10.4,10.7,
     &11,11.2,11.5,11.7,11.9,12.1,12.2,12.3,
     &12.4,12.4,12.4,12.4,12.4,12.3,12.2,12.1,
     &11.9,11.7,11.5,11.3,11,10.7,10.3,9.97,
     &9.55,9.1,8.6,8.06,7.47,6.83,6.13,5.38,

C    Egam = 270
     &8.81,
     &9.47,10.1,10.7,11.3,11.9,12.4,12.9,13.4,
     &13.9,14.2,14.6,14.9,15.2,15.4,15.6,15.8,
     &15.9,16,16,16,16,15.9,15.8,15.7,
     &15.5,15.2,14.9,14.6,14.3,13.9,13.4,12.9,
     &12.4,11.8,11.1,10.4,9.62,8.77,7.85,6.84,

C    Egam = 280
     &10,
     &11,11.9,12.7,13.5,14.3,15.1,15.8,16.4,
     &17,17.5,18,18.5,18.9,19.2,19.5,19.7,
     &19.9,20,20.1,20.1,20.1,20,19.9,19.7,
     &19.5,19.2,18.8,18.4,18,17.5,16.9,16.2,
     &15.5,14.8,13.9,13,12,10.9,9.73,8.45,

C    Egam = 290
     &11.1,
     &12.3,13.4,14.5,15.6,16.6,17.6,18.5,19.3,
     &20.1,20.8,21.5,22,22.5,23,23.4,23.7,
     &23.9,24.1,24.2,24.3,24.2,24.2,24,23.8,
     &23.5,23.1,22.7,22.2,21.7,21,20.3,19.5,
     &18.7,17.7,16.7,15.6,14.3,13,11.5,9.99,

C    Egam = 300
     &11.5,
     &13,14.4,15.8,17.1,18.3,19.5,20.6,21.6,
     &22.6,23.5,24.3,25,25.6,26.2,26.7,27.1,
     &27.4,27.6,27.8,27.8,27.8,27.8,27.6,27.3,
     &27,26.6,26.1,25.5,24.9,24.1,23.3,22.4,
     &21.4,20.3,19.1,17.8,16.3,14.8,13.1,11.3,

C    Egam = 310
     &11.3,
     &13,14.6,16.2,17.7,19.2,20.5,21.8,23,
     &24.1,25.1,26,26.8,27.6,28.2,28.8,29.3,
     &29.6,29.9,30.1,30.2,30.3,30.2,30,29.8,
     &29.4,29,28.4,27.8,27.1,26.3,25.4,24.3,
     &23.2,22,20.7,19.2,17.7,16,14.2,12.3,

C    Egam = 320
     &10.5,
     &12.3,14.1,15.8,17.5,19,20.5,21.8,23.1,
     &24.3,25.4,26.4,27.3,28.1,28.9,29.5,30,
     &30.4,30.8,31,31.1,31.2,31.1,30.9,30.7,
     &30.3,29.9,29.3,28.7,27.9,27.1,26.1,25,
     &23.9,22.6,21.2,19.8,18.1,16.4,14.6,12.6,

C    Egam = 330
     &9.24,
     &11.2,13,14.8,16.4,18,19.5,20.9,22.2,
     &23.5,24.6,25.6,26.6,27.4,28.1,28.8,29.3,
     &29.8,30.1,30.4,30.5,30.6,30.5,30.4,30.1,
     &29.8,29.4,28.8,28.2,27.4,26.6,25.6,24.6,
     &23.4,22.2,20.8,19.3,17.8,16.1,14.3,12.5,

C    Egam = 340
     &7.87,
     &9.76,11.6,13.3,14.9,16.5,18,19.4,20.6,
     &21.8,23,24,24.9,25.7,26.5,27.1,27.6,
     &28.1,28.5,28.7,28.9,28.9,28.9,28.8,28.5,
     &28.2,27.8,27.3,26.6,25.9,25.1,24.2,23.2,
     &22.1,20.9,19.6,18.3,16.8,15.2,13.6,11.9,

C    Egam = 350
     &6.52,
     &8.33,10.1,11.7,13.3,14.8,16.1,17.5,18.7,
     &19.8,20.9,21.9,22.7,23.5,24.2,24.9,25.4,
     &25.8,26.2,26.4,26.6,26.6,26.6,26.5,26.3,
     &26,25.6,25.1,24.5,23.9,23.1,22.3,21.4,
     &20.3,19.2,18.1,16.8,15.5,14.1,12.6,11.1,

C    Egam = 360
     &5.3,
     &6.99,8.61,10.1,11.6,13,14.3,15.5,16.6,
     &17.7,18.7,19.6,20.4,21.2,21.8,22.4,22.9,
     &23.3,23.7,23.9,24.1,24.1,24.1,24,23.8,
     &23.6,23.2,22.8,22.2,21.6,20.9,20.1,19.3,
     &18.4,17.4,16.3,15.2,14,12.8,11.5,10.2,

C    Egam = 370
     &4.26,
     &5.82,7.31,8.72,10.1,11.3,12.5,13.6,14.7,
     &15.7,16.6,17.4,18.2,18.9,19.5,20,20.5,
     &20.9,21.2,21.4,21.6,21.6,21.6,21.5,21.4,
     &21.1,20.8,20.4,19.9,19.4,18.7,18,17.3,
     &16.5,15.6,14.6,13.6,12.6,11.5,10.4,9.31,

C    Egam = 380
     &3.39,
     &4.82,6.18,7.47,8.7,9.86,10.9,12,12.9,
     &13.8,14.7,15.4,16.1,16.8,17.3,17.8,18.2,
     &18.6,18.9,19.1,19.2,19.3,19.3,19.2,19.1,
     &18.8,18.5,18.2,17.8,17.2,16.7,16.1,15.4,
     &14.6,13.9,13,12.2,11.3,10.4,9.44,8.49,

C    Egam = 390
     &2.69,
     &3.99,5.22,6.4,7.51,8.57,9.56,10.5,11.4,
     &12.2,12.9,13.6,14.3,14.9,15.4,15.8,16.2,
     &16.5,16.8,17,17.1,17.2,17.2,17.1,17,
     &16.8,16.5,16.2,15.8,15.3,14.8,14.3,13.7,
     &13,12.3,11.6,10.9,10.1,9.32,8.54,7.77,

C    Egam = 400
     &2.12,
     &3.3,4.42,5.49,6.5,7.46,8.36,9.21,10,
     &10.8,11.4,12.1,12.6,13.2,13.6,14.1,14.4,
     &14.7,14.9,15.1,15.2,15.3,15.3,15.2,15.1,
     &14.9,14.7,14.4,14,13.6,13.2,12.7,12.1,
     &11.6,11,10.4,9.7,9.05,8.4,7.75,7.12,

C    Egam = 410
     &1.65,
     &2.73,3.75,4.72,5.64,6.51,7.33,8.1,8.83,
     &9.5,10.1,10.7,11.2,11.7,12.1,12.5,12.8,
     &13.1,13.3,13.5,13.6,13.6,13.6,13.6,13.5,
     &13.3,13.1,12.8,12.5,12.1,11.7,11.3,10.8,
     &10.3,9.78,9.24,8.68,8.13,7.59,7.06,6.56,

C    Egam = 420
     &1.28,
     &2.26,3.18,4.07,4.91,5.7,6.45,7.15,7.81,
     &8.42,8.99,9.52,10,10.4,10.8,11.2,11.5,
     &11.7,11.9,12,12.1,12.2,12.2,12.1,12,
     &11.9,11.7,11.4,11.1,10.8,10.4,10.1,9.63,
     &9.19,8.73,8.26,7.79,7.33,6.88,6.45,6.06,

C    Egam = 430
     &0.983,
     &1.87,2.71,3.52,4.28,5.01,5.69,6.33,6.93,
     &7.5,8.02,8.5,8.94,9.33,9.69,10,10.3,
     &10.5,10.7,10.8,10.9,10.9,10.9,10.9,10.8,
     &10.6,10.4,10.2,9.95,9.66,9.33,8.98,8.61,
     &8.22,7.82,7.41,7.01,6.62,6.25,5.91,5.62,

C    Egam = 440
     &0.742,
     &1.55,2.32,3.06,3.76,4.42,5.04,5.63,6.18,
     &6.7,7.18,7.61,8.02,8.38,8.7,8.98,9.23,
     &9.43,9.59,9.7,9.78,9.81,9.8,9.75,9.66,
     &9.52,9.36,9.15,8.91,8.65,8.35,8.04,7.71,
     &7.36,7.01,6.66,6.32,6,5.7,5.44,5.22,

C    Egam = 450
     &0.55,
     &1.29,1.99,2.67,3.31,3.92,4.49,5.03,5.54,
     &6.01,6.45,6.85,7.22,7.55,7.85,8.11,8.33,
     &8.51,8.65,8.76,8.82,8.85,8.83,8.78,8.69,
     &8.57,8.41,8.22,8.01,7.76,7.5,7.21,6.92,
     &6.61,6.31,6.01,5.72,5.45,5.22,5.02,4.86,

C    Egam = 460
     &0.397,
     &1.07,1.72,2.34,2.93,3.49,4.02,4.52,4.99,
     &5.42,5.83,6.2,6.54,6.84,7.11,7.35,7.55,
     &7.71,7.84,7.93,7.99,8.01,7.99,7.94,7.85,
     &7.74,7.59,7.41,7.21,6.99,6.74,6.49,6.22,
     &5.95,5.69,5.43,5.18,4.97,4.78,4.63,4.54,

C    Egam = 470
     &0.278,
     &0.898,1.49,2.07,2.61,3.13,3.62,4.08,4.51,
     &4.92,5.29,5.63,5.95,6.23,6.47,6.69,6.87,
     &7.02,7.14,7.22,7.26,7.28,7.26,7.2,7.12,
     &7.01,6.87,6.7,6.51,6.31,6.08,5.85,5.61,
     &5.37,5.14,4.91,4.71,4.53,4.38,4.28,4.23,

C    Egam = 480
     &0.188,
     &0.757,1.31,1.84,2.34,2.82,3.28,3.7,4.11,
     &4.48,4.83,5.15,5.44,5.7,5.93,6.12,6.29,
     &6.42,6.53,6.6,6.64,6.64,6.62,6.56,6.48,
     &6.37,6.23,6.08,5.9,5.71,5.5,5.29,5.07,
     &4.85,4.64,4.45,4.28,4.13,4.02,3.95,3.94,

C    Egam = 490
     &0.123,
     &0.646,1.15,1.64,2.11,2.56,2.98,3.39,3.76,
     &4.11,4.44,4.73,5,5.24,5.45,5.64,5.79,
     &5.91,6,6.06,6.09,6.09,6.06,6,5.92,
     &5.81,5.68,5.53,5.36,5.18,4.99,4.79,4.59,
     &4.39,4.21,4.04,3.89,3.77,3.69,3.65,3.66,

C    Egam = 500
     &0.0794,
     &0.562,1.03,1.49,1.92,2.34,2.74,3.12,3.47,
     &3.8,4.1,4.38,4.63,4.85,5.05,5.21,5.35,
     &5.46,5.54,5.59,5.61,5.61,5.57,5.51,5.43,
     &5.32,5.19,5.05,4.88,4.71,4.53,4.34,4.16,
     &3.98,3.81,3.66,3.53,3.44,3.38,3.36,3.4,

C    Egam = 510
     &0.0561,
     &0.5,0.935,1.36,1.77,2.16,2.53,2.88,3.22,
     &3.53,3.81,4.07,4.3,4.51,4.7,4.85,4.97,
     &5.07,5.14,5.18,5.2,5.19,5.15,5.08,5,
     &4.89,4.76,4.62,4.46,4.3,4.12,3.95,3.78,
     &3.61,3.46,3.32,3.21,3.13,3.09,3.09,3.14,

C    Egam = 520
     &0.0501,
     &0.458,0.861,1.25,1.64,2.01,2.36,2.69,3,
     &3.29,3.56,3.81,4.03,4.22,4.39,4.53,4.65,
     &4.74,4.8,4.83,4.84,4.82,4.78,4.71,4.62,
     &4.51,4.39,4.24,4.09,3.93,3.76,3.6,3.43,
     &3.28,3.14,3.01,2.91,2.85,2.81,2.83,2.89,

C    Egam = 530
     &0.0595,
     &0.433,0.806,1.17,1.53,1.88,2.21,2.52,2.82,
     &3.1,3.35,3.58,3.79,3.97,4.13,4.26,4.37,
     &4.45,4.5,4.52,4.52,4.5,4.45,4.38,4.29,
     &4.18,4.05,3.91,3.76,3.61,3.44,3.28,3.13,
     &2.98,2.85,2.73,2.64,2.59,2.56,2.58,2.64,

C    Egam = 540
     &0.0821,
     &0.423,0.767,1.11,1.44,1.77,2.08,2.38,2.66,
     &2.92,3.17,3.38,3.58,3.75,3.9,4.02,4.12,
     &4.19,4.23,4.25,4.25,4.22,4.16,4.09,3.99,
     &3.88,3.76,3.62,3.47,3.32,3.16,3,2.85,
     &2.71,2.59,2.48,2.4,2.35,2.33,2.35,2.41,

C    Egam = 550
     &0.116,
     &0.426,0.742,1.06,1.37,1.68,1.98,2.26,2.53,
     &2.78,3.01,3.22,3.4,3.57,3.7,3.82,3.9,
     &3.97,4,4.02,4,3.97,3.91,3.83,3.74,
     &3.62,3.5,3.36,3.21,3.06,2.91,2.76,2.61,
     &2.47,2.36,2.25,2.18,2.13,2.11,2.13,2.2,

C    Egam = 560
     &0.159,
     &0.439,0.729,1.02,1.32,1.61,1.89,2.16,2.41,
     &2.65,2.87,3.07,3.24,3.4,3.53,3.64,3.72,
     &3.77,3.8,3.81,3.79,3.75,3.69,3.61,3.51,
     &3.39,3.27,3.13,2.98,2.83,2.68,2.54,2.39,
     &2.26,2.15,2.05,1.98,1.93,1.91,1.93,2,

C    Egam = 570
     &0.21,
     &0.461,0.725,0.998,1.27,1.54,1.81,2.07,2.31,
     &2.54,2.75,2.94,3.11,3.26,3.38,3.48,3.55,
     &3.6,3.63,3.63,3.61,3.56,3.5,3.41,3.31,
     &3.2,3.07,2.93,2.79,2.64,2.49,2.34,2.21,
     &2.08,1.97,1.87,1.8,1.75,1.74,1.75,1.81,

C    Egam = 580
     &0.268,
     &0.489,0.73,0.982,1.24,1.5,1.75,1.99,2.23,
     &2.45,2.65,2.83,2.99,3.13,3.25,3.34,3.41,
     &3.46,3.48,3.47,3.45,3.4,3.33,3.24,3.14,
     &3.02,2.89,2.76,2.61,2.47,2.32,2.18,2.05,
     &1.92,1.81,1.72,1.65,1.6,1.58,1.59,1.63,

C    Egam = 590
     &0.329,
     &0.524,0.741,0.973,1.21,1.46,1.7,1.93,2.15,
     &2.37,2.56,2.74,2.89,3.03,3.14,3.23,3.3,
     &3.34,3.35,3.34,3.31,3.26,3.19,3.1,3,
     &2.88,2.75,2.61,2.47,2.33,2.18,2.04,1.91,
     &1.79,1.68,1.59,1.51,1.47,1.44,1.44,1.47,

C    Egam = 600
     &0.395,
     &0.564,0.759,0.972,1.2,1.43,1.66,1.88,2.1,
     &2.3,2.49,2.66,2.81,2.94,3.05,3.14,3.2,
     &3.23,3.25,3.24,3.2,3.15,3.08,2.99,2.88,
     &2.76,2.63,2.5,2.35,2.21,2.07,1.93,1.8,
     &1.68,1.57,1.48,1.41,1.35,1.32,1.31,1.33,

C    Egam = 610
     &0.463,
     &0.607,0.781,0.977,1.19,1.4,1.62,1.84,2.05,
     &2.25,2.43,2.6,2.75,2.88,2.98,3.06,3.12,
     &3.15,3.17,3.15,3.12,3.06,2.99,2.9,2.79,
     &2.67,2.54,2.41,2.27,2.12,1.98,1.85,1.72,
     &1.6,1.49,1.4,1.32,1.26,1.22,1.2,1.2,

C    Egam = 620
     &0.532,
     &0.653,0.807,0.987,1.18,1.39,1.6,1.81,2.02,
     &2.21,2.39,2.56,2.7,2.83,2.93,3.01,3.07,
     &3.1,3.11,3.1,3.06,3,2.93,2.84,2.73,
     &2.61,2.48,2.35,2.21,2.07,1.93,1.79,1.66,
     &1.54,1.43,1.34,1.25,1.18,1.13,1.09,1.07,

C    Egam = 630
     &0.601,
     &0.7,0.837,1,1.19,1.39,1.59,1.79,1.99,
     &2.18,2.36,2.53,2.67,2.8,2.9,2.98,3.04,
     &3.07,3.08,3.06,3.03,2.97,2.89,2.8,2.7,
     &2.58,2.45,2.32,2.18,2.04,1.9,1.76,1.63,
     &1.51,1.4,1.3,1.21,1.13,1.06,1.01,0.962,

C    Egam = 640
     &0.67,
     &0.749,0.87,1.02,1.2,1.39,1.59,1.79,1.98,
     &2.17,2.35,2.51,2.66,2.79,2.89,2.97,3.03,
     &3.06,3.07,3.06,3.02,2.97,2.89,2.8,2.69,
     &2.58,2.45,2.32,2.18,2.04,1.9,1.76,1.63,
     &1.51,1.39,1.28,1.18,1.09,1.01,0.931,0.859,

C    Egam = 650
     &0.736,
     &0.799,0.905,1.05,1.21,1.4,1.59,1.79,1.99,
     &2.17,2.35,2.52,2.67,2.79,2.9,2.98,3.04,
     &3.08,3.09,3.08,3.05,2.99,2.92,2.83,2.72,
     &2.61,2.48,2.35,2.21,2.07,1.93,1.79,1.66,
     &1.53,1.41,1.29,1.18,1.07,0.971,0.868,0.763,

C    Egam = 660
     &0.8,
     &0.848,0.944,1.08,1.24,1.42,1.61,1.8,2,
     &2.19,2.37,2.54,2.69,2.82,2.93,3.02,3.08,
     &3.12,3.14,3.13,3.1,3.05,2.98,2.89,2.79,
     &2.67,2.55,2.42,2.28,2.14,2,1.86,1.72,
     &1.59,1.45,1.33,1.2,1.07,0.947,0.815,0.674,

C    Egam = 670
     &0.862,
     &0.899,0.986,1.11,1.27,1.45,1.64,1.83,2.03,
     &2.23,2.41,2.58,2.74,2.88,2.99,3.08,3.15,
     &3.2,3.22,3.21,3.19,3.14,3.08,2.99,2.89,
     &2.78,2.65,2.52,2.38,2.24,2.1,1.95,1.81,
     &1.67,1.52,1.38,1.24,1.09,0.938,0.773,0.591,

C    Egam = 680
     &0.922,
     &0.953,1.03,1.16,1.31,1.49,1.68,1.88,2.08,
     &2.28,2.47,2.65,2.81,2.95,3.08,3.18,3.25,
     &3.3,3.33,3.33,3.31,3.27,3.21,3.13,3.03,
     &2.92,2.8,2.66,2.53,2.38,2.23,2.08,1.93,
     &1.78,1.62,1.47,1.3,1.13,0.944,0.742,0.515,

C    Egam = 690
     &0.991,
     &1.02,1.1,1.22,1.38,1.55,1.75,1.95,2.16,
     &2.36,2.56,2.75,2.92,3.07,3.2,3.31,3.39,
     &3.45,3.49,3.5,3.48,3.45,3.39,3.31,3.22,
     &3.11,2.99,2.85,2.71,2.56,2.41,2.25,2.09,
     &1.92,1.75,1.58,1.39,1.19,0.968,0.724,0.449,

C    Egam = 700
     &1.12,
     &1.15,1.24,1.36,1.52,1.7,1.9,2.11,2.32,
     &2.53,2.73,2.93,3.11,3.27,3.41,3.53,3.62,
     &3.69,3.73,3.75,3.74,3.71,3.66,3.59,3.49,
     &3.39,3.26,3.13,2.98,2.83,2.66,2.49,2.32,
     &2.14,1.95,1.74,1.53,1.29,1.04,0.747,0.419,

C    Egam = 710
     &1.48,
     &1.49,1.54,1.65,1.78,1.95,2.13,2.33,2.53,
     &2.73,2.93,3.13,3.31,3.47,3.62,3.74,3.85,
     &3.92,3.98,4,4.01,3.99,3.94,3.88,3.79,
     &3.69,3.57,3.44,3.3,3.14,2.98,2.8,2.62,
     &2.43,2.23,2.02,1.78,1.53,1.25,0.931,0.568,

C    Egam = 720
     &1.67,
     &1.67,1.72,1.81,1.93,2.09,2.26,2.45,2.64,
     &2.85,3.05,3.24,3.42,3.59,3.74,3.88,3.98,
     &4.07,4.14,4.17,4.18,4.17,4.14,4.08,4,
     &3.9,3.79,3.66,3.52,3.36,3.19,3.01,2.82,
     &2.62,2.41,2.18,1.93,1.66,1.35,1,0.609,

C    Egam = 730
     &1.83,
     &1.83,1.88,1.96,2.08,2.22,2.38,2.56,2.75,
     &2.94,3.14,3.33,3.52,3.69,3.84,3.98,4.1,
     &4.19,4.26,4.31,4.33,4.33,4.3,4.25,4.18,
     &4.08,3.97,3.84,3.7,3.54,3.37,3.18,2.98,
     &2.77,2.55,2.31,2.04,1.75,1.42,1.05,0.629,

C    Egam = 740
     &1.96,
     &1.98,2.02,2.1,2.21,2.34,2.49,2.65,2.83,
     &3.02,3.21,3.4,3.58,3.75,3.91,4.05,4.17,
     &4.27,4.35,4.41,4.43,4.44,4.41,4.37,4.3,
     &4.21,4.1,3.97,3.82,3.66,3.48,3.29,3.09,
     &2.87,2.63,2.38,2.1,1.8,1.46,1.07,0.634,

C    Egam = 750
     &2.06,
     &2.1,2.15,2.22,2.32,2.44,2.58,2.73,2.9,
     &3.07,3.25,3.43,3.61,3.78,3.93,4.07,4.2,
     &4.3,4.39,4.44,4.48,4.49,4.47,4.43,4.36,
     &4.27,4.16,4.03,3.88,3.71,3.53,3.34,3.12,
     &2.9,2.66,2.4,2.11,1.8,1.46,1.07,0.623,

C    Egam = 760
     &2.13,
     &2.19,2.25,2.33,2.42,2.53,2.65,2.79,2.94,
     &3.1,3.27,3.43,3.6,3.76,3.92,4.05,4.18,
     &4.28,4.36,4.43,4.46,4.47,4.45,4.41,4.35,
     &4.26,4.14,4.01,3.86,3.69,3.51,3.31,3.09,
     &2.86,2.62,2.36,2.07,1.76,1.42,1.04,0.599,

C    Egam = 770
     &2.18,
     &2.26,2.34,2.42,2.5,2.6,2.71,2.83,2.96,
     &3.11,3.26,3.41,3.57,3.72,3.86,3.99,4.11,
     &4.22,4.3,4.35,4.39,4.4,4.38,4.34,4.27,
     &4.18,4.07,3.93,3.78,3.6,3.41,3.21,3,
     &2.77,2.53,2.27,1.99,1.69,1.36,0.989,0.567,

C    Egam = 780
     &2.21,
     &2.32,2.41,2.49,2.57,2.65,2.75,2.85,2.97,
     &3.09,3.23,3.37,3.51,3.65,3.78,3.9,4.01,
     &4.11,4.18,4.24,4.27,4.27,4.26,4.21,4.14,
     &4.05,3.93,3.79,3.63,3.46,3.27,3.07,2.86,
     &2.63,2.39,2.14,1.88,1.59,1.28,0.93,0.533,

C    Egam = 790
     &2.22,
     &2.37,2.47,2.55,2.62,2.7,2.78,2.86,2.96,
     &3.07,3.18,3.3,3.43,3.55,3.67,3.78,3.88,
     &3.97,4.04,4.09,4.11,4.11,4.09,4.04,3.96,
     &3.87,3.75,3.61,3.45,3.27,3.09,2.89,2.68,
     &2.46,2.23,2,1.75,1.48,1.19,0.868,0.498,

C    Egam = 800
     &2.23,
     &2.4,2.52,2.6,2.67,2.73,2.79,2.86,2.93,
     &3.02,3.12,3.22,3.33,3.44,3.55,3.64,3.73,
     &3.81,3.87,3.91,3.92,3.92,3.89,3.84,3.76,
     &3.65,3.53,3.39,3.23,3.06,2.88,2.68,2.48,
     &2.27,2.06,1.84,1.61,1.37,1.1,0.807,0.467,

C    Egam = 810
     &2.22,
     &2.42,2.55,2.63,2.69,2.74,2.79,2.84,2.89,
     &2.96,3.04,3.13,3.22,3.31,3.4,3.49,3.57,
     &3.63,3.68,3.71,3.72,3.71,3.67,3.61,3.53,
     &3.42,3.3,3.16,3,2.83,2.65,2.47,2.28,
     &2.08,1.89,1.69,1.48,1.26,1.02,0.752,0.439,

C    Egam = 840
     &2.14,
     &2.4,2.56,2.65,2.68,2.7,2.7,2.7,2.7,
     &2.72,2.74,2.78,2.82,2.87,2.92,2.96,3.01,
     &3.04,3.06,3.06,3.05,3.01,2.96,2.89,2.8,
     &2.69,2.57,2.43,2.29,2.14,1.99,1.84,1.69,
     &1.55,1.42,1.28,1.15,1,0.834,0.632,0.377,

C    Egam = 870
     &1.92,
     &2.26,2.46,2.56,2.59,2.58,2.55,2.51,2.48,
     &2.45,2.43,2.42,2.42,2.43,2.44,2.46,2.47,
     &2.47,2.46,2.45,2.41,2.37,2.3,2.22,2.13,
     &2.03,1.92,1.8,1.68,1.57,1.46,1.36,1.27,
     &1.18,1.11,1.04,0.972,0.884,0.763,0.589,0.333,

C    Egam = 900
     &1.56,
     &2.04,2.32,2.46,2.51,2.5,2.46,2.39,2.33,
     &2.27,2.21,2.17,2.14,2.12,2.1,2.09,2.08,
     &2.06,2.03,2,1.95,1.9,1.83,1.75,1.66,
     &1.57,1.48,1.39,1.3,1.23,1.16,1.11,1.08,
     &1.05,1.04,1.02,0.993,0.931,0.813,0.606,0.27,

C    Egam = 930
     &1.19,
     &1.84,2.24,2.45,2.55,2.56,2.51,2.44,2.36,
     &2.27,2.19,2.12,2.06,2.01,1.97,1.93,1.89,
     &1.86,1.82,1.77,1.72,1.66,1.59,1.52,1.45,
     &1.38,1.31,1.25,1.2,1.17,1.15,1.16,1.18,
     &1.2,1.24,1.25,1.24,1.16,0.995,0.687,0.182,

C    Egam = 960
     &1.02,
     &1.82,2.33,2.62,2.76,2.79,2.76,2.68,2.58,
     &2.47,2.37,2.27,2.17,2.09,2.02,1.96,1.9,
     &1.84,1.78,1.73,1.67,1.61,1.56,1.5,1.45,
     &1.41,1.38,1.37,1.37,1.39,1.44,1.5,1.57,
     &1.64,1.71,1.74,1.71,1.59,1.32,0.85,0.102,

C    Egam = 990
     &1.13,
     &1.97,2.52,2.84,3,3.05,3.02,2.94,2.84,
     &2.71,2.58,2.45,2.33,2.22,2.12,2.02,1.94,
     &1.86,1.79,1.73,1.68,1.64,1.6,1.58,1.57,
     &1.57,1.59,1.63,1.7,1.78,1.88,1.99,2.11,
     &2.22,2.3,2.33,2.27,2.08,1.7,1.05,0.0548,

C    Egam = 1020
     &1.33,
     &2.03,2.5,2.79,2.94,3,2.98,2.91,2.81,
     &2.69,2.56,2.42,2.29,2.16,2.04,1.93,1.83,
     &1.75,1.68,1.63,1.59,1.57,1.57,1.58,1.62,
     &1.67,1.74,1.84,1.95,2.08,2.22,2.37,2.51,
     &2.62,2.7,2.7,2.61,2.36,1.9,1.16,0.0494,

C    Egam = 1050
     &1.44,
     &1.88,2.18,2.38,2.5,2.55,2.55,2.51,2.43,
     &2.33,2.22,2.1,1.98,1.86,1.75,1.65,1.56,
     &1.49,1.44,1.41,1.4,1.41,1.44,1.49,1.56,
     &1.65,1.75,1.87,2,2.14,2.28,2.41,2.53,
     &2.61,2.65,2.62,2.5,2.24,1.79,1.1,0.0721,

C    Egam = 1080
     &1.46,
     &1.63,1.78,1.88,1.95,1.99,1.99,1.96,1.91,
     &1.84,1.76,1.66,1.57,1.47,1.38,1.31,1.25,
     &1.2,1.17,1.17,1.18,1.22,1.27,1.34,1.43,
     &1.53,1.64,1.75,1.87,1.98,2.08,2.17,2.24,
     &2.29,2.29,2.23,2.11,1.87,1.5,0.931,0.109,

C    Egam = 1110
     &1.43,
     &1.44,1.46,1.5,1.52,1.53,1.53,1.5,1.47,
     &1.41,1.35,1.28,1.21,1.14,1.08,1.02,0.985,
     &0.963,0.959,0.973,1,1.05,1.12,1.19,1.28,
     &1.37,1.46,1.55,1.64,1.72,1.79,1.84,1.87,
     &1.88,1.87,1.81,1.7,1.52,1.23,0.794,0.152,

C    Egam = 1140
     &1.4,
     &1.32,1.28,1.26,1.25,1.24,1.22,1.19,1.15,
     &1.11,1.06,1,0.947,0.897,0.853,0.821,0.801,
     &0.796,0.807,0.833,0.873,0.927,0.99,1.06,1.14,
     &1.21,1.28,1.35,1.41,1.46,1.5,1.53,1.55,
     &1.55,1.53,1.5,1.42,1.29,1.08,0.734,0.197,

C    Egam = 1170
     &1.38,
     &1.27,1.2,1.15,1.11,1.08,1.04,1,0.962,
     &0.916,0.868,0.82,0.776,0.737,0.707,0.687,0.68,
     &0.687,0.706,0.739,0.783,0.835,0.894,0.955,1.02,
     &1.08,1.13,1.18,1.21,1.25,1.27,1.29,1.3,
     &1.31,1.32,1.31,1.28,1.2,1.04,0.747,0.243,

C    Egam = 1200
     &1.39,
     &1.27,1.19,1.12,1.06,1.01,0.956,0.905,0.854,
     &0.803,0.754,0.709,0.669,0.637,0.616,0.605,0.607,
     &0.621,0.647,0.683,0.726,0.775,0.827,0.878,0.927,
     &0.969,1.01,1.03,1.06,1.08,1.09,1.11,1.13,
     &1.16,1.19,1.23,1.24,1.21,1.09,0.818,0.293,

C    Egam = 1230
     &1.42,
     &1.31,1.22,1.14,1.07,0.995,0.927,0.863,0.801,
     &0.743,0.69,0.645,0.608,0.581,0.565,0.562,0.57,
     &0.59,0.619,0.657,0.699,0.743,0.787,0.827,0.862,
     &0.89,0.91,0.923,0.933,0.942,0.955,0.979,1.02,
     &1.07,1.14,1.21,1.27,1.29,1.2,0.929,0.349,

C    Egam = 1260
     &1.47,
     &1.38,1.28,1.19,1.1,1.01,0.931,0.852,0.779,
     &0.714,0.657,0.611,0.576,0.554,0.544,0.547,0.562,
     &0.586,0.619,0.657,0.697,0.735,0.77,0.799,0.819,
     &0.83,0.834,0.832,0.83,0.832,0.845,0.876,0.932,
     &1.01,1.12,1.24,1.36,1.41,1.35,1.07,0.414,

C    Egam = 1290
     &1.53,
     &1.45,1.36,1.25,1.15,1.05,0.95,0.857,0.773,
     &0.701,0.641,0.595,0.564,0.547,0.545,0.555,0.577,
     &0.607,0.642,0.68,0.716,0.748,0.772,0.786,0.79,
     &0.784,0.77,0.753,0.738,0.733,0.747,0.789,0.865,
     &0.979,1.13,1.3,1.46,1.57,1.53,1.23,0.489,

C    Egam = 1320
     &1.58,
     &1.51,1.43,1.32,1.21,1.09,0.972,0.866,0.773,
     &0.694,0.633,0.589,0.564,0.555,0.562,0.581,0.611,
     &0.647,0.686,0.723,0.754,0.777,0.788,0.786,0.771,
     &0.746,0.712,0.678,0.65,0.639,0.655,0.708,0.806,
     &0.954,1.15,1.37,1.58,1.73,1.71,1.39,0.572,

C    Egam = 1350
     &1.6,
     &1.57,1.49,1.38,1.25,1.12,0.988,0.87,0.769,
     &0.687,0.626,0.587,0.57,0.571,0.59,0.62,0.659,
     &0.702,0.743,0.779,0.804,0.816,0.812,0.792,0.756,
     &0.709,0.656,0.604,0.564,0.547,0.566,0.631,0.752,
     &0.933,1.17,1.43,1.7,1.88,1.89,1.55,0.656,

C    Egam = 1380
     &1.59,
     &1.58,1.51,1.4,1.27,1.13,0.99,0.863,0.756,
     &0.673,0.615,0.584,0.577,0.591,0.622,0.665,0.714,
     &0.763,0.807,0.84,0.857,0.857,0.836,0.797,0.74,
     &0.672,0.599,0.531,0.48,0.459,0.481,0.56,0.702,
     &0.913,1.18,1.49,1.79,2.01,2.03,1.69,0.734,

C    Egam = 1410
     &1.54,
     &1.55,1.5,1.4,1.26,1.12,0.972,0.84,0.731,
     &0.65,0.598,0.576,0.581,0.608,0.653,0.708,0.766,
     &0.821,0.865,0.894,0.904,0.89,0.854,0.795,0.719,
     &0.631,0.541,0.461,0.402,0.379,0.406,0.496,0.658,
     &0.893,1.19,1.53,1.86,2.1,2.13,1.78,0.797,

C    Egam = 1440
     &1.44,
     &1.48,1.45,1.35,1.22,1.08,0.931,0.8,0.694,
     &0.617,0.574,0.562,0.579,0.619,0.675,0.74,0.806,
     &0.865,0.909,0.933,0.934,0.908,0.857,0.782,0.69,
     &0.587,0.485,0.395,0.332,0.31,0.343,0.444,0.619,
     &0.871,1.19,1.54,1.88,2.13,2.17,1.82,0.838,

C    Egam = 1470
     &1.31,
     &1.37,1.35,1.27,1.15,1.01,0.871,0.746,0.646,
     &0.577,0.543,0.541,0.569,0.62,0.686,0.758,0.829,
     &0.889,0.932,0.951,0.943,0.907,0.844,0.757,0.652,
     &0.54,0.431,0.337,0.274,0.255,0.294,0.403,0.586,
     &0.845,1.17,1.52,1.87,2.12,2.15,1.81,0.857,

C    Egam = 2000
     &0.104,
     &0.106,0.0837,0.0705,0.0702,0.0768,0.0847,0.0911,0.0965,
     &0.103,0.114,0.131,0.156,0.188,0.223,0.261,0.294,
     &0.321,0.337,0.341,0.331,0.309,0.278,0.241,0.204,
     &0.169,0.143,0.128,0.127,0.143,0.176,0.228,0.298,
     &0.389,0.5,0.629,0.768,0.894,0.961,0.881,0.502/


      efgampi0p=0.
      IF(GK.LE.NRG(1))RETURN
      IF(GK.GE.NRG(91)) then
         efgampi0p=-1.
         RETURN
      endif

      J=1
   10 IF(GK.LE.NRG(J))GO TO 100
      J=J+1
      GO TO 10
  100 RAT1=(GK-NRG(J-1))/(NRG(J)-NRG(J-1))
      I=2
   20 IF(COST.LE.ANG(I))GO TO 200
      I=I+1
      GO TO 20
  200 RAT2=(COST-ANG(I-1))/(ANG(I)-ANG(I-1))
C
      B1=(1.-RAT1)*CRS(I-1,J-1)+RAT1*CRS(I-1,J)
      B2=(1.-RAT1)*CRS(I,J-1)+RAT1*CRS(I,J)
      efgampi0p=(1.-RAT2)*B1+RAT2*B2
      RETURN
      END
