/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/ideal_gas_kernel.f90: 50 - 56
--------------------------------------------------------------------------------

50:         v=1.0_8/density(j,k)
51:         pressure(j,k)=(1.4_8-1.0_8)*density(j,k)*energy(j,k)
52:         pressurebyenergy=(1.4_8-1.0_8)*density(j,k)
53:         pressurebyvolume=-density(j,k)*pressure(j,k)
54:         sound_speed_squared=v*v*(pressure(j,k)*pressurebyenergy-pressurebyvolume)
55:         soundspeed(j,k)=SQRT(sound_speed_squared)
56:       ENDDO
