c------------------------------------------------------------------------------
c     COMMON BLOCKS FOR fcont.f
c------------------------------------------------------------------------------

      IMPLICIT NONE

      INTEGER tmax,wmax
c      PARAMETER (tmax=257)
      PARAMETER (tmax=513)
      PARAMETER (wmax=601)

      INTEGER nt
      INTEGER nw
      INTEGER seed
      REAL*8    beta
      REAL*8    t(tmax)
      REAL*8    w(-wmax:wmax)
      REAL*8    axt(tmax)
      REAL*8    sxt(tmax)
      REAL*8    txt(tmax)
      REAL*8    ker(-wmax:wmax,tmax)
      REAL*8    f0(-wmax:wmax)
      REAL*8    f1(-wmax:wmax)
      REAL*8    f2(-wmax:wmax)
      REAL*8    sigma
      COMMON/TWBLOCK/beta,t,w,axt,sxt,txt,ker,f0,f1,f2,nt,nw,seed,sigma

c------------------------------------------------------------------------------