*     -----------------------------------------------------
      FUNCTION efgampipn(GK,COST)
*     -----------------------------------------------------
*     
*     ( purpose )
*       RETURN DIFFERENTIAL CROSS SECTION OF
C          GAMMA,p ---> pipn
*
*     ( input ) 
*          GK   : gamma energy(MEV)
*         COST  : COS(THETA_CM)
*
*     ( output ) 
*       efgampipn : 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,
     &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 = 160
     &5.07,
     &5.07,5.06,5.06,5.05,5.05,5.04,5.03,5.03,
     &5.02,5.01,5.01,5,4.99,4.99,4.98,4.97,
     &4.96,4.96,4.95,4.94,4.94,4.93,4.93,4.92,
     &4.92,4.92,4.91,4.91,4.91,4.92,4.92,4.93,
     &4.93,4.94,4.96,4.97,4.99,5.01,5.04,5.08,

C    Egam = 170
     &6.65,
     &6.66,6.66,6.67,6.67,6.67,6.67,6.67,6.67,
     &6.66,6.65,6.64,6.64,6.62,6.61,6.59,6.58,
     &6.56,6.54,6.52,6.5,6.48,6.46,6.44,6.42,
     &6.41,6.39,6.37,6.36,6.35,6.34,6.34,6.34,
     &6.35,6.37,6.4,6.44,6.49,6.56,6.66,6.78,

C    Egam = 180
     &7.57,
     &7.59,7.62,7.64,7.65,7.67,7.68,7.69,7.69,
     &7.69,7.68,7.67,7.66,7.64,7.62,7.6,7.57,
     &7.54,7.5,7.46,7.42,7.38,7.34,7.29,7.24,
     &7.2,7.15,7.1,7.06,7.02,6.98,6.95,6.92,
     &6.91,6.91,6.92,6.96,7.03,7.14,7.3,7.53,

C    Egam = 190
     &8.27,
     &8.32,8.36,8.4,8.44,8.47,8.49,8.51,8.52,
     &8.52,8.52,8.52,8.5,8.48,8.45,8.42,8.38,
     &8.33,8.28,8.22,8.16,8.09,8.01,7.94,7.85,
     &7.77,7.68,7.59,7.5,7.41,7.32,7.24,7.17,
     &7.11,7.06,7.04,7.05,7.1,7.22,7.43,7.76,

C    Egam = 200
     &8.92,
     &8.99,9.05,9.11,9.17,9.22,9.26,9.29,9.31,
     &9.32,9.33,9.32,9.31,9.29,9.25,9.21,9.16,
     &9.1,9.03,8.95,8.86,8.76,8.66,8.55,8.42,
     &8.3,8.16,8.02,7.88,7.73,7.58,7.43,7.29,
     &7.16,7.05,6.96,6.91,6.93,7.03,7.25,7.68,

C    Egam = 210
     &9.58,
     &9.67,9.76,9.85,9.93,9.99,10.1,10.1,10.1,
     &10.2,10.2,10.2,10.2,10.1,10.1,10.1,9.99,
     &9.92,9.83,9.73,9.62,9.49,9.35,9.2,9.04,
     &8.87,8.69,8.49,8.29,8.07,7.86,7.64,7.41,
     &7.2,7,6.83,6.69,6.63,6.68,6.89,7.38,

C    Egam = 220
     &10.3,
     &10.4,10.5,10.6,10.8,10.9,10.9,11,11.1,
     &11.1,11.1,11.1,11.1,11.1,11.1,11,10.9,
     &10.8,10.7,10.6,10.5,10.3,10.1,9.97,9.76,
     &9.54,9.31,9.06,8.79,8.51,8.21,7.91,7.6,
     &7.29,6.99,6.71,6.47,6.3,6.26,6.42,6.95,

C    Egam = 230
     &11.1,
     &11.3,11.4,11.6,11.7,11.8,11.9,12,12.1,
     &12.1,12.2,12.2,12.2,12.2,12.1,12.1,12,
     &11.9,11.8,11.6,11.5,11.3,11.1,10.9,10.6,
     &10.4,10.1,9.76,9.42,9.07,8.69,8.3,7.9,
     &7.48,7.07,6.66,6.3,6,5.84,5.91,6.44,

C    Egam = 240
     &12,
     &12.2,12.4,12.6,12.7,12.9,13,13.1,13.2,
     &13.3,13.4,13.4,13.4,13.4,13.4,13.3,13.2,
     &13.1,13,12.9,12.7,12.5,12.2,12,11.7,
     &11.4,11,10.6,10.2,9.8,9.34,8.85,8.35,
     &7.82,7.28,6.74,6.23,5.78,5.46,5.42,5.91,

C    Egam = 250
     &13,
     &13.2,13.5,13.7,13.9,14.1,14.3,14.4,14.6,
     &14.7,14.8,14.8,14.9,14.9,14.8,14.8,14.7,
     &14.6,14.4,14.3,14.1,13.8,13.6,13.2,12.9,
     &12.6,12.1,11.7,11.2,10.7,10.2,9.6,8.98,
     &8.34,7.67,6.99,6.32,5.7,5.2,4.99,5.41,

C    Egam = 260
     &14.1,
     &14.4,14.6,14.9,15.2,15.4,15.7,15.9,16,
     &16.2,16.3,16.4,16.4,16.5,16.5,16.4,16.3,
     &16.2,16,15.9,15.6,15.4,15.1,14.7,14.4,
     &13.9,13.5,13,12.4,11.9,11.2,10.6,9.84,
     &9.08,8.28,7.45,6.61,5.81,5.12,4.72,5.03,

C    Egam = 270
     &15.1,
     &15.5,15.8,16.2,16.5,16.8,17.1,17.4,17.6,
     &17.8,17.9,18.1,18.1,18.2,18.2,18.2,18.1,
     &18,17.8,17.6,17.4,17.1,16.8,16.4,16,
     &15.6,15,14.5,13.9,13.2,12.5,11.7,10.9,
     &10.1,9.12,8.15,7.16,6.18,5.29,4.7,4.91,

C    Egam = 280
     &16.1,
     &16.5,16.9,17.3,17.7,18.1,18.5,18.8,19.1,
     &19.3,19.5,19.7,19.8,19.9,19.9,19.9,19.9,
     &19.8,19.6,19.4,19.2,18.9,18.6,18.2,17.7,
     &17.2,16.7,16.1,15.4,14.7,13.9,13.1,12.2,
     &11.2,10.2,9.11,7.98,6.85,5.8,5.05,5.18,

C    Egam = 290
     &16.6,
     &17.1,17.6,18.1,18.6,19.1,19.5,19.9,20.2,
     &20.5,20.8,21,21.2,21.3,21.4,21.4,21.4,
     &21.3,21.2,21,20.8,20.5,20.2,19.8,19.4,
     &18.9,18.3,17.7,17,16.2,15.4,14.5,13.6,
     &12.6,11.5,10.3,9.07,7.84,6.68,5.84,6,

C    Egam = 300
     &16.5,
     &17.1,17.7,18.3,18.9,19.4,19.9,20.4,20.8,
     &21.1,21.5,21.8,22,22.2,22.3,22.4,22.4,
     &22.4,22.3,22.1,21.9,21.7,21.4,21,20.6,
     &20.1,19.6,19,18.3,17.5,16.7,15.8,14.9,
     &13.9,12.7,11.6,10.3,9.07,7.9,7.08,7.42,

C    Egam = 310
     &16,
     &16.6,17.3,17.9,18.5,19.1,19.7,20.2,20.6,
     &21.1,21.4,21.8,22,22.3,22.5,22.6,22.7,
     &22.7,22.6,22.5,22.4,22.2,21.9,21.6,21.2,
     &20.8,20.3,19.8,19.1,18.4,17.7,16.8,15.9,
     &15,13.9,12.8,11.6,10.5,9.4,8.76,9.52,

C    Egam = 320
     &14.9,
     &15.5,16.2,16.9,17.5,18.1,18.7,19.2,19.7,
     &20.2,20.6,20.9,21.3,21.5,21.8,21.9,22.1,
     &22.1,22.1,22.1,22,21.9,21.7,21.5,21.1,
     &20.8,20.4,19.9,19.3,18.7,18.1,17.3,16.5,
     &15.7,14.8,13.8,12.8,11.8,10.9,10.6,12,

C    Egam = 330
     &13.3,
     &14,14.6,15.3,15.9,16.5,17,17.6,18.1,
     &18.6,19,19.4,19.7,20,20.3,20.5,20.7,
     &20.8,20.9,20.9,20.9,20.8,20.7,20.5,20.3,
     &20,19.7,19.4,18.9,18.4,17.9,17.3,16.6,
     &15.9,15.1,14.3,13.5,12.8,12.2,12.4,14.6,

C    Egam = 340
     &11.6,
     &12.2,12.8,13.4,14,14.5,15.1,15.6,16.1,
     &16.5,17,17.4,17.7,18,18.3,18.6,18.8,
     &19,19.1,19.2,19.2,19.2,19.2,19.1,19,
     &18.8,18.6,18.3,18,17.6,17.2,16.8,16.2,
     &15.7,15.1,14.5,13.9,13.4,13.2,13.8,16.8,

C    Egam = 350
     &9.86,
     &10.4,11,11.5,12.1,12.6,13.1,13.6,14,
     &14.5,14.9,15.3,15.6,15.9,16.2,16.5,16.8,
     &17,17.1,17.3,17.4,17.4,17.5,17.5,17.4,
     &17.3,17.2,17,16.8,16.6,16.3,16,15.6,
     &15.2,14.8,14.4,14,13.7,13.8,14.8,18.6,

C    Egam = 360
     &8.37,
     &8.86,9.35,9.83,10.3,10.8,11.2,11.7,12.1,
     &12.5,12.9,13.3,13.6,13.9,14.2,14.5,14.8,
     &15,15.2,15.4,15.5,15.7,15.8,15.8,15.8,
     &15.8,15.8,15.7,15.6,15.4,15.3,15,14.8,
     &14.5,14.3,14,13.8,13.8,14.1,15.4,20,

C    Egam = 370
     &7.13,
     &7.55,7.98,8.4,8.83,9.24,9.65,10.1,10.4,
     &10.8,11.2,11.5,11.9,12.2,12.5,12.8,13,
     &13.3,13.5,13.7,13.9,14.1,14.2,14.3,14.4,
     &14.4,14.5,14.4,14.4,14.4,14.2,14.1,14,
     &13.8,13.7,13.5,13.5,13.6,14.1,15.7,20.9,

C    Egam = 380
     &6.14,
     &6.5,6.87,7.24,7.61,7.97,8.34,8.69,9.04,
     &9.39,9.72,10.1,10.4,10.7,11,11.3,11.5,
     &11.8,12,12.3,12.5,12.7,12.8,13,13.1,
     &13.2,13.3,13.3,13.4,13.4,13.3,13.3,13.2,
     &13.1,13.1,13,13.1,13.3,14,15.8,21.4,

C    Egam = 390
     &5.38,
     &5.69,6,6.32,6.64,6.96,7.28,7.6,7.91,
     &8.23,8.54,8.85,9.15,9.45,9.74,10,10.3,
     &10.6,10.8,11.1,11.3,11.5,11.7,11.9,12,
     &12.2,12.3,12.4,12.5,12.5,12.5,12.5,12.5,
     &12.5,12.5,12.6,12.7,13,13.7,15.7,21.7,

C    Egam = 400
     &4.81,
     &5.06,5.32,5.6,5.87,6.15,6.44,6.72,7.01,
     &7.3,7.59,7.88,8.16,8.45,8.73,9.01,9.29,
     &9.56,9.82,10.1,10.3,10.6,10.8,11,11.1,
     &11.3,11.5,11.6,11.7,11.8,11.9,11.9,11.9,
     &12,12,12.1,12.3,12.6,13.4,15.4,21.8,

C    Egam = 410
     &4.38,
     &4.59,4.81,5.04,5.28,5.53,5.78,6.03,6.3,
     &6.56,6.83,7.1,7.37,7.65,7.92,8.2,8.47,
     &8.74,9.01,9.27,9.52,9.77,10,10.2,10.4,
     &10.6,10.8,10.9,11.1,11.2,11.3,11.4,11.4,
     &11.5,11.6,11.7,11.9,12.2,13.1,15.2,21.8,

C    Egam = 420
     &4.08,
     &4.24,4.43,4.62,4.83,5.05,5.27,5.5,5.74,
     &5.98,6.23,6.48,6.74,7.01,7.28,7.55,7.82,
     &8.09,8.36,8.62,8.88,9.14,9.38,9.61,9.83,
     &10,10.2,10.4,10.6,10.7,10.8,10.9,11,
     &11.1,11.2,11.3,11.5,11.9,12.7,14.8,21.6,

C    Egam = 430
     &3.87,
     &4,4.15,4.31,4.49,4.68,4.87,5.08,5.3,
     &5.52,5.76,6,6.24,6.5,6.76,7.03,7.3,
     &7.57,7.84,8.1,8.37,8.63,8.88,9.12,9.35,
     &9.57,9.77,9.96,10.1,10.3,10.4,10.5,10.6,
     &10.8,10.9,11,11.2,11.6,12.4,14.5,21.5,

C    Egam = 440
     &3.72,
     &3.83,3.95,4.08,4.23,4.4,4.57,4.76,4.96,
     &5.17,5.39,5.61,5.85,6.1,6.35,6.61,6.88,
     &7.14,7.41,7.69,7.95,8.22,8.48,8.73,8.97,
     &9.19,9.41,9.6,9.79,9.95,10.1,10.2,10.4,
     &10.5,10.6,10.8,10.9,11.3,12.1,14.1,21.3,

C    Egam = 450
     &3.64,
     &3.71,3.81,3.92,4.05,4.19,4.35,4.52,4.7,
     &4.89,5.1,5.32,5.54,5.78,6.03,6.28,6.54,
     &6.81,7.08,7.35,7.62,7.89,8.15,8.41,8.66,
     &8.89,9.11,9.32,9.52,9.69,9.85,10,10.1,
     &10.2,10.4,10.5,10.7,11.1,11.8,13.8,21,

C    Egam = 460
     &3.6,
     &3.65,3.72,3.81,3.92,4.04,4.18,4.33,4.5,
     &4.68,4.87,5.08,5.3,5.53,5.77,6.02,6.28,
     &6.54,6.81,7.09,7.36,7.63,7.9,8.16,8.41,
     &8.65,8.88,9.1,9.3,9.49,9.65,9.81,9.94,
     &10.1,10.2,10.3,10.5,10.9,11.6,13.5,20.8,

C    Egam = 470
     &3.59,
     &3.61,3.66,3.73,3.82,3.93,4.05,4.19,4.35,
     &4.52,4.7,4.9,5.11,5.33,5.57,5.81,6.07,
     &6.33,6.6,6.87,7.15,7.42,7.69,7.96,8.22,
     &8.47,8.7,8.93,9.14,9.33,9.5,9.66,9.8,
     &9.93,10.1,10.2,10.4,10.7,11.4,13.2,20.6,

C    Egam = 480
     &3.59,
     &3.6,3.63,3.68,3.76,3.85,3.96,4.09,4.23,
     &4.39,4.56,4.75,4.95,5.17,5.4,5.64,5.9,
     &6.16,6.43,6.7,6.98,7.25,7.53,7.8,8.06,
     &8.32,8.56,8.79,9.01,9.21,9.39,9.55,9.7,
     &9.83,9.96,10.1,10.3,10.5,11.2,13,20.4,

C    Egam = 490
     &3.61,
     &3.6,3.61,3.65,3.71,3.79,3.89,4.01,4.14,
     &4.29,4.45,4.63,4.83,5.04,5.27,5.51,5.76,
     &6.02,6.28,6.56,6.84,7.12,7.4,7.67,7.94,
     &8.2,8.45,8.69,8.91,9.12,9.31,9.48,9.63,
     &9.76,9.89,10,10.2,10.4,11,12.8,20.2,

C    Egam = 500
     &3.62,
     &3.6,3.6,3.63,3.67,3.74,3.83,3.94,4.06,
     &4.2,4.36,4.53,4.73,4.93,5.16,5.39,5.64,
     &5.9,6.17,6.44,6.72,7.01,7.29,7.57,7.84,
     &8.11,8.37,8.61,8.85,9.06,9.26,9.43,9.59,
     &9.73,9.85,9.98,10.1,10.4,10.9,12.6,20.1,

C    Egam = 510
     &3.63,
     &3.59,3.58,3.6,3.64,3.7,3.78,3.88,3.99,
     &4.13,4.28,4.45,4.64,4.84,5.06,5.29,5.54,
     &5.8,6.07,6.34,6.63,6.91,7.2,7.49,7.77,
     &8.04,8.31,8.56,8.8,9.02,9.23,9.41,9.57,
     &9.72,9.85,9.97,10.1,10.3,10.9,12.5,20.1,

C    Egam = 520
     &3.62,
     &3.57,3.56,3.57,3.6,3.65,3.72,3.82,3.93,
     &4.05,4.2,4.37,4.55,4.75,4.97,5.2,5.45,
     &5.71,5.98,6.26,6.54,6.83,7.13,7.42,7.71,
     &7.99,8.26,8.52,8.77,9,9.22,9.41,9.58,
     &9.73,9.86,9.99,10.1,10.3,10.8,12.4,20.1,

C    Egam = 530
     &3.6,
     &3.54,3.52,3.52,3.55,3.6,3.67,3.75,3.86,
     &3.99,4.13,4.3,4.48,4.68,4.89,5.12,5.37,
     &5.63,5.9,6.18,6.47,6.77,7.07,7.36,7.66,
     &7.95,8.23,8.5,8.76,9,9.22,9.43,9.6,
     &9.76,9.9,10,10.2,10.4,10.8,12.4,20.1,

C    Egam = 540
     &3.55,
     &3.49,3.47,3.47,3.49,3.54,3.61,3.69,3.8,
     &3.92,4.06,4.22,4.41,4.6,4.82,5.05,5.3,
     &5.56,5.83,6.12,6.41,6.71,7.02,7.32,7.62,
     &7.92,8.21,8.49,8.76,9.01,9.25,9.46,9.65,
     &9.81,9.95,10.1,10.2,10.4,10.9,12.4,20.2,

C    Egam = 550
     &3.49,
     &3.43,3.41,3.41,3.43,3.48,3.55,3.63,3.73,
     &3.86,4,4.16,4.34,4.54,4.76,4.99,5.24,
     &5.5,5.78,6.07,6.36,6.67,6.98,7.29,7.6,
     &7.91,8.21,8.5,8.78,9.04,9.28,9.5,9.7,
     &9.88,10,10.2,10.3,10.5,10.9,12.4,20.3,

C    Egam = 560
     &3.41,
     &3.36,3.34,3.34,3.37,3.42,3.49,3.57,3.68,
     &3.8,3.95,4.11,4.29,4.49,4.7,4.94,5.19,
     &5.46,5.74,6.03,6.33,6.64,6.96,7.28,7.6,
     &7.91,8.22,8.52,8.81,9.08,9.33,9.56,9.77,
     &9.95,10.1,10.2,10.4,10.6,11,12.4,20.4,

C    Egam = 570
     &3.33,
     &3.28,3.27,3.28,3.31,3.36,3.43,3.52,3.63,
     &3.76,3.9,4.07,4.25,4.45,4.67,4.91,5.16,
     &5.43,5.72,6.01,6.32,6.64,6.96,7.28,7.61,
     &7.93,8.25,8.56,8.86,9.14,9.4,9.64,9.85,
     &10,10.2,10.3,10.5,10.6,11,12.4,20.6,

C    Egam = 580
     &3.24,
     &3.2,3.19,3.21,3.25,3.31,3.39,3.48,3.59,
     &3.72,3.87,4.04,4.23,4.43,4.65,4.89,5.15,
     &5.42,5.71,6.01,6.33,6.65,6.98,7.31,7.64,
     &7.97,8.3,8.62,8.93,9.21,9.48,9.73,9.95,
     &10.1,10.3,10.4,10.6,10.7,11.1,12.5,20.7,

C    Egam = 590
     &3.15,
     &3.12,3.13,3.16,3.2,3.27,3.35,3.46,3.57,
     &3.71,3.86,4.03,4.22,4.43,4.66,4.9,5.16,
     &5.44,5.74,6.04,6.36,6.69,7.02,7.36,7.7,
     &8.04,8.37,8.7,9.01,9.31,9.59,9.84,10.1,
     &10.3,10.4,10.6,10.7,10.8,11.2,12.5,20.8,

C    Egam = 600
     &3.06,
     &3.05,3.07,3.11,3.17,3.24,3.34,3.45,3.57,
     &3.72,3.88,4.05,4.25,4.46,4.69,4.94,5.2,
     &5.49,5.78,6.1,6.42,6.75,7.09,7.44,7.78,
     &8.13,8.47,8.8,9.12,9.43,9.71,9.97,10.2,
     &10.4,10.6,10.7,10.8,10.9,11.2,12.5,20.9,

C    Egam = 610
     &2.98,
     &2.99,3.03,3.08,3.15,3.24,3.34,3.46,3.6,
     &3.74,3.91,4.09,4.3,4.51,4.75,5,5.27,
     &5.56,5.86,6.18,6.51,6.85,7.19,7.54,7.9,
     &8.25,8.6,8.94,9.26,9.57,9.85,10.1,10.3,
     &10.5,10.7,10.8,10.9,11,11.3,12.6,21,

C    Egam = 620
     &2.92,
     &2.94,2.99,3.06,3.15,3.25,3.37,3.5,3.64,
     &3.8,3.97,4.16,4.37,4.6,4.84,5.1,5.37,
     &5.67,5.97,6.29,6.63,6.97,7.32,7.68,8.04,
     &8.4,8.75,9.09,9.42,9.73,10,10.3,10.5,
     &10.7,10.9,10.9,11,11.1,11.4,12.6,21.1,

C    Egam = 630
     &2.87,
     &2.91,2.98,3.07,3.17,3.29,3.41,3.56,3.71,
     &3.88,4.06,4.26,4.48,4.71,4.96,5.22,5.51,
     &5.8,6.11,6.44,6.78,7.13,7.49,7.85,8.21,
     &8.57,8.93,9.28,9.61,9.93,10.2,10.5,10.7,
     &10.9,11,11.1,11.2,11.2,11.4,12.6,21.1,

C    Egam = 640
     &2.83,
     &2.9,2.99,3.09,3.21,3.34,3.49,3.64,3.81,
     &3.99,4.18,4.39,4.62,4.86,5.11,5.38,5.67,
     &5.97,6.29,6.62,6.97,7.32,7.68,8.05,8.41,
     &8.78,9.14,9.49,9.83,10.1,10.4,10.7,10.9,
     &11.1,11.2,11.3,11.3,11.4,11.5,12.6,21.2,

C    Egam = 650
     &2.81,
     &2.9,3.02,3.14,3.28,3.43,3.59,3.76,3.94,
     &4.13,4.33,4.55,4.78,5.03,5.29,5.57,5.87,
     &6.18,6.5,6.83,7.18,7.54,7.91,8.27,8.65,
     &9.02,9.38,9.73,10.1,10.4,10.7,10.9,11.1,
     &11.3,11.4,11.5,11.5,11.5,11.6,12.7,21.3,

C    Egam = 660
     &2.82,
     &2.93,3.07,3.21,3.37,3.54,3.71,3.9,4.09,
     &4.3,4.51,4.74,4.98,5.24,5.51,5.79,6.09,
     &6.41,6.74,7.07,7.43,7.79,8.16,8.53,8.9,
     &9.27,9.64,9.99,10.3,10.6,10.9,11.2,11.4,
     &11.5,11.6,11.7,11.7,11.6,11.7,12.7,21.4,

C    Egam = 670
     &2.85,
     &2.99,3.14,3.31,3.49,3.67,3.87,4.07,4.27,
     &4.49,4.72,4.96,5.21,5.47,5.75,6.04,6.35,
     &6.66,7,7.34,7.7,8.06,8.43,8.8,9.18,
     &9.55,9.91,10.3,10.6,10.9,11.2,11.4,11.6,
     &11.8,11.9,11.9,11.8,11.8,11.8,12.8,21.5,

C    Egam = 680
     &2.91,
     &3.08,3.25,3.44,3.63,3.84,4.05,4.26,4.49,
     &4.72,4.95,5.2,5.46,5.73,6.02,6.31,6.62,
     &6.94,7.28,7.62,7.98,8.34,8.71,9.09,9.46,
     &9.83,10.2,10.5,10.9,11.2,11.4,11.7,11.9,
     &12,12.1,12.1,12,11.9,12,12.9,21.6,

C    Egam = 690
     &3.03,
     &3.2,3.4,3.6,3.82,4.03,4.26,4.49,4.72,
     &4.96,5.21,5.47,5.74,6.01,6.3,6.6,6.91,
     &7.23,7.56,7.91,8.26,8.62,8.99,9.36,9.73,
     &10.1,10.5,10.8,11.1,11.4,11.7,11.9,12.1,
     &12.2,12.3,12.3,12.2,12.1,12.1,13,21.8,

C    Egam = 700
     &3.2,
     &3.39,3.6,3.82,4.04,4.27,4.51,4.75,4.99,
     &5.24,5.5,5.76,6.03,6.31,6.59,6.89,7.2,
     &7.52,7.85,8.19,8.54,8.89,9.25,9.62,9.98,
     &10.3,10.7,11,11.4,11.6,11.9,12.1,12.3,
     &12.4,12.5,12.5,12.4,12.3,12.3,13.1,22,

C    Egam = 710
     &3.37,
     &3.58,3.8,4.03,4.28,4.52,4.77,5.02,5.27,
     &5.53,5.79,6.05,6.32,6.59,6.87,7.16,7.45,
     &7.76,8.07,8.39,8.72,9.05,9.39,9.73,10.1,
     &10.4,10.7,11.1,11.3,11.6,11.9,12.1,12.2,
     &12.3,12.3,12.3,12.2,12.1,12,12.7,21.5,

C    Egam = 720
     &3.02,
     &3.26,3.52,3.79,4.07,4.34,4.61,4.89,5.16,
     &5.43,5.7,5.96,6.23,6.51,6.78,7.06,7.34,
     &7.63,7.92,8.22,8.52,8.83,9.14,9.45,9.76,
     &10.1,10.4,10.6,10.9,11.1,11.4,11.5,11.7,
     &11.7,11.7,11.7,11.5,11.3,11.2,11.8,20.2,

C    Egam = 730
     &2.83,
     &3.09,3.37,3.65,3.94,4.23,4.52,4.81,5.09,
     &5.36,5.64,5.9,6.17,6.44,6.7,6.97,7.23,
     &7.5,7.78,8.05,8.33,8.6,8.89,9.16,9.44,
     &9.72,9.99,10.2,10.5,10.7,10.9,11.1,11.2,
     &11.2,11.3,11.2,11.1,10.9,10.7,11.2,19.4,

C    Egam = 740
     &2.67,
     &2.93,3.21,3.5,3.8,4.1,4.39,4.68,4.97,
     &5.24,5.51,5.77,6.03,6.29,6.53,6.78,7.03,
     &7.27,7.52,7.76,8.01,8.26,8.51,8.75,9,
     &9.25,9.49,9.72,9.95,10.1,10.3,10.5,10.6,
     &10.7,10.7,10.7,10.6,10.4,10.2,10.7,18.8,

C    Egam = 750
     &2.53,
     &2.78,3.05,3.34,3.63,3.92,4.22,4.5,4.78,
     &5.05,5.31,5.56,5.81,6.04,6.27,6.49,6.71,
     &6.93,7.14,7.35,7.57,7.78,7.99,8.21,8.43,
     &8.64,8.86,9.07,9.28,9.48,9.66,9.82,9.96,
     &10.1,10.1,10.1,10,9.91,9.82,10.3,18.3,

C    Egam = 760
     &2.43,
     &2.64,2.89,3.16,3.44,3.72,4.01,4.28,4.55,
     &4.8,5.05,5.28,5.5,5.72,5.92,6.11,6.3,
     &6.48,6.66,6.84,7.01,7.19,7.37,7.55,7.74,
     &7.93,8.12,8.31,8.51,8.7,8.89,9.07,9.23,
     &9.36,9.46,9.51,9.51,9.46,9.43,9.94,17.9,

C    Egam = 770
     &2.36,
     &2.53,2.75,2.99,3.25,3.51,3.78,4.03,4.28,
     &4.52,4.74,4.95,5.15,5.34,5.51,5.67,5.82,
     &5.97,6.11,6.25,6.39,6.53,6.68,6.82,6.98,
     &7.15,7.32,7.51,7.7,7.89,8.09,8.29,8.48,
     &8.66,8.81,8.93,9,9.03,9.09,9.66,17.6,

C    Egam = 780
     &2.32,
     &2.45,2.62,2.83,3.06,3.3,3.55,3.78,4.01,
     &4.22,4.42,4.61,4.78,4.93,5.07,5.2,5.32,
     &5.43,5.54,5.64,5.75,5.85,5.97,6.09,6.22,
     &6.36,6.52,6.7,6.89,7.09,7.31,7.53,7.76,
     &7.99,8.2,8.39,8.54,8.66,8.8,9.45,17.5,

C    Egam = 790
     &2.32,
     &2.39,2.53,2.7,2.9,3.12,3.33,3.54,3.75,
     &3.94,4.11,4.27,4.41,4.54,4.65,4.74,4.83,
     &4.91,4.98,5.05,5.12,5.2,5.29,5.38,5.49,
     &5.62,5.77,5.94,6.14,6.36,6.59,6.85,7.11,
     &7.39,7.66,7.91,8.14,8.34,8.57,9.28,17.4,

C    Egam = 800
     &2.34,
     &2.36,2.45,2.6,2.77,2.95,3.14,3.33,3.51,
     &3.68,3.83,3.96,4.07,4.17,4.25,4.32,4.38,
     &4.43,4.47,4.51,4.56,4.61,4.67,4.75,4.84,
     &4.96,5.11,5.28,5.48,5.72,5.97,6.26,6.57,
     &6.88,7.21,7.52,7.82,8.09,8.39,9.16,17.3,

C    Egam = 810
     &2.37,
     &2.35,2.41,2.52,2.66,2.82,2.99,3.15,3.31,
     &3.45,3.58,3.69,3.78,3.85,3.91,3.95,3.98,
     &4,4.02,4.04,4.06,4.09,4.14,4.2,4.29,
     &4.4,4.55,4.73,4.94,5.19,5.47,5.79,6.13,
     &6.49,6.86,7.22,7.57,7.9,8.25,9.06,17.2,

C    Egam = 840
     &2.53,
     &2.4,2.38,2.42,2.5,2.6,2.72,2.83,2.93,
     &3.02,3.09,3.14,3.17,3.18,3.17,3.16,3.13,
     &3.1,3.07,3.04,3.02,3.03,3.05,3.1,3.19,
     &3.31,3.48,3.7,3.96,4.27,4.62,5.01,5.44,
     &5.9,6.36,6.82,7.26,7.67,8.07,8.85,16.9,

C    Egam = 870
     &2.66,
     &2.5,2.44,2.45,2.51,2.58,2.67,2.75,2.81,
     &2.86,2.89,2.9,2.89,2.86,2.82,2.76,2.7,
     &2.64,2.58,2.54,2.51,2.52,2.55,2.62,2.74,
     &2.9,3.12,3.38,3.71,4.08,4.5,4.97,5.46,
     &5.97,6.47,6.96,7.4,7.77,8.09,8.68,16.3,

C    Egam = 900
     &2.7,
     &2.54,2.5,2.52,2.58,2.66,2.74,2.81,2.86,
     &2.88,2.88,2.86,2.82,2.76,2.68,2.6,2.51,
     &2.43,2.36,2.32,2.3,2.32,2.38,2.49,2.65,
     &2.87,3.15,3.49,3.88,4.33,4.82,5.35,5.89,
     &6.43,6.94,7.41,7.79,8.05,8.19,8.46,15.4,

C    Egam = 930
     &2.63,
     &2.54,2.54,2.61,2.71,2.81,2.9,2.97,3.01,
     &3.02,3,2.95,2.87,2.78,2.67,2.56,2.45,
     &2.35,2.28,2.24,2.24,2.29,2.39,2.55,2.78,
     &3.07,3.43,3.85,4.34,4.87,5.44,6.03,6.62,
     &7.18,7.69,8.1,8.39,8.49,8.38,8.25,14.4,

C    Egam = 960
     &2.54,
     &2.55,2.64,2.78,2.92,3.06,3.16,3.23,3.27,
     &3.25,3.2,3.12,3,2.87,2.73,2.58,2.45,
     &2.34,2.27,2.23,2.26,2.34,2.49,2.71,3.02,
     &3.39,3.85,4.37,4.95,5.58,6.24,6.9,7.54,
     &8.12,8.61,8.97,9.13,9.04,8.64,8.04,13.1,

C    Egam = 990
     &2.36,
     &2.51,2.7,2.9,3.09,3.26,3.37,3.44,3.45,
     &3.42,3.33,3.21,3.06,2.89,2.72,2.55,2.4,
     &2.28,2.2,2.18,2.22,2.34,2.53,2.81,3.18,
     &3.63,4.17,4.77,5.43,6.14,6.87,7.59,8.26,
     &8.86,9.33,9.62,9.67,9.39,8.7,7.6,11.3,

C    Egam = 1020
     &2.04,
     &2.31,2.58,2.82,3.02,3.17,3.27,3.31,3.3,
     &3.24,3.13,2.99,2.82,2.64,2.46,2.29,2.15,
     &2.04,1.98,1.97,2.04,2.18,2.4,2.71,3.1,
     &3.58,4.14,4.77,5.46,6.18,6.93,7.65,8.34,
     &8.93,9.38,9.65,9.64,9.28,8.44,7.05,9.71,

C    Egam = 1050
     &1.62,
     &2,2.29,2.51,2.66,2.76,2.8,2.79,2.74,
     &2.65,2.53,2.4,2.25,2.09,1.95,1.82,1.71,
     &1.64,1.62,1.64,1.73,1.88,2.1,2.39,2.76,
     &3.19,3.7,4.27,4.89,5.55,6.22,6.89,7.53,
     &8.09,8.54,8.82,8.87,8.58,7.85,6.51,8.8,

C    Egam = 1080
     &1.19,
     &1.65,1.94,2.11,2.19,2.21,2.18,2.12,2.03,
     &1.93,1.82,1.7,1.59,1.48,1.38,1.31,1.26,
     &1.24,1.25,1.3,1.39,1.53,1.72,1.97,2.26,
     &2.61,3.01,3.47,3.96,4.5,5.06,5.62,6.18,
     &6.7,7.14,7.46,7.61,7.49,6.99,5.93,8.32,

C    Egam = 1110
     &0.836,
     &1.34,1.61,1.74,1.76,1.72,1.65,1.55,1.45,
     &1.34,1.24,1.15,1.07,1.01,0.963,0.936,0.928,
     &0.941,0.977,1.04,1.12,1.24,1.39,1.57,1.79,
     &2.05,2.34,2.68,3.06,3.48,3.93,4.4,4.88,
     &5.35,5.78,6.14,6.38,6.42,6.15,5.37,7.96,

C    Egam = 1140
     &0.578,
     &1.1,1.36,1.45,1.44,1.37,1.27,1.15,1.04,
     &0.945,0.862,0.795,0.748,0.718,0.705,0.707,0.725,
     &0.756,0.8,0.858,0.931,1.02,1.13,1.26,1.41,
     &1.6,1.82,2.07,2.36,2.7,3.07,3.47,3.89,
     &4.33,4.76,5.14,5.44,5.59,5.47,4.89,7.61,

C    Egam = 1170
     &0.405,
     &0.93,1.18,1.26,1.23,1.14,1.02,0.907,0.8,
     &0.709,0.64,0.591,0.564,0.555,0.561,0.58,0.609,
     &0.646,0.69,0.74,0.797,0.863,0.94,1.03,1.14,
     &1.28,1.44,1.64,1.88,2.16,2.48,2.84,3.23,
     &3.65,4.06,4.46,4.79,5,4.97,4.52,7.28,

C    Egam = 1200
     &0.292,
     &0.824,1.07,1.14,1.1,1,0.883,0.765,0.661,
     &0.578,0.518,0.482,0.466,0.468,0.484,0.511,0.543,
     &0.58,0.619,0.659,0.702,0.749,0.804,0.87,0.952,
     &1.06,1.19,1.36,1.56,1.81,2.11,2.44,2.81,
     &3.21,3.62,4.01,4.36,4.59,4.62,4.23,6.98,

C    Egam = 1230
     &0.22,
     &0.762,1.01,1.07,1.03,0.928,0.808,0.691,0.59,
     &0.511,0.457,0.427,0.417,0.424,0.444,0.472,0.503,
     &0.536,0.569,0.601,0.632,0.666,0.705,0.754,0.819,
     &0.906,1.02,1.17,1.36,1.59,1.87,2.19,2.54,
     &2.93,3.33,3.71,4.05,4.3,4.35,4.01,6.71,

C    Egam = 1260
     &0.177,
     &0.729,0.979,1.04,0.996,0.895,0.775,0.658,0.558,
     &0.482,0.43,0.402,0.395,0.403,0.422,0.448,0.477,
     &0.505,0.531,0.555,0.578,0.602,0.631,0.67,0.725,
     &0.802,0.907,1.05,1.23,1.45,1.72,2.02,2.37,
     &2.74,3.12,3.49,3.83,4.07,4.14,3.83,6.49,

C    Egam = 1290
     &0.154,
     &0.713,0.966,1.03,0.984,0.884,0.764,0.648,0.549,
     &0.474,0.423,0.395,0.387,0.394,0.411,0.433,0.457,
     &0.48,0.501,0.518,0.535,0.552,0.575,0.609,0.658,
     &0.73,0.831,0.966,1.14,1.36,1.61,1.91,2.24,
     &2.59,2.96,3.31,3.63,3.87,3.95,3.68,6.33,

C    Egam = 1320
     &0.147,
     &0.705,0.958,1.02,0.979,0.881,0.764,0.65,0.553,
     &0.479,0.428,0.399,0.389,0.393,0.405,0.423,0.442,
     &0.459,0.474,0.487,0.499,0.513,0.533,0.563,0.611,
     &0.681,0.78,0.912,1.08,1.29,1.54,1.82,2.13,
     &2.47,2.81,3.14,3.45,3.68,3.78,3.56,6.25,

C    Egam = 1350
     &0.149,
     &0.696,0.945,1.01,0.97,0.876,0.765,0.656,0.563,
     &0.49,0.44,0.41,0.396,0.396,0.404,0.416,0.429,
     &0.441,0.451,0.46,0.469,0.481,0.5,0.531,0.579,
     &0.649,0.746,0.876,1.04,1.24,1.47,1.74,2.03,
     &2.34,2.66,2.97,3.26,3.49,3.61,3.46,6.26,

C    Egam = 1380
     &0.153,
     &0.678,0.919,0.984,0.95,0.864,0.761,0.66,0.573,
     &0.504,0.454,0.423,0.406,0.401,0.403,0.409,0.417,
     &0.424,0.431,0.437,0.444,0.456,0.476,0.509,0.558,
     &0.628,0.724,0.849,1.01,1.19,1.41,1.66,1.93,
     &2.21,2.5,2.79,3.06,3.3,3.46,3.38,6.36,

C    Egam = 1410
     &0.153,
     &0.648,0.877,0.943,0.915,0.84,0.748,0.657,0.577,
     &0.513,0.466,0.434,0.415,0.405,0.402,0.402,0.405,
     &0.407,0.411,0.416,0.423,0.437,0.458,0.493,0.543,
     &0.614,0.707,0.827,0.974,1.15,1.35,1.57,1.81,
     &2.07,2.33,2.6,2.86,3.11,3.31,3.33,6.52,

C    Egam = 1440
     &0.144,
     &0.605,0.82,0.885,0.865,0.802,0.723,0.643,0.573,
     &0.516,0.472,0.44,0.418,0.405,0.397,0.392,0.39,
     &0.39,0.392,0.396,0.404,0.42,0.444,0.48,0.532,
     &0.602,0.692,0.804,0.939,1.1,1.28,1.48,1.69,
     &1.92,2.16,2.41,2.67,2.93,3.17,3.29,6.71,

C    Egam = 1470
     &0.127,
     &0.551,0.751,0.815,0.803,0.751,0.686,0.619,0.558,
     &0.508,0.468,0.438,0.415,0.399,0.387,0.379,0.374,
     &0.371,0.372,0.376,0.386,0.404,0.43,0.469,0.521,
     &0.588,0.674,0.777,0.9,1.04,1.2,1.38,1.57,
     &1.77,1.99,2.23,2.48,2.76,3.05,3.25,6.89,

C    Egam = 2000
     &0.075,
     &0.0959,0.12,0.129,0.123,0.109,0.0954,0.0871,0.0865,
     &0.0935,0.106,0.122,0.138,0.151,0.161,0.167,0.168,
     &0.168,0.166,0.166,0.169,0.177,0.19,0.21,0.236,
     &0.267,0.301,0.336,0.373,0.41,0.449,0.493,0.547,
     &0.624,0.736,0.904,1.16,1.52,2.03,2.63,6.59/


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