subroutine setprob

    implicit none

    real(kind=8) :: gamma
    common /cparam/  gamma

    gamma = 1.4d0

end subroutine setprob