C gcoef.inc
      parameter (NGPTS=4)
#ifdef STATIC
      common /scrach/ ! To minimize memory requirements on the CRAY.
#else
      common /gcoeff/
#endif
     $	 e(ngpts,ngpts,4,3),eeta(ngpts,ngpts,4,3),
     $     echi(ngpts,ngpts,4,3),wtij(ngpts,ngpts),
     $     cjwt(4,4),cpwt(4,4,4),chwt(4,4,4),
     $     gxx(njp1,nk2p3),gyy(njp1,nk2p3),gxy(njp1,nk2p3),
     $     gh(njp1,nk2p3),gj(njp1,nk2p3)