c  declaration of global variables
        integer  nx
        real     pi
	parameter  (pi = 3.1415927, nx = 21)
c   program (main)
      integer  ntmax,nout
      real     tmax,dt,time,alpha,s,d,f0,tinit
c   grid parameters
      real     xmin,xmax,x(nx),dx
c   fields
      real     f(nx),fold(nx),foold(nx)
c   initial conditions
      real     fini
c   boundary conditions
      real     fb0(2), fb1(2)
c   supplementary fields
      integer  nterm
      real     fexact(nx)
c ------------ : ------------
      common / progr    /  ntmax,nout,tmax,dt,time,alpha,s,d,f0,nt,tinit
      common / gridp    /  xmin,xmax,x,dx
      common / fields   /  f,fold,foold
      common / initc    /  fini
      common / boundc   /  fb0,fb1
      common / supplem  /  nterm,fexact