c  declaration of global variables
        integer  nx,ntex
        real     pi
	parameter  (pi = 3.141592654, nx = 183, ntex = 403)
c   program (main)
      integer  ntmax,nout,method,nt,cordt
      real     tmax,dt,time,alpha,s,f0,tinit,u,c,delta,que,rcell,star
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
      integer  parbound
      real     fb(2)
c   supplementary fields
      integer  nterm
      real     s0,s1,s2,s3,a0,a1,a2,a3,
     +         fexact(nx),cf(ntex),kf(ntex),xr(nx),rms
c ------------ : ------------
      common / progr    /  ntmax,nout,method,nt,cordt,tmax,dt,time,
     +                     alpha,s,f0,tinit,u,c,delta,que,rcell,star
      common / gridp    /  xmin,xmax,x,dx,xsize
      common / fields   /  f,fold,foold
      common / initc    /  init,lambda,kwave
      common / boundc   /  parbound,fb
      common / supplem  /  s0,s1,s2,s3,a0,a1,a2,a3,
     +                     nterm,fexact,cf,kf,xr,rms