subroutine hijing
      end

      subroutine hijset
      end

      subroutine profile
      end

      subroutine rluget_hijing
      end

      subroutine rluset_hijing
      end

      subroutine hijjet1
      end

      subroutine hijjet2
      end

      subroutine histrng
      end

      subroutine himain
      end

      subroutine himain1
      end

      subroutine himain2
      end

      subroutine hiparnt
      end