*     -----------------------------------------------------
      FUNCTION efgampi0n(GK,COST)
*     -----------------------------------------------------
*     
*     ( purpose )
*       RETURN DIFFERENTIAL CROSS SECTION OF
C          GAMMA,n ---> pi0n
*
*     ( input ) 
*          GK   : gamma energy(MEV)
*         COST  : COS(THETA_CM)
*
*     ( output ) 
*       efgampi0n : 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.0104,
     &0.0127,0.0149,0.017,0.019,0.0209,0.0226,0.0243,0.0258,
     &0.0273,0.0287,0.0299,0.031,0.032,0.033,0.0338,0.0345,
     &0.0351,0.0355,0.0359,0.0362,0.0363,0.0364,0.0363,0.0361,
     &0.0359,0.0355,0.035,0.0343,0.0336,0.0328,0.0318,0.0308,
     &0.0296,0.0283,0.0269,0.0254,0.0238,0.0221,0.0202,0.0183,

C    Egam = 160
     &0.0451,
     &0.0572,0.0689,0.08,0.0907,0.101,0.11,0.119,0.128,
     &0.136,0.144,0.15,0.157,0.163,0.168,0.173,0.177,
     &0.181,0.184,0.187,0.189,0.191,0.191,0.192,0.192,
     &0.191,0.19,0.188,0.186,0.183,0.179,0.175,0.17,
     &0.165,0.16,0.153,0.146,0.139,0.131,0.122,0.113,

C    Egam = 170
     &0.103,
     &0.13,0.156,0.181,0.205,0.227,0.249,0.269,0.288,
     &0.307,0.324,0.34,0.354,0.368,0.38,0.391,0.401,
     &0.41,0.418,0.424,0.429,0.433,0.435,0.437,0.437,
     &0.436,0.433,0.43,0.425,0.418,0.411,0.402,0.391,
     &0.38,0.367,0.353,0.337,0.32,0.302,0.283,0.262,

C    Egam = 180
     &0.197,
     &0.242,0.286,0.329,0.369,0.408,0.446,0.481,0.515,
     &0.547,0.577,0.605,0.631,0.655,0.677,0.697,0.714,
     &0.73,0.744,0.755,0.764,0.771,0.776,0.779,0.779,
     &0.777,0.773,0.766,0.758,0.746,0.733,0.717,0.699,
     &0.678,0.655,0.629,0.601,0.57,0.536,0.501,0.462,

C    Egam = 190
     &0.34,
     &0.408,0.474,0.539,0.601,0.66,0.718,0.773,0.825,
     &0.874,0.921,0.965,1.01,1.04,1.08,1.11,1.14,
     &1.16,1.18,1.2,1.22,1.23,1.24,1.24,1.24,
     &1.24,1.23,1.22,1.21,1.19,1.16,1.14,1.11,
     &1.08,1.04,0.995,0.949,0.898,0.843,0.783,0.719,

C    Egam = 200
     &0.55,
     &0.646,0.739,0.831,0.919,1,1.09,1.17,1.24,
     &1.32,1.38,1.45,1.51,1.56,1.61,1.66,1.7,
     &1.74,1.77,1.79,1.82,1.83,1.84,1.85,1.85,
     &1.85,1.84,1.82,1.8,1.77,1.74,1.7,1.65,
     &1.6,1.54,1.48,1.4,1.33,1.24,1.15,1.04,

C    Egam = 210
     &0.845,
     &0.975,1.1,1.23,1.35,1.47,1.59,1.7,1.8,
     &1.91,2,2.09,2.18,2.25,2.33,2.39,2.45,
     &2.5,2.55,2.58,2.61,2.63,2.65,2.66,2.66,
     &2.65,2.63,2.61,2.58,2.54,2.49,2.43,2.36,
     &2.28,2.2,2.1,1.99,1.88,1.75,1.61,1.46,

C    Egam = 220
     &1.24,
     &1.42,1.59,1.76,1.93,2.09,2.25,2.4,2.55,
     &2.69,2.82,2.95,3.07,3.17,3.27,3.36,3.44,
     &3.51,3.57,3.62,3.66,3.69,3.71,3.72,3.72,
     &3.71,3.69,3.65,3.6,3.54,3.47,3.39,3.29,
     &3.18,3.06,2.92,2.76,2.59,2.4,2.2,1.98,

C    Egam = 230
     &1.76,
     &2,2.23,2.46,2.69,2.92,3.13,3.34,3.54,
     &3.73,3.91,4.08,4.24,4.39,4.52,4.65,4.76,
     &4.85,4.93,5,5.05,5.09,5.12,5.13,5.12,
     &5.1,5.07,5.02,4.95,4.86,4.76,4.64,4.5,
     &4.35,4.17,3.97,3.75,3.51,3.24,2.95,2.63,

C    Egam = 240
     &2.42,
     &2.74,3.06,3.37,3.68,3.99,4.28,4.57,4.84,
     &5.1,5.34,5.57,5.79,5.99,6.17,6.33,6.48,
     &6.61,6.71,6.8,6.87,6.92,6.95,6.96,6.95,
     &6.92,6.87,6.8,6.7,6.58,6.44,6.27,6.08,
     &5.86,5.61,5.34,5.03,4.69,4.32,3.91,3.46,

C    Egam = 250
     &3.22,
     &3.66,4.09,4.52,4.95,5.36,5.76,6.14,6.51,
     &6.86,7.19,7.5,7.79,8.06,8.3,8.52,8.71,
     &8.88,9.02,9.13,9.22,9.29,9.32,9.33,9.31,
     &9.27,9.19,9.08,8.95,8.78,8.58,8.35,8.09,
     &7.78,7.45,7.07,6.65,6.18,5.67,5.11,4.5,

C    Egam = 260
     &4.16,
     &4.76,5.35,5.93,6.51,7.06,7.6,8.12,8.61,
     &9.08,9.52,9.93,10.3,10.7,11,11.3,11.5,
     &11.7,11.9,12.1,12.2,12.3,12.3,12.3,12.3,
     &12.2,12.1,11.9,11.8,11.5,11.3,10.9,10.6,
     &10.2,9.72,9.21,8.65,8.02,7.34,6.59,5.77,

C    Egam = 270
     &5.2,
     &6.01,6.81,7.59,8.35,9.09,9.8,10.5,11.1,
     &11.8,12.3,12.9,13.4,13.8,14.2,14.6,14.9,
     &15.2,15.4,15.6,15.8,15.9,15.9,15.9,15.8,
     &15.7,15.6,15.4,15.1,14.8,14.5,14.1,13.6,
     &13,12.4,11.8,11,10.2,9.3,8.33,7.26,

C    Egam = 280
     &6.27,
     &7.33,8.38,9.4,10.4,11.4,12.3,13.1,14,
     &14.8,15.5,16.2,16.8,17.4,17.9,18.4,18.8,
     &19.1,19.4,19.6,19.8,19.9,20,19.9,19.9,
     &19.7,19.5,19.2,18.9,18.5,18,17.5,16.9,
     &16.2,15.4,14.6,13.6,12.6,11.5,10.2,8.9,

C    Egam = 290
     &7.24,
     &8.59,9.91,11.2,12.4,13.6,14.8,15.9,16.9,
     &17.9,18.8,19.6,20.4,21,21.7,22.2,22.7,
     &23.1,23.5,23.7,23.9,24,24.1,24.1,24,
     &23.8,23.5,23.1,22.7,22.2,21.6,21,20.2,
     &19.4,18.4,17.4,16.2,14.9,13.6,12.1,10.5,

C    Egam = 300
     &7.91,
     &9.55,11.1,12.7,14.2,15.6,16.9,18.2,19.4,
     &20.6,21.6,22.6,23.5,24.3,25,25.7,26.2,
     &26.7,27.1,27.4,27.6,27.7,27.7,27.7,27.5,
     &27.3,27,26.6,26.1,25.5,24.8,24,23.1,
     &22.1,21,19.7,18.4,17,15.4,13.7,11.9,

C    Egam = 310
     &8.16,
     &10.1,11.9,13.6,15.3,16.9,18.4,19.9,21.2,
     &22.5,23.6,24.7,25.7,26.6,27.4,28.1,28.7,
     &29.2,29.6,29.9,30.1,30.3,30.3,30.2,30,
     &29.8,29.4,28.9,28.3,27.7,26.9,26,25,
     &23.9,22.7,21.3,19.9,18.3,16.6,14.8,12.8,

C    Egam = 320
     &7.96,
     &10,12,13.9,15.7,17.4,19,20.5,21.9,
     &23.3,24.5,25.6,26.7,27.6,28.4,29.1,29.8,
     &30.3,30.7,31,31.3,31.4,31.4,31.3,31.1,
     &30.8,30.4,29.9,29.2,28.5,27.7,26.7,25.7,
     &24.5,23.2,21.9,20.4,18.7,17,15.1,13.2,

C    Egam = 330
     &7.42,
     &9.55,11.6,13.5,15.3,17.1,18.7,20.2,21.7,
     &23,24.3,25.4,26.4,27.3,28.2,28.9,29.5,
     &30,30.4,30.7,30.9,31,31,30.9,30.7,
     &30.4,30,29.5,28.8,28.1,27.2,26.3,25.2,
     &24.1,22.8,21.4,19.9,18.4,16.7,14.9,13,

C    Egam = 340
     &6.68,
     &8.79,10.8,12.7,14.5,16.2,17.8,19.3,20.7,
     &22,23.2,24.3,25.3,26.1,26.9,27.6,28.2,
     &28.7,29.1,29.4,29.6,29.6,29.6,29.5,29.3,
     &29,28.5,28,27.4,26.7,25.8,24.9,23.9,
     &22.8,21.6,20.3,18.9,17.4,15.8,14.1,12.4,

C    Egam = 350
     &5.87,
     &7.91,9.85,11.7,13.4,15,16.5,17.9,19.3,
     &20.5,21.6,22.6,23.5,24.4,25.1,25.8,26.3,
     &26.8,27.1,27.4,27.5,27.6,27.6,27.4,27.2,
     &26.9,26.5,26,25.4,24.7,23.9,23,22.1,
     &21,19.9,18.7,17.4,16,14.6,13.1,11.6,

C    Egam = 360
     &5.1,
     &7.03,8.85,10.6,12.2,13.7,15.1,16.4,17.6,
     &18.8,19.8,20.8,21.6,22.4,23,23.6,24.1,
     &24.5,24.9,25.1,25.2,25.3,25.2,25.1,24.9,
     &24.6,24.2,23.7,23.2,22.5,21.8,21,20.1,
     &19.1,18.1,17,15.8,14.6,13.3,12,10.7,

C    Egam = 370
     &4.39,
     &6.2,7.9,9.49,11,12.4,13.7,14.9,16,
     &17.1,18,18.9,19.7,20.4,21,21.5,22,
     &22.3,22.6,22.8,22.9,23,22.9,22.8,22.6,
     &22.3,21.9,21.5,21,20.4,19.7,18.9,18.1,
     &17.2,16.3,15.3,14.3,13.2,12.1,10.9,9.78,

C    Egam = 380
     &3.79,
     &5.47,7.04,8.51,9.89,11.2,12.4,13.5,14.5,
     &15.5,16.3,17.1,17.8,18.5,19,19.5,19.9,
     &20.2,20.5,20.6,20.8,20.8,20.7,20.6,20.4,
     &20.1,19.8,19.4,18.9,18.3,17.7,17,16.3,
     &15.5,14.6,13.8,12.8,11.9,10.9,9.93,8.95,

C    Egam = 390
     &3.28,
     &4.83,6.28,7.63,8.9,10.1,11.2,12.2,13.1,
     &14,14.8,15.5,16.1,16.7,17.2,17.6,18,
     &18.3,18.5,18.7,18.8,18.8,18.7,18.6,18.4,
     &18.1,17.8,17.4,17,16.5,15.9,15.3,14.6,
     &13.9,13.1,12.4,11.5,10.7,9.86,9.02,8.19,

C    Egam = 400
     &2.85,
     &4.28,5.61,6.86,8.02,9.1,10.1,11,11.9,
     &12.7,13.4,14,14.6,15.1,15.6,16,16.3,
     &16.6,16.8,16.9,17,17,16.9,16.8,16.6,
     &16.4,16.1,15.7,15.3,14.8,14.3,13.7,13.1,
     &12.5,11.8,11.1,10.4,9.65,8.92,8.2,7.51,

C    Egam = 410
     &2.5,
     &3.81,5.04,6.19,7.25,8.24,9.16,10,10.8,
     &11.5,12.2,12.8,13.3,13.8,14.2,14.5,14.8,
     &15.1,15.2,15.4,15.4,15.4,15.4,15.2,15.1,
     &14.8,14.5,14.2,13.8,13.4,12.9,12.4,11.8,
     &11.2,10.6,10,9.36,8.73,8.1,7.48,6.9,

C    Egam = 420
     &2.2,
     &3.41,4.55,5.6,6.58,7.49,8.34,9.12,9.84,
     &10.5,11.1,11.6,12.1,12.6,12.9,13.2,13.5,
     &13.7,13.9,14,14,14,14,13.8,13.7,
     &13.5,13.2,12.9,12.5,12.1,11.7,11.2,10.7,
     &10.1,9.6,9.04,8.47,7.91,7.37,6.84,6.36,

C    Egam = 430
     &1.96,
     &3.08,4.12,5.09,5.99,6.83,7.61,8.33,8.99,
     &9.6,10.1,10.6,11.1,11.5,11.8,12.1,12.4,
     &12.6,12.7,12.8,12.8,12.8,12.7,12.6,12.5,
     &12.2,12,11.7,11.4,11,10.6,10.1,9.68,
     &9.19,8.69,8.19,7.68,7.19,6.72,6.27,5.87,

C    Egam = 440
     &1.75,
     &2.78,3.75,4.64,5.48,6.25,6.97,7.64,8.25,
     &8.81,9.31,9.77,10.2,10.6,10.9,11.1,11.4,
     &11.5,11.6,11.7,11.8,11.7,11.7,11.6,11.4,
     &11.2,11,10.7,10.4,10,9.63,9.22,8.79,
     &8.35,7.9,7.44,6.99,6.55,6.14,5.76,5.43,

C    Egam = 450
     &1.58,
     &2.53,3.42,4.25,5.03,5.74,6.41,7.02,7.59,
     &8.11,8.58,9.01,9.39,9.72,10,10.3,10.5,
     &10.6,10.7,10.8,10.8,10.8,10.7,10.6,10.5,
     &10.3,10,9.78,9.48,9.15,8.79,8.41,8.02,
     &7.61,7.19,6.78,6.37,5.98,5.62,5.29,5.01,

C    Egam = 460
     &1.43,
     &2.31,3.14,3.91,4.62,5.29,5.91,6.48,7.01,
     &7.49,7.93,8.33,8.68,8.99,9.26,9.49,9.67,
     &9.81,9.91,9.97,9.99,9.96,9.89,9.79,9.64,
     &9.46,9.24,8.98,8.7,8.39,8.05,7.7,7.33,
     &6.95,6.56,6.18,5.82,5.47,5.15,4.86,4.63,

C    Egam = 470
     &1.3,
     &2.12,2.88,3.6,4.27,4.89,5.47,6,6.5,
     &6.95,7.36,7.73,8.06,8.35,8.6,8.81,8.98,
     &9.11,9.2,9.25,9.26,9.23,9.16,9.06,8.91,
     &8.74,8.52,8.28,8.01,7.71,7.4,7.06,6.71,
     &6.36,6,5.65,5.32,5,4.71,4.46,4.26,

C    Egam = 480
     &1.18,
     &1.95,2.66,3.33,3.95,4.53,5.07,5.58,6.04,
     &6.47,6.85,7.2,7.51,7.78,8.02,8.22,8.37,
     &8.49,8.57,8.62,8.62,8.59,8.52,8.41,8.27,
     &8.1,7.89,7.66,7.4,7.12,6.81,6.5,6.17,
     &5.83,5.5,5.17,4.86,4.57,4.31,4.09,3.91,

C    Egam = 490
     &1.09,
     &1.79,2.46,3.08,3.66,4.21,4.72,5.2,5.63,
     &6.03,6.4,6.73,7.02,7.28,7.5,7.69,7.84,
     &7.95,8.02,8.06,8.06,8.02,7.95,7.85,7.71,
     &7.54,7.34,7.11,6.86,6.59,6.3,5.99,5.68,
     &5.36,5.05,4.74,4.45,4.18,3.94,3.74,3.58,

C    Egam = 500
     &0.999,
     &1.65,2.28,2.86,3.41,3.92,4.4,4.85,5.27,
     &5.65,5.99,6.31,6.59,6.83,7.04,7.22,7.36,
     &7.46,7.53,7.56,7.56,7.52,7.45,7.34,7.2,
     &7.04,6.84,6.62,6.38,6.11,5.83,5.54,5.24,
     &4.94,4.64,4.35,4.07,3.82,3.59,3.41,3.26,

C    Egam = 510
     &0.923,
     &1.53,2.11,2.66,3.18,3.66,4.12,4.54,4.94,
     &5.3,5.63,5.93,6.2,6.43,6.63,6.8,6.93,
     &7.03,7.09,7.12,7.11,7.07,7,6.89,6.76,
     &6.59,6.4,6.18,5.95,5.69,5.42,5.14,4.85,
     &4.56,4.27,3.99,3.73,3.49,3.27,3.1,2.96,

C    Egam = 520
     &0.859,
     &1.42,1.97,2.48,2.97,3.43,3.86,4.26,4.64,
     &4.99,5.3,5.59,5.85,6.07,6.26,6.42,6.55,
     &6.64,6.7,6.72,6.71,6.67,6.59,6.49,6.36,
     &6.19,6.01,5.79,5.56,5.31,5.05,4.77,4.49,
     &4.21,3.94,3.67,3.41,3.18,2.98,2.81,2.68,

C    Egam = 530
     &0.805,
     &1.33,1.84,2.32,2.78,3.21,3.62,4.01,4.37,
     &4.7,5.01,5.28,5.53,5.75,5.93,6.08,6.2,
     &6.29,6.34,6.36,6.35,6.31,6.23,6.13,6,
     &5.84,5.65,5.44,5.22,4.97,4.71,4.45,4.18,
     &3.9,3.63,3.38,3.13,2.91,2.71,2.54,2.41,

C    Egam = 540
     &0.762,
     &1.25,1.72,2.17,2.6,3.02,3.41,3.78,4.12,
     &4.44,4.74,5,5.24,5.45,5.63,5.78,5.89,
     &5.97,6.02,6.04,6.03,5.98,5.91,5.8,5.67,
     &5.51,5.33,5.13,4.9,4.66,4.41,4.16,3.89,
     &3.63,3.37,3.11,2.88,2.65,2.46,2.3,2.16,

C    Egam = 550
     &0.73,
     &1.18,1.62,2.04,2.45,2.84,3.21,3.57,3.9,
     &4.21,4.49,4.75,4.98,5.18,5.35,5.49,5.6,
     &5.68,5.73,5.75,5.73,5.69,5.61,5.51,5.38,
     &5.22,5.04,4.84,4.62,4.39,4.14,3.89,3.63,
     &3.38,3.12,2.88,2.65,2.43,2.24,2.07,1.94,

C    Egam = 560
     &0.71,
     &1.12,1.53,1.92,2.31,2.68,3.04,3.37,3.69,
     &3.99,4.26,4.51,4.74,4.93,5.1,5.24,5.34,
     &5.42,5.46,5.48,5.46,5.41,5.34,5.24,5.11,
     &4.95,4.78,4.58,4.37,4.14,3.9,3.65,3.4,
     &3.15,2.91,2.67,2.44,2.23,2.04,1.88,1.74,

C    Egam = 570
     &0.699,
     &1.08,1.45,1.82,2.18,2.53,2.87,3.2,3.5,
     &3.79,4.05,4.3,4.51,4.7,4.86,5,5.1,
     &5.18,5.22,5.23,5.21,5.17,5.09,4.99,4.86,
     &4.71,4.54,4.35,4.14,3.92,3.68,3.44,3.2,
     &2.96,2.72,2.48,2.26,2.06,1.87,1.7,1.56,

C    Egam = 580
     &0.698,
     &1.04,1.39,1.73,2.07,2.4,2.72,3.03,3.33,
     &3.61,3.86,4.1,4.31,4.49,4.65,4.78,4.88,
     &4.95,4.99,5,4.99,4.94,4.86,4.76,4.64,
     &4.49,4.32,4.13,3.93,3.71,3.49,3.26,3.02,
     &2.78,2.55,2.32,2.1,1.9,1.72,1.55,1.4,

C    Egam = 590
     &0.707,
     &1.02,1.34,1.65,1.97,2.29,2.59,2.89,3.17,
     &3.44,3.68,3.91,4.12,4.3,4.45,4.58,4.68,
     &4.74,4.78,4.8,4.78,4.73,4.66,4.56,4.44,
     &4.29,4.13,3.94,3.74,3.53,3.31,3.09,2.86,
     &2.63,2.4,2.18,1.97,1.77,1.58,1.41,1.26,

C    Egam = 600
     &0.725,
     &1,1.29,1.59,1.88,2.18,2.47,2.75,3.03,
     &3.28,3.52,3.74,3.94,4.12,4.27,4.39,4.49,
     &4.56,4.59,4.61,4.59,4.54,4.47,4.37,4.25,
     &4.11,3.95,3.77,3.58,3.37,3.16,2.94,2.72,
     &2.49,2.27,2.06,1.85,1.65,1.47,1.3,1.14,

C    Egam = 610
     &0.751,
     &1,1.26,1.53,1.81,2.09,2.36,2.63,2.9,
     &3.14,3.38,3.59,3.79,3.96,4.1,4.22,4.32,
     &4.38,4.42,4.43,4.41,4.37,4.3,4.2,4.09,
     &3.95,3.79,3.62,3.43,3.23,3.03,2.81,2.6,
     &2.38,2.17,1.96,1.75,1.56,1.38,1.2,1.04,

C    Egam = 620
     &0.785,
     &1.01,1.24,1.49,1.75,2.01,2.27,2.53,2.78,
     &3.02,3.24,3.45,3.64,3.81,3.95,4.07,4.16,
     &4.23,4.27,4.28,4.26,4.22,4.15,4.06,3.94,
     &3.81,3.65,3.49,3.3,3.11,2.91,2.7,2.49,
     &2.29,2.08,1.87,1.67,1.48,1.3,1.12,0.952,

C    Egam = 630
     &0.828,
     &1.02,1.23,1.46,1.7,1.94,2.19,2.44,2.68,
     &2.91,3.13,3.33,3.52,3.68,3.82,3.94,4.03,
     &4.09,4.13,4.14,4.12,4.08,4.01,3.92,3.81,
     &3.68,3.54,3.37,3.19,3.01,2.81,2.62,2.41,
     &2.21,2.01,1.81,1.61,1.42,1.24,1.06,0.88,

C    Egam = 640
     &0.878,
     &1.04,1.23,1.44,1.66,1.89,2.12,2.36,2.59,
     &2.81,3.03,3.22,3.4,3.57,3.7,3.82,3.91,
     &3.97,4.01,4.02,4,3.96,3.9,3.81,3.7,
     &3.58,3.43,3.27,3.1,2.92,2.73,2.54,2.35,
     &2.15,1.95,1.76,1.57,1.38,1.19,1.01,0.823,

C    Egam = 650
     &0.936,
     &1.08,1.24,1.43,1.63,1.85,2.07,2.29,2.52,
     &2.73,2.94,3.13,3.31,3.47,3.6,3.71,3.8,
     &3.87,3.9,3.91,3.9,3.86,3.8,3.72,3.61,
     &3.49,3.35,3.19,3.03,2.86,2.67,2.49,2.3,
     &2.11,1.91,1.73,1.54,1.35,1.16,0.974,0.782,

C    Egam = 660
     &1,
     &1.12,1.26,1.43,1.62,1.82,2.03,2.24,2.46,
     &2.67,2.87,3.06,3.23,3.38,3.52,3.63,3.71,
     &3.78,3.82,3.83,3.82,3.78,3.72,3.64,3.54,
     &3.42,3.28,3.13,2.97,2.8,2.63,2.45,2.26,
     &2.08,1.89,1.71,1.52,1.34,1.15,0.955,0.756,

C    Egam = 670
     &1.08,
     &1.17,1.29,1.45,1.62,1.8,2,2.21,2.41,
     &2.62,2.81,2.99,3.16,3.32,3.45,3.56,3.64,
     &3.71,3.74,3.76,3.75,3.71,3.65,3.57,3.47,
     &3.36,3.23,3.09,2.93,2.77,2.6,2.42,2.24,
     &2.07,1.88,1.7,1.52,1.34,1.15,0.952,0.746,

C    Egam = 680
     &1.16,
     &1.24,1.34,1.47,1.63,1.81,1.99,2.19,2.39,
     &2.58,2.77,2.95,3.12,3.27,3.4,3.51,3.59,
     &3.65,3.69,3.7,3.69,3.66,3.6,3.53,3.43,
     &3.32,3.19,3.05,2.9,2.74,2.58,2.41,2.24,
     &2.06,1.89,1.71,1.53,1.35,1.16,0.966,0.754,

C    Egam = 690
     &1.26,
     &1.31,1.4,1.52,1.67,1.83,2.01,2.19,2.38,
     &2.57,2.76,2.93,3.09,3.24,3.37,3.47,3.56,
     &3.62,3.65,3.67,3.66,3.62,3.57,3.49,3.4,
     &3.29,3.17,3.03,2.88,2.73,2.57,2.41,2.24,
     &2.08,1.91,1.74,1.56,1.38,1.2,0.999,0.784,

C    Egam = 700
     &1.4,
     &1.44,1.51,1.61,1.74,1.89,2.06,2.24,2.42,
     &2.6,2.78,2.95,3.11,3.25,3.37,3.47,3.56,
     &3.61,3.65,3.66,3.65,3.62,3.56,3.49,3.39,
     &3.29,3.17,3.04,2.89,2.74,2.59,2.43,2.28,
     &2.11,1.95,1.79,1.62,1.45,1.27,1.07,0.86,

C    Egam = 710
     &1.61,
     &1.64,1.7,1.79,1.9,2.05,2.2,2.37,2.54,
     &2.71,2.88,3.05,3.2,3.33,3.45,3.55,3.62,
     &3.68,3.71,3.72,3.71,3.67,3.62,3.55,3.46,
     &3.35,3.23,3.11,2.97,2.83,2.68,2.53,2.38,
     &2.23,2.08,1.92,1.76,1.6,1.43,1.24,1.03,

C    Egam = 720
     &1.74,
     &1.76,1.81,1.89,2,2.13,2.28,2.44,2.61,
     &2.78,2.94,3.1,3.24,3.37,3.48,3.58,3.65,
     &3.7,3.73,3.73,3.72,3.68,3.62,3.55,3.46,
     &3.35,3.23,3.11,2.97,2.84,2.69,2.55,2.4,
     &2.26,2.12,1.97,1.83,1.67,1.51,1.33,1.13,

C    Egam = 730
     &1.84,
     &1.86,1.91,1.99,2.09,2.22,2.37,2.52,2.68,
     &2.84,3,3.15,3.29,3.41,3.51,3.6,3.66,
     &3.71,3.73,3.73,3.71,3.67,3.61,3.53,3.43,
     &3.33,3.21,3.09,2.95,2.82,2.68,2.54,2.4,
     &2.27,2.13,2,1.87,1.73,1.57,1.41,1.22,

C    Egam = 740
     &1.91,
     &1.94,1.99,2.07,2.17,2.3,2.44,2.59,2.75,
     &2.9,3.05,3.19,3.33,3.44,3.54,3.61,3.67,
     &3.71,3.72,3.71,3.68,3.64,3.57,3.49,3.39,
     &3.28,3.16,3.03,2.9,2.77,2.63,2.5,2.37,
     &2.24,2.12,2,1.88,1.75,1.62,1.47,1.29,

C    Egam = 750
     &1.96,
     &1.99,2.05,2.13,2.24,2.37,2.51,2.66,2.81,
     &2.96,3.1,3.23,3.36,3.46,3.55,3.62,3.66,
     &3.69,3.69,3.67,3.64,3.58,3.51,3.42,3.31,
     &3.2,3.08,2.95,2.82,2.69,2.56,2.43,2.31,
     &2.19,2.08,1.98,1.87,1.76,1.64,1.5,1.34,

C    Egam = 760
     &1.98,
     &2.02,2.09,2.18,2.29,2.42,2.56,2.71,2.85,
     &3,3.13,3.26,3.37,3.47,3.54,3.6,3.64,
     &3.65,3.64,3.61,3.57,3.5,3.42,3.32,3.21,
     &3.09,2.96,2.84,2.7,2.58,2.45,2.33,2.22,
     &2.12,2.02,1.93,1.84,1.75,1.65,1.53,1.38,

C    Egam = 770
     &1.97,
     &2.03,2.11,2.21,2.33,2.46,2.6,2.74,2.88,
     &3.02,3.15,3.27,3.37,3.45,3.52,3.56,3.59,
     &3.59,3.57,3.53,3.47,3.39,3.3,3.2,3.08,
     &2.96,2.83,2.7,2.57,2.44,2.32,2.21,2.11,
     &2.02,1.94,1.86,1.79,1.72,1.64,1.53,1.39,

C    Egam = 780
     &1.94,
     &2.01,2.1,2.21,2.33,2.47,2.61,2.75,2.89,
     &3.03,3.15,3.26,3.35,3.42,3.47,3.51,3.52,
     &3.51,3.47,3.42,3.35,3.26,3.16,3.05,2.93,
     &2.8,2.67,2.54,2.41,2.29,2.18,2.08,1.99,
     &1.91,1.85,1.79,1.74,1.68,1.62,1.53,1.39,

C    Egam = 790
     &1.89,
     &1.97,2.08,2.19,2.32,2.46,2.6,2.74,2.88,
     &3.01,3.12,3.22,3.3,3.36,3.41,3.42,3.42,
     &3.4,3.36,3.29,3.21,3.11,3.01,2.88,2.76,
     &2.63,2.49,2.37,2.24,2.13,2.03,1.94,1.87,
     &1.8,1.76,1.72,1.68,1.65,1.59,1.51,1.38,

C    Egam = 800
     &1.82,
     &1.92,2.03,2.15,2.29,2.43,2.57,2.71,2.84,
     &2.96,3.07,3.16,3.23,3.29,3.32,3.33,3.31,
     &3.28,3.22,3.15,3.06,2.95,2.83,2.71,2.58,
     &2.44,2.32,2.19,2.07,1.97,1.88,1.8,1.74,
     &1.7,1.67,1.65,1.63,1.61,1.56,1.49,1.35,

C    Egam = 810
     &1.73,
     &1.84,1.96,2.09,2.23,2.37,2.51,2.65,2.78,
     &2.9,3,3.09,3.15,3.19,3.21,3.21,3.19,
     &3.14,3.07,2.99,2.89,2.78,2.65,2.53,2.39,
     &2.26,2.13,2.01,1.9,1.81,1.73,1.67,1.62,
     &1.6,1.59,1.58,1.58,1.57,1.53,1.45,1.3,

C    Egam = 840
     &1.39,
     &1.52,1.66,1.8,1.95,2.1,2.24,2.38,2.51,
     &2.62,2.7,2.77,2.82,2.84,2.84,2.81,2.76,
     &2.69,2.61,2.5,2.38,2.25,2.12,1.99,1.86,
     &1.73,1.62,1.52,1.44,1.38,1.34,1.33,1.34,
     &1.36,1.4,1.45,1.48,1.49,1.45,1.34,1.11,

C    Egam = 870
     &0.981,
     &1.13,1.27,1.43,1.58,1.74,1.89,2.04,2.16,
     &2.27,2.36,2.42,2.46,2.47,2.46,2.42,2.36,
     &2.27,2.17,2.05,1.92,1.79,1.65,1.52,1.4,
     &1.29,1.2,1.13,1.08,1.06,1.08,1.11,1.17,
     &1.25,1.34,1.42,1.48,1.48,1.41,1.22,0.867,

C    Egam = 900
     &0.627,
     &0.774,0.923,1.08,1.24,1.4,1.56,1.71,1.84,
     &1.96,2.05,2.11,2.15,2.16,2.14,2.09,2.02,
     &1.93,1.82,1.69,1.56,1.42,1.29,1.17,1.05,
     &0.965,0.898,0.861,0.855,0.882,0.941,1.03,1.14,
     &1.27,1.4,1.51,1.57,1.56,1.43,1.14,0.619,

C    Egam = 930
     &0.455,
     &0.581,0.713,0.855,1.01,1.16,1.32,1.47,1.6,
     &1.71,1.8,1.87,1.9,1.91,1.88,1.83,1.75,
     &1.65,1.54,1.41,1.28,1.14,1.02,0.907,0.815,
     &0.75,0.715,0.716,0.754,0.83,0.942,1.09,1.25,
     &1.42,1.59,1.72,1.78,1.74,1.54,1.12,0.408,

C    Egam = 960
     &0.548,
     &0.619,0.703,0.804,0.921,1.05,1.18,1.31,1.43,
     &1.53,1.61,1.66,1.69,1.68,1.65,1.59,1.51,
     &1.41,1.29,1.17,1.04,0.918,0.809,0.719,0.656,
     &0.625,0.631,0.677,0.765,0.894,1.06,1.26,1.47,
     &1.68,1.87,2.01,2.06,1.97,1.69,1.15,0.267,

C    Egam = 990
     &0.921,
     &0.88,0.872,0.899,0.954,1.03,1.12,1.22,1.3,
     &1.38,1.44,1.48,1.49,1.47,1.43,1.36,1.27,
     &1.17,1.06,0.94,0.827,0.725,0.641,0.583,0.557,
     &0.568,0.621,0.717,0.857,1.04,1.25,1.49,1.73,
     &1.97,2.17,2.3,2.31,2.18,1.82,1.19,0.192,

C    Egam = 1020
     &1.4,
     &1.21,1.08,1.02,1,1.02,1.07,1.13,1.19,
     &1.25,1.29,1.31,1.3,1.27,1.22,1.15,1.06,
     &0.961,0.854,0.748,0.651,0.57,0.513,0.487,0.497,
     &0.548,0.642,0.779,0.957,1.17,1.41,1.67,1.92,
     &2.15,2.33,2.42,2.4,2.21,1.81,1.15,0.156,

C    Egam = 1050
     &1.68,
     &1.37,1.16,1.03,0.965,0.95,0.968,1,1.05,
     &1.09,1.12,1.14,1.13,1.1,1.05,0.98,0.896,
     &0.802,0.706,0.613,0.533,0.47,0.434,0.429,0.461,
     &0.532,0.643,0.794,0.981,1.2,1.43,1.67,1.89,
     &2.09,2.22,2.28,2.21,2,1.61,0.996,0.121,

C    Egam = 1080
     &1.64,
     &1.33,1.11,0.957,0.87,0.832,0.831,0.852,0.884,
     &0.917,0.943,0.955,0.951,0.928,0.887,0.83,0.76,
     &0.683,0.603,0.528,0.463,0.417,0.393,0.397,0.434,
     &0.504,0.609,0.747,0.913,1.1,1.3,1.49,1.67,
     &1.82,1.91,1.93,1.85,1.65,1.3,0.785,0.0789,

C    Egam = 1110
     &1.45,
     &1.22,1.03,0.892,0.801,0.75,0.731,0.734,0.75,
     &0.77,0.788,0.798,0.796,0.78,0.749,0.707,0.653,
     &0.594,0.532,0.474,0.424,0.389,0.373,0.379,0.411,
     &0.472,0.559,0.673,0.808,0.959,1.12,1.27,1.41,
     &1.52,1.58,1.58,1.5,1.33,1.03,0.613,0.0471,

C    Egam = 1140
     &1.25,
     &1.12,0.992,0.877,0.788,0.727,0.69,0.674,0.671,
     &0.677,0.684,0.688,0.685,0.673,0.65,0.618,0.578,
     &0.533,0.485,0.44,0.401,0.373,0.36,0.365,0.391,
     &0.439,0.509,0.601,0.71,0.831,0.959,1.08,1.2,
     &1.28,1.34,1.34,1.27,1.12,0.877,0.52,0.0335,

C    Egam = 1170
     &1.09,
     &1.07,0.995,0.904,0.818,0.747,0.695,0.66,0.64,
     &0.631,0.627,0.623,0.618,0.606,0.588,0.563,0.531,
     &0.495,0.457,0.42,0.387,0.363,0.35,0.352,0.371,
     &0.409,0.465,0.54,0.631,0.734,0.844,0.953,1.05,
     &1.14,1.19,1.2,1.15,1.03,0.821,0.497,0.0347,

C    Egam = 1200
     &0.984,
     &1.05,1.02,0.955,0.872,0.793,0.727,0.676,0.641,
     &0.618,0.604,0.593,0.584,0.572,0.555,0.534,0.507,
     &0.477,0.444,0.411,0.381,0.357,0.343,0.341,0.353,
     &0.382,0.428,0.491,0.571,0.663,0.765,0.87,0.971,
     &1.06,1.13,1.15,1.13,1.03,0.843,0.527,0.0476,

C    Egam = 1230
     &0.916,
     &1.06,1.07,1.02,0.938,0.851,0.774,0.71,0.662,
     &0.627,0.603,0.586,0.573,0.559,0.544,0.524,0.501,
     &0.473,0.443,0.412,0.382,0.357,0.34,0.332,0.338,
     &0.359,0.396,0.451,0.523,0.61,0.711,0.819,0.929,
     &1.03,1.12,1.17,1.17,1.1,0.922,0.596,0.0697,

C    Egam = 1260
     &0.873,
     &1.08,1.12,1.09,1.01,0.915,0.828,0.753,0.694,
     &0.65,0.618,0.595,0.578,0.563,0.548,0.53,0.508,
     &0.483,0.454,0.423,0.393,0.365,0.342,0.329,0.326,
     &0.339,0.368,0.415,0.482,0.567,0.67,0.786,0.911,
     &1.03,1.15,1.23,1.26,1.21,1.04,0.695,0.0986,

C    Egam = 1290
     &0.846,
     &1.1,1.17,1.15,1.07,0.979,0.885,0.801,0.733,
     &0.68,0.642,0.614,0.595,0.579,0.564,0.548,0.528,
     &0.504,0.476,0.445,0.412,0.38,0.351,0.329,0.318,
     &0.321,0.34,0.38,0.442,0.527,0.634,0.762,0.905,
     &1.05,1.2,1.32,1.38,1.36,1.19,0.814,0.131,

C    Egam = 1320
     &0.828,
     &1.11,1.21,1.2,1.13,1.03,0.937,0.849,0.774,
     &0.715,0.672,0.641,0.619,0.604,0.59,0.575,0.558,
     &0.535,0.508,0.475,0.439,0.402,0.366,0.334,0.312,
     &0.304,0.313,0.344,0.401,0.485,0.599,0.74,0.904,
     &1.08,1.26,1.42,1.52,1.52,1.36,0.942,0.161,

C    Egam = 1350
     &0.811,
     &1.11,1.23,1.23,1.16,1.08,0.98,0.891,0.813,
     &0.752,0.706,0.673,0.65,0.635,0.623,0.61,0.594,
     &0.573,0.546,0.512,0.472,0.428,0.383,0.342,0.308,
     &0.287,0.284,0.306,0.357,0.441,0.561,0.715,0.901,
     &1.11,1.32,1.52,1.65,1.68,1.52,1.07,0.184,

C    Egam = 1380
     &0.792,
     &1.09,1.21,1.22,1.17,1.1,1.01,0.922,0.847,
     &0.786,0.739,0.706,0.684,0.669,0.659,0.648,0.634,
     &0.613,0.586,0.549,0.505,0.455,0.401,0.349,0.303,
     &0.269,0.256,0.268,0.313,0.396,0.52,0.687,0.892,
     &1.13,1.37,1.6,1.77,1.82,1.65,1.17,0.197,

C    Egam = 1410
     &0.765,
     &1.04,1.16,1.18,1.15,1.09,1.01,0.937,0.869,
     &0.813,0.769,0.738,0.717,0.703,0.693,0.683,0.67,
     &0.65,0.621,0.582,0.533,0.476,0.414,0.352,0.296,
     &0.251,0.227,0.231,0.27,0.351,0.479,0.654,0.873,
     &1.13,1.4,1.65,1.84,1.9,1.75,1.23,0.195,

C    Egam = 1440
     &0.728,
     &0.964,1.08,1.11,1.09,1.05,0.994,0.935,0.879,
     &0.831,0.792,0.764,0.744,0.731,0.721,0.711,0.697,
     &0.676,0.645,0.603,0.55,0.488,0.419,0.35,0.285,
     &0.232,0.2,0.197,0.231,0.31,0.438,0.618,0.845,
     &1.11,1.39,1.66,1.87,1.94,1.78,1.25,0.181,

C    Egam = 1470
     &0.683,
     &0.867,0.964,1,1.01,0.989,0.955,0.915,0.875,
     &0.838,0.807,0.782,0.764,0.751,0.74,0.729,0.712,
     &0.689,0.655,0.61,0.554,0.488,0.415,0.34,0.27,
     &0.212,0.175,0.168,0.199,0.275,0.401,0.58,0.807,
     &1.07,1.36,1.63,1.84,1.91,1.75,1.23,0.157,

C    Egam = 2000
     &0.399,
     &0.256,0.177,0.171,0.22,0.298,0.383,0.461,0.524,
     &0.567,0.59,0.596,0.588,0.568,0.54,0.504,0.464,
     &0.419,0.373,0.325,0.279,0.235,0.197,0.166,0.142,
     &0.128,0.123,0.124,0.132,0.144,0.161,0.184,0.215,
     &0.262,0.33,0.424,0.543,0.666,0.742,0.664,0.241/


      efgampi0n=0.
      IF(GK.LE.NRG(1))RETURN
      IF(GK.GE.NRG(91)) then
         efgampi0n=-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)
      efgampi0n=(1.-RAT2)*B1+RAT2*B2
      RETURN
      END
