subroutine amplonumer(amp)
      implicit none
      include 'constants.f'
      double complex amp(3,2,2,2,2)
      amp(1,2,2,2,2)=
     & + 12618771520986347d0/21822156628165d0
     & - 11092695284745761d0/21822156628165d0*im
      amp(1,1,1,2,2)=
     & - 3264288934742897417559d0/17715248572900975165d0
     & - 435088026732024661529d0/3543049714580195033d0*im
      amp(1,1,2,1,2)=
     & - 1370264214d0/26881165d0
     & - 97312640d0/5376233d0*im
      amp(1,1,2,2,2)=
     & - 1892123283187172788443090d0/16364303141407230480677d0
     & + 372907569759498865644745607d0/654572125656289219227080d0*im
      amp(1,1,1,1,2)=
     & + 557316427894353929295783568d0/49726517903897927585527335d0
     & - 9418892072194906502811319261d0/745897768558468913782910025d0*im
      return
      end