setprob.f90.html CLAWPACK  
 Source file:   setprob.f90
 Directory:   /Users/rjl/clawpack_src/clawpack_master/amrclaw/examples/euler_1d_wcblast
 Converted:   Mon Feb 19 2024 at 17:59:05   using clawcode2html
 This documentation file will not reflect any later changes in the source file.

 
subroutine setprob

    implicit none

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

    ! ratio of specific heats, needed in Riemann solver:
    gamma = 1.4d0

end subroutine setprob