HBTAN/led_bldata.F

   1
   2       SUBROUTINE led_bldata
   3 c--mlv      BLOCK DATA
   4       IMPLICIT REAL*8 (A-H,O-Z)
   5       COMMON/FSI_AAPI/AAPI(20,2)/FSI_AAND/AAND(20,4)
   6       COMMON/FSI_AADD/AADD(20,3)/FSI_AAPIN/AAPIN(20,2)
   7       COMMON/FSI_AAKK/AAKK(9)
   8
   9 C---Parameters for GPIPI (I,J), J=1(2) corresp. to isospin=0(2)
  10       DATA AAPI/.2600D00, .2500D00, .3480D00,-.0637D00, 16*0.D0,
  11      1         -.0280D00,-.0820D00, .2795D00,-.0086D00, 16*0.D0/
  12 C---Parameters for GPIN (I,J), J=1(2) corresp. to piN isospin=1/2(3/2)
  13       DATA AAPIN/ .12265D1, .1563D2,     18*0.D0,
  14      1            -.750D0,  .7688D2,     18*0.D0/
  15 C---Parameters for GND (I,J), J=1(2) corresp. to nd(pd), S=1/2,
  16 C---                          J=3(4) corresp. to nd(pd), S=3/2
  17       DATA AAND/-.3295D1,-.8819D3, .4537D4, .28645D5, 16*0.D0,
  18      1          -.13837D2, .11505D2, .0D0, .10416D2,  16*0.D0,
  19      2          -.32180D2, .1014D2,  .0D0, .0D0,      16*0.D0,
  20      3          -.60213D2, .1333D2,  .0D0,-.70309D2,  16*0.D0/
  21       DATA AADD/ .10617D4, .3194D-2, .56849D3, 17*0.D0,
  22      1           20*0.D0,
  23      2          -.1085D4, .1987D5, 18*0.D0/
  24 C--- AAKK= m_K^2, m_pi^2, m_eta^2, m_S*^2, m_delta^2,
  25 C---       gam(S*-->KK-b), gam(S*-->pipi), gam(delta-->KK-b),
  26 C---       gam(delta-->pi eta)
  27       DATA AAKK/.247677D00,.01947977D00,.2997015D00,.9604D00,
  28      1          .96511D00,
  29 cc     2          .792D00, .199D00, .333D00, .222D00/ ! Martin (77)
  30      2          .094D00, .110D00, .333D00, .222D00/ ! Morgan (93)
  31
  32 c-       write(*,*)'aand',(aand(i,1),i=1,20)
  33
  34       END