c  declaration of global variables
        integer  nx,ntex
        real     pi
	parameter  (pi = 3.141592654, nx = 43, ntex = 43)
c   program (main)
      integer  ntmax,nout,method,nt
      real     tmax,dt,time,alpha,s,f0,tinit,u,c
c   grid parameters
      real     xmin,xmax,x(nx),dx,xsize
c   fields
      real     f(nx),fold(nx),foold(nx)
c   initial conditions
      integer  init
      real     lambda,kwave
c   boundary conditions
      real     fb0(2), fb1(2)
c   supplementary fields
      integer  nterm
      real     fexact(nx),s0,s1,s2,s3,cf(ntex),kf(ntex),xr(nx),rms
c ------------ : ------------
      common / progr    /  ntmax,nout,method,nt,tmax,dt,time,
     +                     alpha,s,f0,tinit,u,c
      common / gridp    /  xmin,xmax,x,dx,xsize
      common / fields   /  f,fold,foold
      common / initc    /  init,lambda,kwave
      common / boundc   /  fb0,fb1
      common / supplem  /  nterm,fexact,s0,s1,s2,s3,cf,kf,xr,rms