/home/eoseret/qaas_runs_CPU_9468/171-152-3172/intel/CloverLeafFC/build/CloverLeafFC/CloverLeaf_ref/kernels/ideal_gas_kernel.f90: 45 - 55
--------------------------------------------------------------------------------

45:     !$OMP PARALLEL
46:     !$OMP DO PRIVATE(v,pressurebyenergy,pressurebyvolume,sound_speed_squared)
47:     DO k=y_min,y_max
48:     !$OMP SIMD
49:       DO j=x_min,x_max
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)
