C     ****
C     ****     Common block used in solution of PDE for helium upper
C     ****     boundary condition
C     ****
      integer :: ihe
      common/helium_int/ ihe
      real :: wt,alfa,beta,fold,psht
      common/helium_real/ wt,alfa(zimxp1,zjmxp1),beta(zimxp1,zjmxp1),
     |  fold(zimxp1,zjmxp1),psht(zimxp1,zjmxp1)