/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4073/intel/CloverLeaf1.3-FC/build/aocc/CMakeFiles/clover_leaf.dir/CloverLeaf_ref/kernels/ideal_gas_kernel.f90-pp.f90: 50 - 56
--------------------------------------------------------------------------------

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