c boundx.inc
      integer ntable
!     ntable must match the value in swind.h
      parameter (ntable=40000)
      real Njp,Vjx,Vjy,Vjz,UT,Cs,BjX,BjY,BjZ,BjT,Vsw,deltaT
      integer index_now
      logical*1 table, SM, SWFROMFILE
           integer      MJIN,MJINP1,mjinp2,MJWALL,MJWP1,mjwp2,
     $        itable
           real     tzero,vfx,vfy,vfz,zangle,
     $     rho_0,vx_0,vy_0,vz_0,c_0,bx_0,by_0,bz_0,
     $     rho_1,vx_1,vy_1,vz_1,c_1,bx_1,by_1,bz_1,
     $     tilt_angle,ut0,by_coef,bz_coef,bx_zero
      COMMON /WIND/
     $     MJIN,MJINP1,mjinp2,MJWALL,MJWP1,mjwp2,
     $     tzero,vfx,vfy,vfz,
     $     rho_0,vx_0,vy_0,vz_0,c_0,bx_0,by_0,bz_0,
     $     rho_1,vx_1,vy_1,vz_1,c_1,bx_1,by_1,bz_1,
     $	   tilt_angle,
     $	   itable,index_now,deltaT,ut0,
     $	   Njp(ntable), Vjx(ntable),Vjy(ntable),Vjz(ntable),
     +     UT(ntable),Cs(ntable),BjX(ntable),BjY(ntable),
     +     BjZ(ntable),BjT(ntable),Zangle(ntable),
     $     by_coef,bz_coef,bx_zero,table,SM,SWFROMFILE
c
c	mjin = the number of inflowing j-faces.
c       mjinp1 = the j-value of the front corner?
c	mjwall = the j-value of the rear corner