c
c=======================================================================
c  Include file "workspb.h"
c=======================================================================
c
#ifndef rmdocinc
c  CFN    relaxation coefficient to the north of point (i,j).
c  CFS    relaxation coefficient to the south of point (i,j).
c  CFE    relaxation coefficient to the east  of point (i,j).
c  CFW    relaxation coefficient to the west  of point (i,j).
c  CPF    relaxation coefficient for point (i,j).
c  PTD    time rate of change of transport stream function.
c  RES    relaxation residual.
# ifndef sor5pt
c  ASUM   auxiliary array to store summation.
c  FDIR   auxiliary array to store the sequence of directions.
c  GDIR   auxiliary array to store the evaluation of the gradient.
c  HDIR   auxiliary array to store the sequence of directions.
# endif
c
c=======================================================================
c
#endif
      common /workspb/ cfn,cfs,cfe,cfw,ptd,res,cpf
#ifndef sor5pt
     *       ,gdir,hdir,fdir,asum
#endif
      FLOAT 
     *      cfn(imt,jmt),cfs(imt,jmt),cfe(imt,jmt),cfw(imt,jmt),
     *      ptd(imt,jmt),res(imt,jmt),cpf(imt)
#ifndef sor5pt
     *      ,asum(jmt),fdir(imt,jmt),gdir(imt,jmt),hdir(imt,jmt)
#endif