subroutine hijing common /histrng/a common /himain1/b common /hiparnt/c common /himain2/d common /hijjet1/e common /hijjet2/f end subroutine hijset end subroutine profile end subroutine rluget_hijing end subroutine rluset_hijing end subroutine himain end