*     -----------------------------------------------------
      FUNCTION efgampimp(GK,COST)
*     -----------------------------------------------------
*     
*     ( purpose )
*       RETURN DIFFERENTIAL CROSS SECTION OF
C          GAMMA,n ---> pimp
*
*     ( input ) 
*          GK   : gamma energy(MEV)
*         COST  : COS(THETA_CM)
*
*     ( output ) 
*       efgampimp : 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
     &2.83,
     &2.82,2.82,2.81,2.8,2.8,2.79,2.78,2.78,
     &2.77,2.76,2.76,2.75,2.74,2.74,2.73,2.72,
     &2.72,2.71,2.71,2.7,2.7,2.69,2.69,2.68,
     &2.68,2.67,2.67,2.66,2.66,2.65,2.65,2.64,
     &2.64,2.64,2.63,2.63,2.63,2.63,2.62,2.62,

C    Egam = 160
     &7.39,
     &7.34,7.3,7.26,7.22,7.18,7.14,7.09,7.05,
     &7.01,6.97,6.92,6.88,6.84,6.79,6.75,6.71,
     &6.66,6.62,6.58,6.54,6.5,6.46,6.42,6.39,
     &6.35,6.32,6.29,6.26,6.24,6.22,6.2,6.18,
     &6.17,6.17,6.17,6.18,6.19,6.22,6.25,6.3,

C    Egam = 170
     &9.85,
     &9.79,9.73,9.66,9.6,9.53,9.46,9.39,9.32,
     &9.25,9.17,9.1,9.02,8.94,8.86,8.78,8.7,
     &8.61,8.53,8.45,8.36,8.28,8.2,8.12,8.03,
     &7.96,7.88,7.81,7.74,7.68,7.62,7.57,7.52,
     &7.49,7.47,7.47,7.48,7.52,7.59,7.69,7.83,

C    Egam = 180
     &11.7,
     &11.6,11.6,11.5,11.4,11.3,11.2,11.2,11.1,
     &11,10.9,10.8,10.7,10.6,10.4,10.3,10.2,
     &10.1,9.96,9.83,9.71,9.58,9.44,9.31,9.18,
     &9.05,8.92,8.79,8.67,8.55,8.44,8.33,8.24,
     &8.16,8.1,8.07,8.07,8.11,8.2,8.36,8.62,

C    Egam = 190
     &13.3,
     &13.2,13.1,13.1,13,12.9,12.8,12.7,12.6,
     &12.5,12.4,12.2,12.1,12,11.8,11.7,11.5,
     &11.4,11.2,11,10.9,10.7,10.5,10.3,10.1,
     &9.94,9.75,9.56,9.37,9.18,9,8.83,8.67,
     &8.52,8.4,8.31,8.26,8.27,8.36,8.57,8.93,

C    Egam = 200
     &14.7,
     &14.6,14.6,14.5,14.4,14.3,14.2,14.1,14,
     &13.9,13.7,13.6,13.4,13.3,13.1,12.9,12.8,
     &12.6,12.4,12.2,11.9,11.7,11.5,11.2,11,
     &10.8,10.5,10.2,9.98,9.72,9.46,9.2,8.96,
     &8.73,8.52,8.35,8.22,8.17,8.23,8.45,8.9,

C    Egam = 210
     &16.1,
     &16,15.9,15.9,15.8,15.7,15.6,15.5,15.4,
     &15.2,15.1,14.9,14.8,14.6,14.4,14.2,14,
     &13.8,13.5,13.3,13,12.8,12.5,12.2,11.9,
     &11.6,11.2,10.9,10.6,10.2,9.89,9.54,9.2,
     &8.87,8.56,8.28,8.06,7.92,7.91,8.1,8.62,

C    Egam = 220
     &17.4,
     &17.4,17.3,17.3,17.2,17.1,17,16.9,16.8,
     &16.6,16.5,16.3,16.1,16,15.8,15.5,15.3,
     &15,14.8,14.5,14.2,13.9,13.5,13.2,12.8,
     &12.4,12,11.6,11.2,10.8,10.4,9.91,9.47,
     &9.02,8.6,8.19,7.85,7.59,7.47,7.61,8.16,

C    Egam = 230
     &18.8,
     &18.8,18.8,18.7,18.7,18.6,18.5,18.4,18.3,
     &18.1,18,17.8,17.6,17.4,17.2,17,16.7,
     &16.4,16.1,15.8,15.4,15.1,14.7,14.3,13.9,
     &13.4,12.9,12.5,12,11.4,10.9,10.4,9.81,
     &9.25,8.69,8.15,7.66,7.25,7,7.03,7.57,

C    Egam = 240
     &20.3,
     &20.3,20.3,20.3,20.2,20.2,20.1,20,19.9,
     &19.8,19.6,19.5,19.3,19,18.8,18.5,18.2,
     &17.9,17.6,17.2,16.8,16.4,16,15.5,15,
     &14.5,14,13.4,12.9,12.2,11.6,11,10.3,
     &9.59,8.89,8.2,7.55,6.97,6.55,6.43,6.93,

C    Egam = 250
     &21.8,
     &21.8,21.9,21.9,21.9,21.9,21.8,21.8,21.7,
     &21.5,21.4,21.2,21,20.8,20.5,20.3,20,
     &19.6,19.2,18.8,18.4,18,17.5,17,16.4,
     &15.8,15.2,14.6,13.9,13.2,12.5,11.7,10.9,
     &10.1,9.26,8.41,7.58,6.82,6.2,5.91,6.32,

C    Egam = 260
     &23.3,
     &23.4,23.5,23.5,23.6,23.6,23.6,23.6,23.5,
     &23.4,23.3,23.1,22.9,22.7,22.4,22.1,21.8,
     &21.5,21.1,20.6,20.2,19.7,19.1,18.6,18,
     &17.3,16.6,15.9,15.2,14.4,13.6,12.7,11.8,
     &10.8,9.84,8.84,7.83,6.86,6.04,5.55,5.84,

C    Egam = 270
     &24.7,
     &24.9,25,25.1,25.2,25.3,25.3,25.3,25.3,
     &25.3,25.2,25,24.9,24.6,24.4,24.1,23.8,
     &23.4,23,22.5,22,21.5,20.9,20.3,19.7,
     &19,18.2,17.5,16.6,15.8,14.8,13.9,12.9,
     &11.8,10.7,9.51,8.33,7.18,6.16,5.47,5.66,

C    Egam = 280
     &25.8,
     &26,26.2,26.4,26.6,26.7,26.8,26.9,26.9,
     &26.9,26.8,26.7,26.6,26.4,26.2,25.9,25.6,
     &25.2,24.8,24.3,23.8,23.3,22.7,22.1,21.4,
     &20.6,19.9,19,18.2,17.2,16.2,15.2,14.1,
     &12.9,11.7,10.4,9.14,7.83,6.64,5.8,5.94,

C    Egam = 290
     &26.3,
     &26.6,26.9,27.1,27.4,27.5,27.7,27.9,27.9,
     &28,28,27.9,27.8,27.7,27.5,27.2,27,
     &26.6,26.2,25.8,25.3,24.8,24.2,23.6,22.9,
     &22.1,21.4,20.5,19.6,18.7,17.6,16.6,15.4,
     &14.2,12.9,11.6,10.2,8.82,7.54,6.64,6.85,

C    Egam = 300
     &26,
     &26.3,26.7,27,27.3,27.5,27.8,28,28.1,
     &28.2,28.3,28.3,28.2,28.2,28,27.8,27.6,
     &27.3,27,26.6,26.1,25.7,25.1,24.5,23.9,
     &23.2,22.4,21.6,20.7,19.8,18.8,17.7,16.6,
     &15.4,14.1,12.8,11.4,10.1,8.81,7.98,8.46,

C    Egam = 310
     &24.8,
     &25.2,25.6,25.9,26.2,26.5,26.8,27.1,27.3,
     &27.4,27.5,27.6,27.7,27.6,27.6,27.5,27.3,
     &27.1,26.8,26.5,26.1,25.7,25.2,24.7,24.1,
     &23.5,22.8,22.1,21.3,20.4,19.5,18.5,17.5,
     &16.4,15.2,13.9,12.6,11.4,10.3,9.69,10.7,

C    Egam = 320
     &22.9,
     &23.3,23.6,24,24.3,24.7,25,25.2,25.5,
     &25.7,25.8,26,26.1,26.1,26.1,26.1,26,
     &25.9,25.7,25.4,25.2,24.8,24.5,24,23.6,
     &23,22.5,21.8,21.1,20.4,19.6,18.7,17.8,
     &16.8,15.8,14.7,13.6,12.6,11.7,11.5,13.2,

C    Egam = 330
     &20.6,
     &20.9,21.2,21.5,21.9,22.2,22.5,22.8,23,
     &23.2,23.4,23.6,23.7,23.8,23.9,23.9,23.9,
     &23.9,23.8,23.6,23.5,23.2,23,22.7,22.3,
     &21.9,21.5,21,20.4,19.8,19.1,18.4,17.6,
     &16.8,16,15.1,14.2,13.4,12.9,13.1,15.6,

C    Egam = 340
     &18.2,
     &18.4,18.7,19,19.2,19.5,19.8,20,20.3,
     &20.5,20.8,20.9,21.1,21.2,21.4,21.4,21.5,
     &21.5,21.5,21.5,21.4,21.2,21.1,20.9,20.6,
     &20.3,20,19.6,19.2,18.7,18.2,17.7,17.1,
     &16.4,15.8,15.1,14.4,13.9,13.7,14.4,17.7,

C    Egam = 350
     &16,
     &16.1,16.3,16.5,16.8,17,17.2,17.5,17.7,
     &17.9,18.1,18.3,18.5,18.7,18.8,18.9,19,
     &19.1,19.2,19.2,19.2,19.1,19.1,19,18.8,
     &18.6,18.4,18.1,17.8,17.5,17.1,16.7,16.2,
     &15.8,15.3,14.8,14.3,14,14.1,15.2,19.3,

C    Egam = 360
     &14.1,
     &14.2,14.3,14.4,14.6,14.8,15,15.2,15.4,
     &15.6,15.8,16,16.2,16.3,16.5,16.7,16.8,
     &16.9,17,17.1,17.1,17.2,17.1,17.1,17.1,
     &17,16.8,16.7,16.5,16.2,16,15.7,15.3,
     &15,14.6,14.3,14,13.9,14.2,15.7,20.5,

C    Egam = 370
     &12.6,
     &12.6,12.7,12.7,12.8,13,13.1,13.3,13.4,
     &13.6,13.8,14,14.2,14.3,14.5,14.7,14.8,
     &15,15.1,15.2,15.3,15.4,15.4,15.5,15.5,
     &15.4,15.4,15.3,15.2,15,14.9,14.7,14.4,
     &14.2,13.9,13.7,13.6,13.6,14.1,15.8,21.3,

C    Egam = 380
     &11.5,
     &11.4,11.4,11.4,11.4,11.5,11.6,11.7,11.9,
     &12,12.2,12.3,12.5,12.7,12.9,13,13.2,
     &13.4,13.5,13.6,13.8,13.9,14,14.1,14.1,
     &14.1,14.1,14.1,14.1,14,13.9,13.7,13.6,
     &13.4,13.3,13.1,13.1,13.3,13.9,15.8,21.7,

C    Egam = 390
     &10.6,
     &10.5,10.4,10.3,10.3,10.4,10.4,10.5,10.6,
     &10.7,10.9,11,11.2,11.3,11.5,11.7,11.9,
     &12,12.2,12.4,12.5,12.6,12.8,12.9,12.9,
     &13,13.1,13.1,13.1,13,13,12.9,12.8,
     &12.7,12.6,12.6,12.6,12.9,13.6,15.7,22,

C    Egam = 400
     &10,
     &9.79,9.64,9.54,9.48,9.47,9.48,9.53,9.6,
     &9.69,9.81,9.94,10.1,10.2,10.4,10.6,10.8,
     &10.9,11.1,11.3,11.4,11.6,11.7,11.9,12,
     &12.1,12.1,12.2,12.2,12.2,12.2,12.2,12.2,
     &12.1,12.1,12.1,12.2,12.5,13.3,15.4,22.1,

C    Egam = 410
     &9.55,
     &9.28,9.08,8.94,8.84,8.78,8.76,8.77,8.81,
     &8.88,8.97,9.09,9.22,9.36,9.52,9.69,9.86,
     &10,10.2,10.4,10.6,10.7,10.9,11,11.2,
     &11.3,11.4,11.4,11.5,11.6,11.6,11.6,11.6,
     &11.6,11.6,11.6,11.8,12.1,12.9,15.1,22.1,

C    Egam = 420
     &9.23,
     &8.92,8.67,8.48,8.34,8.25,8.2,8.18,8.2,
     &8.24,8.32,8.41,8.52,8.66,8.81,8.96,9.13,
     &9.31,9.49,9.66,9.84,10,10.2,10.3,10.5,
     &10.6,10.7,10.8,10.9,11,11,11.1,11.1,
     &11.1,11.2,11.2,11.4,11.8,12.6,14.9,22.1,

C    Egam = 430
     &9.02,
     &8.66,8.37,8.14,7.97,7.85,7.76,7.72,7.72,
     &7.74,7.79,7.87,7.97,8.09,8.23,8.38,8.54,
     &8.71,8.89,9.07,9.25,9.43,9.6,9.77,9.92,
     &10.1,10.2,10.3,10.4,10.5,10.6,10.6,10.7,
     &10.7,10.8,10.9,11.1,11.4,12.3,14.6,22,

C    Egam = 440
     &8.88,
     &8.48,8.15,7.89,7.69,7.53,7.43,7.36,7.33,
     &7.34,7.37,7.43,7.52,7.63,7.76,7.9,8.05,
     &8.22,8.4,8.57,8.76,8.94,9.11,9.28,9.45,
     &9.6,9.74,9.87,9.98,10.1,10.2,10.2,10.3,
     &10.4,10.5,10.6,10.8,11.2,12.1,14.3,22,

C    Egam = 450
     &8.78,
     &8.35,7.99,7.7,7.47,7.29,7.16,7.08,7.03,
     &7.01,7.03,7.08,7.15,7.25,7.37,7.5,7.65,
     &7.81,7.98,8.16,8.34,8.52,8.7,8.88,9.05,
     &9.21,9.36,9.5,9.62,9.74,9.84,9.93,10,
     &10.1,10.2,10.3,10.5,10.9,11.8,14.1,21.9,

C    Egam = 460
     &8.73,
     &8.26,7.87,7.55,7.3,7.1,6.95,6.84,6.78,
     &6.75,6.75,6.79,6.85,6.93,7.04,7.17,7.31,
     &7.47,7.64,7.81,7.99,8.17,8.35,8.53,8.71,
     &8.87,9.03,9.18,9.32,9.44,9.56,9.66,9.76,
     &9.86,9.97,10.1,10.4,10.8,11.6,13.9,21.9,

C    Egam = 470
     &8.68,
     &8.19,7.77,7.43,7.16,6.94,6.77,6.65,6.57,
     &6.53,6.52,6.54,6.59,6.67,6.77,6.89,7.02,
     &7.17,7.34,7.51,7.69,7.87,8.05,8.24,8.41,
     &8.59,8.75,8.91,9.05,9.19,9.32,9.44,9.55,
     &9.66,9.79,9.95,10.2,10.6,11.5,13.7,21.9,

C    Egam = 480
     &8.65,
     &8.12,7.69,7.33,7.04,6.8,6.62,6.49,6.39,
     &6.34,6.32,6.33,6.37,6.44,6.53,6.64,6.77,
     &6.92,7.08,7.25,7.43,7.61,7.79,7.98,8.16,
     &8.34,8.51,8.68,8.83,8.98,9.12,9.25,9.38,
     &9.51,9.65,9.82,10.1,10.5,11.4,13.6,22,

C    Egam = 490
     &8.6,
     &8.06,7.61,7.23,6.93,6.68,6.48,6.34,6.23,
     &6.17,6.14,6.14,6.17,6.23,6.32,6.43,6.55,
     &6.69,6.85,7.02,7.2,7.38,7.57,7.75,7.94,
     &8.12,8.3,8.48,8.64,8.8,8.95,9.09,9.23,
     &9.38,9.54,9.73,10,10.4,11.3,13.6,22.1,

C    Egam = 500
     &8.55,
     &7.99,7.53,7.14,6.82,6.56,6.36,6.2,6.09,
     &6.01,5.98,5.97,6,6.05,6.13,6.23,6.36,
     &6.49,6.65,6.82,6.99,7.18,7.36,7.55,7.74,
     &7.93,8.12,8.3,8.48,8.65,8.81,8.97,9.12,
     &9.28,9.46,9.67,9.95,10.4,11.3,13.6,22.3,

C    Egam = 510
     &8.49,
     &7.92,7.44,7.04,6.71,6.45,6.24,6.07,5.95,
     &5.87,5.83,5.82,5.84,5.89,5.97,6.06,6.18,
     &6.32,6.47,6.63,6.81,6.99,7.19,7.38,7.58,
     &7.77,7.96,8.15,8.34,8.52,8.69,8.87,9.04,
     &9.22,9.41,9.64,9.94,10.4,11.3,13.6,22.5,

C    Egam = 520
     &8.41,
     &7.83,7.34,6.94,6.61,6.34,6.12,5.95,5.83,
     &5.75,5.7,5.68,5.7,5.75,5.82,5.91,6.03,
     &6.16,6.31,6.48,6.65,6.84,7.03,7.23,7.43,
     &7.63,7.83,8.03,8.22,8.41,8.6,8.79,8.98,
     &9.17,9.38,9.63,9.95,10.4,11.3,13.6,22.8,

C    Egam = 530
     &8.34,
     &7.74,7.25,6.84,6.51,6.23,6.01,5.84,5.72,
     &5.63,5.58,5.57,5.58,5.62,5.69,5.78,5.89,
     &6.03,6.18,6.34,6.52,6.7,6.9,7.1,7.3,
     &7.51,7.72,7.92,8.13,8.33,8.53,8.73,8.93,
     &9.15,9.37,9.64,9.97,10.5,11.4,13.7,23.1,

C    Egam = 540
     &8.26,
     &7.66,7.16,6.75,6.41,6.14,5.92,5.75,5.62,
     &5.54,5.48,5.47,5.48,5.52,5.58,5.67,5.78,
     &5.91,6.06,6.23,6.4,6.59,6.79,6.99,7.2,
     &7.41,7.63,7.84,8.05,8.27,8.48,8.69,8.91,
     &9.14,9.38,9.66,10,10.5,11.5,13.8,23.4,

C    Egam = 550
     &8.19,
     &7.58,7.09,6.67,6.34,6.06,5.84,5.67,5.55,
     &5.46,5.41,5.39,5.4,5.43,5.5,5.59,5.7,
     &5.83,5.97,6.14,6.31,6.5,6.7,6.91,7.12,
     &7.34,7.56,7.78,8,8.22,8.44,8.67,8.9,
     &9.14,9.4,9.69,10.1,10.6,11.6,13.9,23.7,

C    Egam = 560
     &8.13,
     &7.53,7.02,6.61,6.28,6,5.78,5.62,5.49,
     &5.4,5.35,5.33,5.34,5.38,5.44,5.53,5.63,
     &5.76,5.91,6.07,6.25,6.44,6.64,6.85,7.06,
     &7.28,7.51,7.73,7.96,8.19,8.42,8.66,8.9,
     &9.15,9.42,9.74,10.1,10.7,11.6,14,24,

C    Egam = 570
     &8.1,
     &7.49,6.99,6.57,6.24,5.97,5.75,5.58,5.46,
     &5.37,5.32,5.3,5.31,5.34,5.4,5.49,5.6,
     &5.72,5.87,6.03,6.21,6.4,6.6,6.81,7.02,
     &7.25,7.47,7.71,7.94,8.18,8.41,8.66,8.91,
     &9.17,9.46,9.78,10.2,10.7,11.7,14.1,24.3,

C    Egam = 580
     &8.1,
     &7.48,6.97,6.56,6.22,5.95,5.74,5.57,5.45,
     &5.36,5.31,5.29,5.3,5.33,5.39,5.48,5.58,
     &5.71,5.85,6.01,6.19,6.38,6.58,6.79,7.01,
     &7.23,7.46,7.7,7.93,8.18,8.42,8.67,8.93,
     &9.2,9.5,9.83,10.2,10.8,11.8,14.2,24.5,

C    Egam = 590
     &8.13,
     &7.5,6.99,6.57,6.23,5.96,5.75,5.58,5.46,
     &5.38,5.32,5.3,5.31,5.34,5.4,5.49,5.59,
     &5.71,5.86,6.02,6.19,6.38,6.58,6.79,7.01,
     &7.23,7.47,7.7,7.94,8.19,8.44,8.69,8.96,
     &9.24,9.54,9.88,10.3,10.9,11.9,14.2,24.8,

C    Egam = 600
     &8.2,
     &7.56,7.03,6.61,6.27,6,5.78,5.62,5.5,
     &5.41,5.36,5.34,5.35,5.38,5.44,5.52,5.62,
     &5.74,5.88,6.04,6.21,6.4,6.6,6.81,7.03,
     &7.25,7.49,7.72,7.97,8.21,8.47,8.73,8.99,
     &9.28,9.59,9.93,10.4,10.9,11.9,14.3,25,

C    Egam = 610
     &8.3,
     &7.64,7.11,6.68,6.33,6.06,5.84,5.68,5.55,
     &5.47,5.42,5.39,5.4,5.43,5.49,5.57,5.67,
     &5.79,5.93,6.08,6.25,6.44,6.64,6.84,7.06,
     &7.28,7.52,7.76,8,8.25,8.5,8.77,9.04,
     &9.32,9.63,9.98,10.4,11,12,14.3,25.2,

C    Egam = 620
     &8.44,
     &7.76,7.21,6.77,6.42,6.14,5.92,5.75,5.63,
     &5.54,5.49,5.47,5.47,5.5,5.56,5.64,5.73,
     &5.85,5.99,6.14,6.31,6.49,6.68,6.89,7.11,
     &7.33,7.56,7.8,8.04,8.29,8.55,8.81,9.09,
     &9.37,9.69,10,10.5,11,12,14.4,25.3,

C    Egam = 630
     &8.62,
     &7.91,7.34,6.89,6.53,6.24,6.02,5.85,5.72,
     &5.63,5.58,5.55,5.56,5.59,5.64,5.72,5.81,
     &5.93,6.06,6.21,6.37,6.55,6.75,6.95,7.16,
     &7.39,7.62,7.85,8.1,8.34,8.6,8.86,9.14,
     &9.43,9.74,10.1,10.5,11.1,12.1,14.4,25.5,

C    Egam = 640
     &8.82,
     &8.08,7.49,7.02,6.65,6.36,6.13,5.95,5.82,
     &5.73,5.68,5.65,5.65,5.68,5.73,5.8,5.9,
     &6.01,6.14,6.29,6.45,6.62,6.82,7.02,7.23,
     &7.45,7.67,7.91,8.15,8.4,8.65,8.92,9.19,
     &9.48,9.79,10.1,10.6,11.1,12.1,14.4,25.6,

C    Egam = 650
     &9.06,
     &8.28,7.66,7.17,6.78,6.48,6.24,6.06,5.93,
     &5.84,5.78,5.75,5.75,5.78,5.83,5.9,5.99,
     &6.1,6.22,6.37,6.53,6.7,6.89,7.08,7.29,
     &7.51,7.73,7.97,8.2,8.45,8.7,8.97,9.24,
     &9.53,9.84,10.2,10.6,11.2,12.1,14.4,25.7,

C    Egam = 660
     &9.31,
     &8.49,7.84,7.32,6.92,6.61,6.36,6.18,6.04,
     &5.94,5.88,5.85,5.85,5.87,5.92,5.99,6.07,
     &6.18,6.3,6.44,6.6,6.77,6.95,7.14,7.35,
     &7.56,7.78,8.01,8.25,8.49,8.75,9.01,9.28,
     &9.57,9.88,10.2,10.6,11.2,12.1,14.4,25.7,

C    Egam = 670
     &9.58,
     &8.71,8.02,7.48,7.05,6.72,6.47,6.28,6.13,
     &6.03,5.97,5.94,5.93,5.95,6,6.06,6.15,
     &6.25,6.37,6.51,6.66,6.82,7,7.19,7.39,
     &7.6,7.82,8.05,8.28,8.52,8.77,9.03,9.3,
     &9.59,9.9,10.2,10.7,11.2,12.1,14.3,25.7,

C    Egam = 680
     &9.84,
     &8.91,8.19,7.62,7.17,6.82,6.56,6.36,6.21,
     &6.1,6.04,6,6,6.01,6.05,6.12,6.2,
     &6.3,6.41,6.54,6.69,6.85,7.03,7.21,7.41,
     &7.61,7.83,8.05,8.28,8.52,8.77,9.03,9.3,
     &9.58,9.89,10.2,10.6,11.2,12.1,14.2,25.6,

C    Egam = 690
     &10.1,
     &9.1,8.33,7.72,7.25,6.89,6.61,6.4,6.25,
     &6.14,6.07,6.03,6.02,6.04,6.07,6.13,6.21,
     &6.3,6.42,6.54,6.68,6.84,7.01,7.19,7.38,
     &7.58,7.79,8.01,8.24,8.47,8.72,8.98,9.24,
     &9.53,9.83,10.2,10.6,11.1,12,14.1,25.5,

C    Egam = 700
     &10.3,
     &9.25,8.43,7.79,7.29,6.91,6.62,6.4,6.24,
     &6.13,6.05,6.01,6,6.01,6.04,6.09,6.17,
     &6.26,6.36,6.48,6.61,6.76,6.93,7.1,7.28,
     &7.48,7.68,7.9,8.12,8.35,8.6,8.85,9.12,
     &9.4,9.71,10.1,10.4,11,11.8,13.9,25.1,

C    Egam = 710
     &10.4,
     &9.27,8.42,7.76,7.24,6.85,6.55,6.33,6.16,
     &6.05,5.97,5.92,5.9,5.91,5.93,5.97,6.04,
     &6.11,6.21,6.32,6.44,6.57,6.72,6.88,7.05,
     &7.24,7.43,7.63,7.85,8.07,8.31,8.56,8.82,
     &9.1,9.39,9.73,10.1,10.6,11.4,13.3,24.3,

C    Egam = 720
     &10.3,
     &9.15,8.27,7.59,7.06,6.66,6.36,6.14,5.98,
     &5.87,5.79,5.75,5.73,5.73,5.76,5.8,5.85,
     &5.93,6.01,6.11,6.22,6.35,6.49,6.64,6.8,
     &6.97,7.16,7.35,7.56,7.78,8.01,8.25,8.5,
     &8.78,9.07,9.39,9.77,10.2,11,12.8,23.4,

C    Egam = 730
     &10.1,
     &8.9,7.99,7.3,6.78,6.38,6.08,5.87,5.71,
     &5.6,5.53,5.49,5.48,5.48,5.5,5.54,5.59,
     &5.66,5.74,5.83,5.93,6.05,6.17,6.31,6.46,
     &6.63,6.8,6.99,7.19,7.41,7.63,7.87,8.12,
     &8.39,8.68,9,9.36,9.81,10.5,12.1,22.4,

C    Egam = 740
     &9.72,
     &8.52,7.61,6.91,6.38,5.99,5.71,5.5,5.36,
     &5.26,5.2,5.16,5.15,5.16,5.18,5.21,5.26,
     &5.32,5.39,5.47,5.57,5.67,5.79,5.92,6.06,
     &6.21,6.38,6.56,6.76,6.96,7.18,7.42,7.67,
     &7.94,8.23,8.54,8.89,9.31,9.94,11.4,21.2,

C    Egam = 750
     &9.25,
     &8.04,7.12,6.43,5.91,5.53,5.26,5.07,4.94,
     &4.85,4.8,4.77,4.76,4.77,4.8,4.83,4.87,
     &4.92,4.99,5.06,5.14,5.24,5.34,5.46,5.59,
     &5.74,5.9,6.07,6.26,6.47,6.69,6.92,7.17,
     &7.44,7.73,8.03,8.37,8.77,9.33,10.7,20,

C    Egam = 760
     &8.7,
     &7.49,6.57,5.89,5.39,5.03,4.77,4.6,4.48,
     &4.41,4.36,4.35,4.35,4.36,4.38,4.41,4.45,
     &4.49,4.55,4.61,4.68,4.77,4.86,4.97,5.1,
     &5.24,5.39,5.56,5.74,5.95,6.16,6.4,6.65,
     &6.92,7.21,7.51,7.84,8.2,8.71,9.88,18.7,

C    Egam = 770
     &8.13,
     &6.91,6.01,5.34,4.86,4.52,4.28,4.12,4.02,
     &3.96,3.93,3.92,3.92,3.94,3.96,3.98,4.01,
     &4.05,4.1,4.15,4.22,4.29,4.38,4.48,4.59,
     &4.72,4.87,5.04,5.22,5.43,5.64,5.88,6.14,
     &6.41,6.7,7,7.32,7.67,8.11,9.13,17.4,

C    Egam = 780
     &7.58,
     &6.37,5.48,4.83,4.37,4.05,3.83,3.68,3.6,
     &3.55,3.52,3.52,3.52,3.53,3.55,3.57,3.6,
     &3.63,3.66,3.71,3.76,3.83,3.91,4,4.11,
     &4.24,4.38,4.55,4.73,4.93,5.16,5.4,5.66,
     &5.94,6.24,6.54,6.85,7.18,7.57,8.45,16.2,

C    Egam = 790
     &7.1,
     &5.9,5.02,4.39,3.94,3.63,3.43,3.3,3.22,
     &3.18,3.16,3.15,3.16,3.17,3.18,3.2,3.21,
     &3.24,3.26,3.3,3.34,3.4,3.47,3.56,3.66,
     &3.79,3.93,4.1,4.28,4.49,4.72,4.98,5.25,
     &5.53,5.83,6.14,6.45,6.76,7.11,7.87,15.2,

C    Egam = 800
     &6.72,
     &5.52,4.65,4.02,3.59,3.29,3.1,2.98,2.9,
     &2.87,2.85,2.85,2.85,2.85,2.86,2.87,2.88,
     &2.89,2.9,2.93,2.97,3.02,3.08,3.16,3.26,
     &3.39,3.53,3.7,3.89,4.11,4.35,4.61,4.89,
     &5.19,5.5,5.82,6.13,6.43,6.74,7.39,14.4,

C    Egam = 810
     &6.44,
     &5.23,4.36,3.74,3.32,3.03,2.84,2.72,2.66,
     &2.62,2.6,2.59,2.59,2.59,2.59,2.59,2.58,
     &2.59,2.59,2.61,2.64,2.68,2.74,2.82,2.92,
     &3.04,3.19,3.37,3.57,3.79,4.04,4.31,4.61,
     &4.92,5.24,5.56,5.87,6.17,6.45,7.02,13.8,

C    Egam = 840
     &6.12,
     &4.88,3.98,3.35,2.91,2.62,2.43,2.31,2.24,
     &2.19,2.16,2.13,2.1,2.08,2.04,2.01,1.98,
     &1.95,1.93,1.92,1.92,1.95,1.99,2.07,2.17,
     &2.3,2.46,2.65,2.88,3.14,3.43,3.74,4.07,
     &4.43,4.78,5.13,5.47,5.75,5.99,6.38,12.6,

C    Egam = 870
     &6.26,
     &4.94,3.99,3.32,2.87,2.56,2.36,2.22,2.13,
     &2.07,2.02,1.97,1.91,1.85,1.79,1.73,1.66,
     &1.6,1.55,1.51,1.5,1.5,1.54,1.61,1.71,
     &1.85,2.03,2.25,2.5,2.8,3.12,3.48,3.85,
     &4.24,4.64,5.02,5.36,5.64,5.84,6.09,11.9,

C    Egam = 900
     &6.41,
     &5.02,4.03,3.35,2.88,2.57,2.36,2.22,2.13,
     &2.05,1.99,1.92,1.85,1.76,1.68,1.58,1.49,
     &1.4,1.32,1.26,1.23,1.22,1.24,1.3,1.41,
     &1.56,1.75,1.99,2.27,2.6,2.96,3.35,3.77,
     &4.19,4.61,5.01,5.35,5.61,5.74,5.83,11.2,

C    Egam = 930
     &6.33,
     &4.94,3.96,3.28,2.83,2.52,2.32,2.19,2.1,
     &2.03,1.96,1.89,1.8,1.71,1.6,1.49,1.38,
     &1.27,1.17,1.1,1.04,1.02,1.04,1.1,1.2,
     &1.36,1.57,1.83,2.14,2.49,2.89,3.31,3.76,
     &4.2,4.64,5.04,5.37,5.59,5.63,5.53,10.4,

C    Egam = 960
     &6.01,
     &4.72,3.8,3.16,2.72,2.43,2.23,2.11,2.02,
     &1.94,1.87,1.8,1.71,1.61,1.5,1.39,1.27,
     &1.16,1.05,0.97,0.913,0.889,0.907,0.971,1.09,
     &1.26,1.48,1.76,2.1,2.48,2.9,3.35,3.82,
     &4.29,4.74,5.13,5.43,5.59,5.51,5.2,9.44,

C    Egam = 990
     &5.53,
     &4.44,3.63,3.04,2.62,2.32,2.11,1.96,1.86,
     &1.77,1.69,1.62,1.53,1.44,1.34,1.23,1.12,
     &1.02,0.928,0.855,0.808,0.795,0.823,0.899,1.03,
     &1.21,1.46,1.76,2.12,2.53,2.98,3.46,3.95,
     &4.43,4.89,5.27,5.54,5.64,5.45,4.92,8.56,

C    Egam = 1020
     &4.89,
     &4.09,3.43,2.91,2.51,2.19,1.96,1.78,1.65,
     &1.54,1.46,1.38,1.31,1.23,1.15,1.06,0.977,
     &0.895,0.822,0.765,0.731,0.728,0.764,0.846,0.981,
     &1.17,1.42,1.74,2.11,2.54,3.01,3.51,4.03,
     &4.53,5,5.39,5.65,5.71,5.46,4.77,7.95,

C    Egam = 1050
     &4,
     &3.53,3.07,2.64,2.28,1.97,1.73,1.54,1.39,
     &1.28,1.2,1.13,1.07,1.02,0.963,0.906,0.847,
     &0.789,0.735,0.692,0.666,0.666,0.7,0.774,0.898,
     &1.08,1.31,1.61,1.98,2.39,2.86,3.37,3.89,
     &4.41,4.89,5.29,5.57,5.63,5.37,4.62,7.5,

C    Egam = 1080
     &2.99,
     &2.8,2.52,2.21,1.91,1.64,1.41,1.23,1.09,
     &0.982,0.908,0.856,0.818,0.788,0.76,0.73,0.699,
     &0.666,0.634,0.607,0.592,0.596,0.627,0.692,0.799,
     &0.955,1.17,1.44,1.76,2.15,2.59,3.06,3.56,
     &4.06,4.53,4.94,5.23,5.32,5.08,4.35,6.98,

C    Egam = 1110
     &2.12,
     &2.12,1.98,1.77,1.53,1.3,1.1,0.936,0.806,
     &0.712,0.649,0.609,0.586,0.574,0.567,0.56,0.552,
     &0.542,0.532,0.524,0.524,0.537,0.571,0.632,0.729,
     &0.868,1.05,1.29,1.59,1.93,2.32,2.76,3.21,
     &3.68,4.13,4.52,4.81,4.92,4.74,4.05,6.5,

C    Egam = 1140
     &1.5,
     &1.62,1.58,1.43,1.25,1.05,0.875,0.724,0.604,
     &0.518,0.461,0.428,0.414,0.413,0.419,0.428,0.437,
     &0.444,0.451,0.459,0.473,0.496,0.536,0.599,0.69,
     &0.818,0.987,1.2,1.46,1.77,2.13,2.52,2.94,
     &3.36,3.78,4.15,4.44,4.57,4.44,3.81,6.19,

C    Egam = 1170
     &1.11,
     &1.29,1.3,1.2,1.05,0.887,0.726,0.586,0.474,
     &0.392,0.339,0.31,0.301,0.305,0.319,0.336,0.356,
     &0.375,0.393,0.413,0.436,0.468,0.513,0.577,0.666,
     &0.785,0.942,1.14,1.38,1.66,1.98,2.34,2.72,
     &3.12,3.51,3.86,4.15,4.3,4.22,3.67,6.09,

C    Egam = 1200
     &0.869,
     &1.09,1.13,1.06,0.932,0.781,0.632,0.5,0.393,
     &0.314,0.262,0.235,0.228,0.235,0.253,0.276,0.301,
     &0.327,0.353,0.38,0.409,0.446,0.494,0.558,0.645,
     &0.758,0.904,1.09,1.31,1.57,1.86,2.19,2.55,
     &2.91,3.28,3.62,3.91,4.09,4.05,3.6,6.16,

C    Egam = 1230
     &0.729,
     &0.965,1.02,0.971,0.857,0.717,0.575,0.447,0.342,
     &0.264,0.213,0.187,0.181,0.19,0.21,0.236,0.265,
     &0.295,0.326,0.357,0.391,0.43,0.48,0.544,0.627,
     &0.734,0.871,1.04,1.24,1.48,1.75,2.06,2.39,
     &2.73,3.08,3.41,3.7,3.9,3.92,3.59,6.35,

C    Egam = 1260
     &0.654,
     &0.894,0.962,0.918,0.811,0.676,0.538,0.412,0.308,
     &0.231,0.181,0.155,0.15,0.161,0.182,0.211,0.243,
     &0.276,0.31,0.344,0.38,0.422,0.472,0.534,0.614,
     &0.715,0.843,0.999,1.19,1.4,1.65,1.93,2.23,
     &2.55,2.88,3.19,3.49,3.72,3.81,3.6,6.62,

C    Egam = 1290
     &0.62,
     &0.858,0.928,0.887,0.783,0.65,0.513,0.388,0.285,
     &0.209,0.159,0.135,0.131,0.144,0.168,0.199,0.233,
     &0.269,0.306,0.342,0.38,0.423,0.472,0.533,0.609,
     &0.704,0.822,0.965,1.13,1.33,1.56,1.81,2.08,
     &2.37,2.67,2.97,3.27,3.53,3.69,3.62,6.97,

C    Egam = 1320
     &0.61,
     &0.843,0.911,0.871,0.767,0.634,0.496,0.372,0.269,
     &0.194,0.146,0.123,0.122,0.137,0.164,0.198,0.235,
     &0.274,0.312,0.351,0.39,0.433,0.482,0.541,0.613,
     &0.701,0.808,0.937,1.09,1.26,1.46,1.68,1.92,
     &2.17,2.45,2.73,3.03,3.32,3.57,3.66,7.38,

C    Egam = 1350
     &0.607,
     &0.837,0.905,0.863,0.758,0.623,0.485,0.359,0.257,
     &0.183,0.137,0.117,0.119,0.138,0.169,0.206,0.247,
     &0.289,0.329,0.37,0.41,0.453,0.501,0.557,0.623,
     &0.704,0.8,0.913,1.04,1.2,1.36,1.55,1.75,
     &1.97,2.21,2.48,2.78,3.11,3.45,3.71,7.87,

C    Egam = 1380
     &0.595,
     &0.828,0.898,0.858,0.751,0.614,0.474,0.348,0.246,
     &0.173,0.131,0.115,0.121,0.145,0.18,0.221,0.266,
     &0.31,0.354,0.395,0.436,0.478,0.524,0.576,0.637,
     &0.709,0.793,0.891,1,1.13,1.27,1.42,1.58,
     &1.77,1.98,2.23,2.53,2.89,3.33,3.79,8.43,

C    Egam = 1410
     &0.562,
     &0.807,0.884,0.847,0.742,0.604,0.462,0.335,0.234,
     &0.163,0.124,0.112,0.124,0.153,0.193,0.239,0.287,
     &0.335,0.38,0.422,0.463,0.504,0.547,0.595,0.649,
     &0.712,0.784,0.866,0.958,1.06,1.17,1.29,1.42,
     &1.57,1.75,1.98,2.28,2.69,3.22,3.87,9.02,

C    Egam = 1440
     &0.509,
     &0.769,0.858,0.828,0.725,0.589,0.447,0.32,0.22,
     &0.152,0.116,0.109,0.125,0.159,0.204,0.255,0.307,
     &0.357,0.403,0.446,0.486,0.525,0.565,0.608,0.655,
     &0.709,0.769,0.836,0.909,0.987,1.07,1.16,1.26,
     &1.38,1.54,1.75,2.06,2.51,3.12,3.95,9.62,

C    Egam = 1470
     &0.442,
     &0.717,0.82,0.799,0.702,0.568,0.428,0.303,0.205,
     &0.139,0.107,0.104,0.125,0.163,0.213,0.267,0.321,
     &0.373,0.421,0.463,0.502,0.538,0.574,0.612,0.653,
     &0.698,0.747,0.801,0.857,0.916,0.977,1.04,1.12,
     &1.21,1.35,1.56,1.87,2.35,3.05,4.04,10.2,

C    Egam = 2000
     &0.515,
     &0.354,0.337,0.356,0.368,0.362,0.34,0.311,0.28,
     &0.255,0.237,0.228,0.227,0.232,0.241,0.252,0.263,
     &0.272,0.279,0.284,0.286,0.287,0.288,0.288,0.289,
     &0.29,0.29,0.29,0.287,0.284,0.282,0.288,0.315,
     &0.384,0.528,0.801,1.28,2.06,3.3,5.23,14.1/


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