../src/main/random.f90 get_random = real ( z ) / 2147483563.0D+00 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/kernel_cubic.f90 real, parameter, public :: cnormk = 1./pi 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/kernel_cubic.f90 real, parameter, public :: cnormk_drag = 10./(9.*pi) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/part.F90 rhoi = pmassi*(hfact*hi1)**3 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/linklist_kdtree.F90 do i = 2,2**(refinelevels+1)-1 ^ Warning: iteration 2147483645 invokes undefined behavior [-Waggressive-loop-optimizations] ../src/main/linklist_kdtree.F90 containing loop ../src/main/utils_dumpfiles.f90 rdef = default 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/centreofmass.f90 xcom = (/xpos,ypos,zpos/) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/centreofmass.f90 vcom = (/vxpos,vypos,vzpos/) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/centreofmass.f90 xcom = xcom*dm 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/centreofmass.f90 vcom = vcom*dm 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/centreofmass.f90 if (present(mass)) mass = totmass 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 real :: mesa_eos_z1=0.d0, mesa_eos_h1=0.d0, mesa_eos_dz=0.02d0, mesa_eos_dh=0.2d0 !lowest Z, lowest H, delta Z, delta H in EOS tables 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 real, parameter :: arad=7.5657d-15 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 yy(j)=(1.d0-tt)*y1+tt*y2+tt*(1.d0-tt)*(as*(1.d0-tt)+bs*tt) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 z=(1.d0-tt)*y1+tt*y2+tt*(1.d0-tt)*(as*(1.d0-tt)+bs*tt) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 logv = 20.d0 + log10(rho) - 0.7d0 * loge 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 if (ivout < 5) vout=10.d0**vout 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 vout = 10.d0**((1.d0-de) * (1.d0-dv) * mesa_de_data(ne,nv,ivout) + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 mesa_de_data(l,k,m)=(1.d0-dx)*(1.d0-dz)*mesa_de_data0(nz1,nx1,l,k,m)+dz*(1.d0-dx)*mesa_de_data0(nz2,nx1,l,k,m) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 logr = logrho + 18.d0 - 3.d0 * logt 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 dnr = 1.d0 + ((logr - mesa_opacs_rs(1)) / mesa_opacs_dr) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 dnt = 1.d0 + ((logt - mesa_opacs_ts(1)) / mesa_opacs_dt) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 opac_k = dr * (dt * mesa_opacs_k(nr+1,nt+1) + (1.d0-dt) * mesa_opacs_k(nr+1,nt)) + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 opac_kt = dr * (dt * mesa_opacs_kt(nr+1,nt+1) + (1.d0-dt) * mesa_opacs_kt(nr+1,nt)) + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 opac_kd = dr * (dt * mesa_opacs_kd(nr+1,nt+1) + (1.d0-dt) * mesa_opacs_kd(nr+1,nt)) + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 kap = 10.d0**opac_k 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 mesa_opacs_k(i,k) = dz * dx * kappas(nz2,nx2,i,k) + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 mesa_opacs_kt(i,k)= (mesa_opacs_k(i,k+1) - mesa_opacs_k(i,k-1)) / & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 mesa_opacs_kt(i,1) = mesa_opacs_kt(i,3) + (mesa_opacs_ts(1) - mesa_opacs_ts(3)) * & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa_microphysics.F90 mesa_opacs_kt(i,mesa_opacs_nt+1-1) = mesa_opacs_kt(i,mesa_opacs_nt+1-3) + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_mesa.f90 mesa_eos_dz=0.02d0 ! delta Z 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_mesa.f90 mesa_eos_dh=0.2d0 ! delta H in EOS tables 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: sioncon = (2.0 * pi * atomic_mass_unit * kboltz)/(planckh * planckh) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: kergavo = kboltz * avogadro 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: asol = steboltz*4.0/c 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: light2 = c * c 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: esqu = qe * qe 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: sioncon = (2.0 * pi * atomic_mass_unit * kboltz)/(planckh * planckh) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: asol = steboltz*4.0/c 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: light2 = c * c 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 real, parameter :: esqu = qe * qe 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 kt = kboltz * temp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 xni = avogadro * ytot1 * den 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 dpiondt = xni * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 z = forth * pi 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 plasgdt = -plasg*ktinv * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 y = avogadro * ytot1 * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 y = avogadro*ytot1*kt*(a1 + 0.25/plasg*(b1*x - c1/x)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 kt = kboltz * temp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 xni = avogadro * ytot1 * den 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 dxnidd = avogadro * ytot1 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 dpiondt = xni * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 x = abar*abar*sqrt(abar) * deni/avogadro 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 z = forth * pi 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 plasgdt = -plasg*ktinv * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 y = avogadro * ytot1 * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 y = avogadro*ytot1*kt*(a1 + 0.25/plasg*(b1*x - c1/x)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 scoul = -avogadro/abar*kboltz*(c2*x - a2*(b2-1.0)/b2*y) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 sound = c * sqrt(gam1/z) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 cgsrhoi = rhoi * unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 eni = cgseni_eos / unit_ergg 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 cgseni = eni * unit_ergg 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 ponrhoi = cgspresi / (unit_pressure * rhoi) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 spsoundi = cgsspsoundi / unit_velocity 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 eos_helmholtz_get_maxrho = rhomaxcgs / unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos_helmholtz.f90 eos_helmholtz_get_minrho = rhomincgs / unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 real, public :: rhocrit0pwpcgs = 2.62780d12 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos.F90 real, public :: rhocrit1pwpcgs = 5.01187d14 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos.F90 real, public :: rhocrit2pwpcgs = 1.0d15 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos.F90 real, public :: p1pwpcgs = 2.46604d34 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/eos.F90 rho = 10**(logrhomin +(i-1)*drho)/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 cgsrhoi = rhoi * unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 cgseni = eni * unit_ergg 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 pgas = cgspgas / unit_pressure 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 temperature_coef = mass_proton_cgs/kboltz * unit_velocity**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 rhocrit0 = rhocrit0cgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 rhocrit1 = rhocrit1cgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 rhocrit2 = rhocrit2cgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 rhocrit3 = rhocrit3cgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 rhocrit0pwp = rhocrit0pwpcgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 rhocrit1pwp = rhocrit1pwpcgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 rhocrit2pwp = rhocrit2pwpcgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/eos.F90 p1pwp = p1pwpcgs/unit_pressure 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 xir = xi*cos(ti*phir)-yi*sin(ti*phir) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 yir = xi*sin(ti*phir)+yi*cos(ti*phir) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 pot = newpot3D(zindex,xindex,yindex) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxr = (pot - newpot3D(zindex,xindex+1,yindex))/dxpot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyr = (pot - newpot3D(zindex,xindex,yindex+1))/dypot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzr = (pot - newpot3D(zindex+1,xindex,yindex))/dzpot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fxi= + (fextxr*cos(-ti*phir)-fextyr*sin(-ti*phir)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fyi= + (fextxr*sin(-ti*phir)+fextyr*cos(-ti*phir)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi - pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + potent1 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 potout = potout + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + potent1 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 phi = phi + pot 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextxi = fextxi + fxi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextyi = fextyi + fyi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_spiral.f90 fextzi = fextzi + fzi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_lensethirring.f90 blackhole_spin_angle = blackhole_spin_angle*(pi/180.0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_lensethirring.f90 blackhole_spin_angle = blackhole_spin_angle*(180.0/pi) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_lensethirring.f90 blackhole_spin_angle = blackhole_spin_angle*(pi/180.0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_lensethirring.f90 ccode = c/(udist/utime) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_lensethirring.f90 gcode = gg*umass*utime**2/udist**3 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_gnewton.F90 ccode = c/(udist/utime) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_gnewton.F90 ccode = c/(udist/utime) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_gnewton.F90 ccode = c/(udist/utime) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 real :: thetamin = 0.0, thetamax = pi, rmin = 1.0, rmax = 1001.0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 real :: phimax = 2*pi, phimin=0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 Mdisc = 1.4d0*solarm/umass*5.e-16 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 p1 = p1 - twopi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 p2 = p2 + twopi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 p1 = p1 - twopi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 p2 = p2 + twopi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 phi = pi + atan2(y,x) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 kappa = calc_kappa( frac_X, 2. ) * (umass/(udist*udist)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 tau = 1.0-erf( abs(z) / (roottwo*H) ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 tau = tau * rpiontwo * kappa * calc_sigma(r) * H 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 ggcode = gg / (udist**3/(utime**2*umass)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 LEdd = fourpi*Mstar/(calc_kappa( frac_X, 2. ) / ( udist*udist / umass )) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 ptime = time*utime 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 kappa = calc_kappa( frac_X, 2. ) * (umass/(udist*udist)) !kappa in code units 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 phmingrid(phbin) = phbin * twopi/nph 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 phi = pi + atan2( y, x ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/lumin_nsdisc.F90 phi = pi + atan2( y, x ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_prdrag.F90 ccode = c / (udist/utime) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_prdrag.F90 ccode = c / (udist/utime) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_prdrag.F90 gcode = gg / (udist**3/(utime**2*umass)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_prdrag.F90 gcode = gg / (udist**3/(utime**2*umass)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_neutronstar.f90 menc(:) = 4.0 * pi * menc(:) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_neutronstar.f90 totalmass = 4.0 * pi * totalmass 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_neutronstar.f90 menc(1) = 4.0/3.0*pi*r(1)**3 * rho(1) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_neutronstar.f90 menc(i) = menc(i-1) + 4.0/3.0*pi*(r(i)**3 - r(i-1)**3) * rho(i) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_neutronstar.f90 gcode = gg * umass * utime**2 / udist**3 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_staticsine.f90 xforce = xi*cos(inclination) - yi*sin(inclination) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_staticsine.f90 phi = amplitude*cos(wavek*(xforce+phase)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_staticsine.f90 fi = wavek*amplitude*sin(wavek*(xforce+phase)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_staticsine.f90 fxi = fi*cos(inclination) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_staticsine.f90 fyi = -fi*sin(inclination) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/extern_gwinspiral.f90 c_code = c/unit_velocity 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/externalforces.F90 gcode = gg*umass*utime**2/udist**3 !Needed to convert gg in codes natural units 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 grainsize(1) = grainsizecgs/udist 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 graindens(1) = graindenscgs/udens 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 kwok = 9.*pi/128.*dv2/(spsoundgas*spsoundgas) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 grainmass(:) = 4./3.*pi*graindens(:)*grainsize(:)**3 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 cste_mu = sqrt(2./(pi*gamma)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 coeff_gei_1 = sqrt(8./(pi*gamma)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 cste_seff = pi/sqrt(2.)*5./64. 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/dust.F90 mass_mol_gas = (2.*mass_proton_cgs)/umass 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/dust.F90 cross_section_gas = cross_section_H2_cgs/(udist*udist) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 dustprop(1,i) = grainsizecgs / udist 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 dustprop(2,i) = graindenscgs / unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 Vt = sqrt(sqrt(2.)*Ro*shearparam)*cs 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 vref = 100 / unit_velocity 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 vfrag = vfragSI * 100 / unit_velocity 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 vfragin = vfraginSI * 100 / unit_velocity 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 vfragout = vfragoutSI * 100 / unit_velocity 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 rsnow = rsnow * au / udist 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/growth.F90 grainsizemin = gsizemincgs / udist 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 a = ((m1 + m2)*(period/(2.*pi))**2)**(1./3.) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 mu = 2.*pi/period 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 period = sqrt(4.*pi**2*semimajoraxis**3/mtot) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 omega = arg_peri*pi/180. 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 big_omega = posang_ascnode*pi/180. + 0.5*pi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 inc = incl*pi/180. 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 theta = f*pi/180. 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_binary.f90 xangle = incl*pi/180. 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_flyby.f90 G = gg*umass*utime**2/(udist**3) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_flyby.f90 nu = pi - atan(abs(xi/yi)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_flyby.f90 incl = pi-incl*pi/180. 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_flyby.f90 big_omega = big_omega*pi/180. 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/utils_indtimesteps.F90 real, parameter :: dlog2 = 1.4426950408889634d0 ! dlog2 = 1./log(2.) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: a0_grain = 1.0d-5 ! grain radius for constant grain size [cm] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: an_grain = 5.0d-7 ! minimum grain radius for ~MRN distribution [cm] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: ax_grain = 2.5d-5 ! maximum grain radius for ~MRN distribution [cm] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, private,parameter :: fdg_min = 1.0d-14 ! the minimum dust to gas ratio permitted (> 0) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: zeta_cgs = 1.00d-17 ! ionisation rate [s^-1] (if zeta_of_rho=.false.) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: zeta_CR_cgs = 9.24d-18 ! unattenuated cosmic ray ionisation rate [s^-1] (if zeta_of_rho=.true.) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: zeta_R_cgs = 7.60d-19 ! ionisation rate of decaying radionuclides [s^-1] (if zeta_of_rho=.true.) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: alpha_Mg = 2.8d-12 ! Recombination coefficient for Mg 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: alpha_H = 3.5d-12 ! Recombination coefficient for atomic Hydrogen 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: alpha_He = 4.5d-12 ! Recombination coefficient for Helium 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: n_e_cnst = 1.0d19 ! Constant electron number density [cm^-3] if eta_const_type = icnstphys 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: rho_i_cnst = 3.8d-11 ! Density of ionised gas [g/cm^3] if eta_const_type = icnstphys 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, public :: rho_n_cnst = 3.8d-08 ! Density of neutral gas [g/cm^3] if eta_const_type = icnstphys 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: pi = 3.1415926536d0 ! pi 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: twopi = 6.2831853072d0 ! 2pi 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: fourpi = 12.5663706144d0 ! 4pi 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: c = 2.997924d10 ! Speed of light [cm/s] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: qe = 4.8032068d-10 ! charge on electron [esu == statC == (cm^3 g)^0.5 s^-1] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: mass_electron_cgs = 9.10938291d-28 ! Electron mass [g] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: eV = 1.60217657d-12 ! Electron volts [ergs] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: mass_proton_cgs = 1.67262158d-24 ! Proton mass [g] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: kboltz = 1.38066d-16 ! Boltzmann constant [erg/K] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: Ggrav = 6.67408d-8 ! Gravitational constant [cm^3 g^-1 s^-2] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: planckh = 6.6260755d-27 ! Planck's Constant [erg s] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 real, parameter :: Amrn = 1.5d-25 ! Constant for MRN grain distribution [cm^2.5] 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 Saha_coef_HH2 = ( pi*mass_proton*kboltz/planckh**2 * utime**2*unit_erg )**1.5 1 Warning: Arithmetic underflow at (1) [-Wunderflow] ../src/lib/NICIL/src/nicil.F90 Saha_coef = 2.0*gjp1_gj*(2.0*pi*massj(ine) *kboltz/planckh**2 * utime**2*unit_erg )**1.5 1 Warning: Arithmetic underflow at (1) [-Wunderflow] ../src/lib/NICIL/src/nicil.F90 vrms2_min = (vrms_min_kms*1.0d5*utime/udist)**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 vrms2_max = (vrms_max_kms*1.0d5*utime/udist)**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmaviRn(1,j) = 2.81d-9 * sqrt(pnH2 / mu_iXH2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmaviRn(2,j) = 2.81d-9 * sqrt(pnH / mu_iXH ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmaviRn(3,j) = 2.81d-9 * massfrac_Y * sqrt(pnHe / mu_iY ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmavenX_coef = 1.0d-9 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmavenY_coef = massfrac_Y * 0.428 * 1.0d-9 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmavenXH2_LR = 2.81d-9*sqrt(pnH2 / mu_eXH2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmavenXH_LR = 2.81d-9*sqrt(pnH / mu_eXH ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 sigmavenY_LR = massfrac_Y*2.81d-9*sqrt(pnHe / mu_eY ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/lib/NICIL/src/nicil.F90 nu_jn_coef(inisT:inidT) = 2.81d-9 /mass_proton_cgs * unit_density ! nu_inT 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/coolfunc.f90 temp = gam1*uu/Rg*gmw*unit_ergg 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/coolfunc.f90 amue = 2.*atomic_mass_unit/(1. + habund) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/coolfunc.f90 amuh = atomic_mass_unit/habund 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/coolfunc.f90 density_cgs = rho*unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/coolfunc.f90 dt_cgs = dt*utime 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/coolfunc.f90 dtemp = gam1*density_cgs*(atomic_mass_unit*gmw/(amue*amuh*kboltz))* & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/coolfunc.f90 durad = (temp1 - temp)*Rg/(gam1*gmw*unit_ergg) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/utils_spline.f90 Cc(i,nval+1) = 3d0 * (values(2) - values(1)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/utils_spline.f90 Cc(i,nval+1) = 3d0 * (values(nval) - values(nval-1)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/utils_spline.f90 Cc(i,nval+1) = 3d0 * (values(i+1) - values(i-1)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/utils_spline.f90 coefficients(3,i) = 3d0 * (values(i+1) - values(i)) - & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/utils_spline.f90 coefficients(4,i) = 2d0 * (values(i) - values(i+1)) + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 real, parameter :: abhe = 0.1d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 real, public :: abundc = 1.4d-4 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 real, public :: abundo = 3.2d-4 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 real, public :: abundsi = 1.5d-5 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 real, public :: abunde = 2.d-4 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 real, public :: AV_conversion_factor = 5.348d-22 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 real, public :: cosmic_ray_ion_rate = 1.d-17 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 real, parameter :: dtemp_1ev = kboltz / eV 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 tinv = 1d0 / temp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 k_ci = exp(-32.71396786d0 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tinvterm = (315614d0 * tinv) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 k_rec = 2.753d-14 * tinvterm*sqrt(tinvterm) / & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 phi = 1d20 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 AV = AV_conversion_factor * dust_to_gas_ratio * NH 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 G_dust = uv_field_strength * exp(-2.5d0 * AV) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 var1 = 5.087d2 * temp**1.586d-2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 var2 = - 0.4723d0 - 1.102d-5 * log(temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 k_gr = 1.225d-13 * dust_to_gas_ratio 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 var3 = 8.074d-6 * phi**1.378d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 var4 = (1d0 + var1 * phi**var2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 k_gr = 1.225d-13 * dust_to_gas_ratio / (1d0 + var3 * var4) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 dN_co = (N_co_eff - co_colntab(iN_co)) / 0.1d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 co_rot_L0 = 10d0**(-co_rot_L0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 co_rot_lte = 10d0**(-co_rot_lte) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 co_rot_n05 = 10d0**(co_rot_n05) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 opratio = 2.4d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 fortho = opratio / (1.d0 + opratio) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 fpara = 1.d0 / (1.d0 + opratio) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 temptab(itemp) = 1.D1**( (itemp - 1) * dtlog ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 temp2 = temp * 1d-2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tau = temp * 1d-3 + 1d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tinv = 1.d0 / temp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tinth = tinv**(1d0/3d0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tinq = tinv**0.25d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tintq = tinv**0.75d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tisqt = 1.d0 / tsqrt 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 h2e20 = 510.06d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 h2e31 = 844.94d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 h2n2 = 0.25d0 * 5d0 * exp(-h2e20 / temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 h2n3 = 0.75d0 * (7d0 / 3d0) * exp(-h2e31 / temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 2.94d-11 * h2e20 * h2n2 * kboltz + & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(1,itemp) = 1d1**(-18.253d0) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 h2q02 = 1d1**(-9.121d0 - (3.983d0 / tau) - (1.844d-1 / tau**2)) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 h2q13 = 1d1**(-9.493d0 - (4.435d0 / tau) + (2.707d-1 / tau**2)) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(2,itemp) = (fpara * h2q02 * h2e20 + fortho * h2q13 * h2e31) * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(2,itemp) = 1d1**(-21.943d0) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 h2q02 = 1d1**(-9.946d0 - (2.688d0 / tau) + (2.020d-1 / tau**2)) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 h2q13 = 1d1**(-9.785d0 - (3.024d0 / tau) + (2.930d-1 / tau**2)) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(3,itemp) = (fpara * h2q02 * h2e20 + fortho * h2q13 * h2e31) * kboltz 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(3,itemp) = 1d1**(-22.758d0) 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 gg = 1d0 - 0.8 * exp(-75d0 * tinv) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(14,itemp) = 3.8d-33 * tsqrt * gg * dust_to_gas_ratio 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(17,itemp) = 3.7e-2 * (temp / 1d4)**0.7d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tfintq = 1d0 / tfix**0.75d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(18, itemp) = (5d-11 / 3d0) * exp(4.581 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(18, itemp) = (5d-11 / 3d0) * exp(4.581 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(18, itemp) = 6.81d-11 * temp**0.376d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tfintq = 1d0 / tfix**0.75d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(19, itemp) = 5d-11 * exp(3.297 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(19, itemp) = 5d-11 * exp(3.297 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(19, itemp) = 6.34d-11 * temp**0.36d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(20, itemp) = 2.62d-12 * temp**0.74d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(20, itemp) = 3d-11 * exp(3.437 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(20,itemp) = 3.61d-10 * temp**0.158d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = fortho * 2.70d-11 * (temp**0.362) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = fpara * 3.46d-11 * (temp**0.316) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = fortho * 5.49d-11 * (temp**0.317) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = fpara * 7.07d-11 * (temp**0.268) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = fortho * 2.74d-14 * (temp**1.060) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = fpara * 3.33d-15 * (temp**1.360) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(24,itemp) = 5.12d-10 * (temp**(-0.075)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(25,itemp) = 4.863d-10 * (temp**(-0.026)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(26,itemp) = 1.082d-14 * (temp**(0.926)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(27,itemp) = 6.38d-11 * (temp**0.40) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(27,itemp) = 7.75d-12 * (temp**0.80) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(27,itemp) = 2.65d-10 * (temp**0.37) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(28,itemp) = 6.10d-13 * (temp**1.10) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(28,itemp) = 2.12d-12 * (temp**0.90) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(28,itemp) = 4.49d-10 * (temp**0.30) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(29,itemp) = 2.029d-11 * (temp**0.56) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(29,itemp) = 3.434d-10 * (temp**0.19) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tfinq = 1d0 / tfix**0.25d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(30, itemp) = (1d-11 / 3d0) * exp(3.6593 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(30, itemp) = (1d-11 / 3d0) * exp(3.6593 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(30, itemp) = 2.57d-11 * temp**0.31d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tfinth = 1d0 / tfix**(1d0/3d0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(31, itemp) = 2.0d-12 * exp(10.8377 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(31, itemp) = 2.0d-12 * exp(10.8377 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(31, itemp) = 1.69d-11 * temp**0.35d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 tfinq = 1d0 / tfix**0.25d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(32, itemp) = 6.0d-12 * exp(15.8996 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(32, itemp) = 6.0d-12 * exp(15.8996 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(32, itemp) = 6.0d-12 * exp(15.8996 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(32,itemp) = 4.95d-11 * temp**0.35 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (8.7d-11 - 6.6d-11 * exp(-temp / 218.3d0) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = (7.9d-11 - 8.7d-11 * exp(-temp / 126.4d0) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (1.2d-10 - 6.1d-11 * exp(-temp / 387.3d0)) * fortho 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = (1.1d-10 - 8.6d-11 * exp(-temp / 223.0d0) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (2.9d-10 - 1.9d-10 * exp(-temp / 348.9d0)) * fortho 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = (2.7d-10 - 2.6d-10 * exp(-temp / 250.7d0) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = -9.25141d0 - 0.773782d0 * tloge + 0.361184d0 * tloge**2 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 4.44600d2 - 2.27913d2 * tloge + 42.5952 * tloge**2 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = -0.990634367510893d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(36,itemp) = (1d0 / 3d0) * 8.629d-6 * exp(f) / sqrt(temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = -7.69735d0 - 1.30743d0 * tloge + 0.697638d0 * tloge**2 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 3.50609d2 - 1.87474d2 * tloge + 3.61803d1 * tloge**2 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = -1.40040241654697d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(37,itemp) = 0.2d0 * 8.629d-6 * exp(f) / sqrt(temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = -7.4387d0 - 0.57443d0 * tloge + 0.358264d0 * & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 3.86186d2 - 2.02192d2 * tloge + 3.85049d1 * tloge**2 & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 0.0198312027880547d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(38,itemp) = 0.2d0 * 8.629d-6 * exp(f) / sqrt(temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (9.6d-11 - 1.8d-14 * temp + 1.9d-18 * temp**2) * temp**0.45 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 8.873d-10 * temp**0.117 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 2.8268d-9 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (3.1d-12 - 6.0d-16 * temp + 3.9d-20 * temp**2) * temp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 2.314d-9 * temp**0.0965 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (1.0d-10 - 2.2d-14 * temp + 1.7d-18 * temp**2) * temp**0.70 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = 9.198d-9 * temp**0.0535 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(42,itemp) = 3.5d-10 * temp2**(-0.03) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(43,itemp) = 1.7d-11 * temp2**0.17 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(44,itemp) = 5.0d-10 * temp2**0.17 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(45,itemp) = 8d-10 * temp2**0.07d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(45,itemp) = 3.113619d-10 * temp2**0.385d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (4.7d-10 + 4.6d-13 * temp) * fortho 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = (2.5d-10 * temp**0.12) * fpara 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 f = (5.85d-10 * temp**0.07) * fortho 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 hh = (4.85d-10 * temp**0.07) * fpara 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(47,itemp) = 3.86d-7 / sqrt(temp2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(47,itemp) = 2.426206d-7 / temp2**0.345d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(48,itemp) = 2d0 * exp(-91.25d0 / temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(49,itemp) = 4.95d-10 * temp2**0.24 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(50,itemp) = 1.2d-6 / sqrt(temp2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(51, itemp) = 2d0 * exp(-412.24d0 / temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(53, itemp) = 0.74d0 / temp**0.068 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(54, itemp) = 4.65d-30 * phi_pah * temp**0.94d0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 h2_temp(i) = 1d1**(2d0 + 5d-2 * (I - 1)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(1,itemp) = 1d1**rate1(itemp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(2,itemp) = 1d1**rate2(itemp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(3,itemp) = 1d1**rate3(itemp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 co_temptab(i) = 4d0 + 1d0 * i 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 co_colntab(i) = 14.4d0 + 0.1d0 * i 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 coolatom_temp(i) = 10**(8d0 * (i-1) / 79d0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 atomic = 1d1**(rate0(itemp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 brem = 1.42d-27 * sqrt(temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 ca2_temp(i) = 10**(4.25d0 + 0.05d0 * i) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(6,itemp) = 1d1**(rate0(itemp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cltab(52,itemp) = 7.5d-19 * exp(-1.18348d5 / temp) / (1d0 + sqrt(temp / 1d5)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 dtemp = 1d0 / ( temptab(itemp + 1) - temptab(itemp) ) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 n0 = 1d0 - n1 - n2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 dv = 1d-5 * abs(divv) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 rates(4) = -3.2d-11 * (ynh2 + ynh) * cosmic_ray_ion_rate 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 NH_tot = 0.5d0 * dl * yn * (2d0 * abh2 + abhI + abhp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 fdust = exp(-2.5d0 * AV) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 PEvar1 = (1d0 + 4d-3 * PEvar0**0.73) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 PEvar2 = (1d0 + 2d-4 * PEvar0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 eps = (4.9d-2 / PEvar1) + (cl17 / PEvar2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 rates(5) = -1.3d-24 * eps * G_dust * yn * dust_to_gas_ratio 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxa = exp(-oxe10 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxb = exp(-oxe20 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxc = exp(-oxe21 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxc01 = 0.6d0 * oxc10 * oxa 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxc02 = 0.2d0 * oxc20 * oxb 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxc12 = (1d0 / 3d0) * oxc21 * oxc 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxR10 = oxc10 + oxa10 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxR20 = oxc20 + oxa20 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 oxR21 = oxc21 + oxa21 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 rates(7) = (oxa10 * oxe10 * oxn1 + (oxa20 * oxe20 + oxa21 * oxe21) * oxn2) * abo * yn 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIa = exp(-cIe10 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIb = exp(-cIe20 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIc = exp(-cIe21 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIc01 = 3d0 * cIc10 * cIa 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIc02 = 5d0 * cIc20 * cIb 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIc12 = (5d0 / 3d0) * cIc21 * cIc 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIR10 = cIc10 + cIa10 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIR20 = cIc20 + cIa20 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIR21 = cIc21 + cIa21 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 rates(8) = (cIa10 * cIe10 * cIn1 + (cIa20 * cIe20 + cIa21 * cIe21) * cIn2) * abcI * yn 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIc10 = cl42 * ynh + 7.2d-9 * ynhp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIc20 = cl43 * ynh + 7.2d-9 * ynhp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIc21 = cl44 * ynh + 2.2d-8 * ynhp 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIa = exp(-siIe10 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIb = exp(-siIe20 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIc = exp(-siIe21 / (kboltz * temp)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIc01 = 3d0 * siIc10 * siIa 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIc02 = 5d0 * siIc20 * siIb 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIc12 = (5d0 / 3d0) * siIc21 * siIc 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIR10 = siIc10 + siIa10 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIR20 = siIc20 + siIa20 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIR21 = siIc21 + siIa21 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 rates(9) = (siIa10 * siIe10 * siIn1 + (siIa20 * siIe20 + siIa21 * siIe21) * siIn2) * absiI * yn 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 cIIn1 = cIIc01 / (cIIc01 + cIIc10 + cIIa10) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 rates(10) = cIIa10 * cIIe10 * cIIn1 * abcII * yn 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 siIIn1 = siIIc01 / (siIIc10 + siIIa10 + siIIc01) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 rates(11) = siIIa10 * siIIe10 * siIIn1 * absiII * yn 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 sigma_h2 = 3.3d-16 * (temp / 1d3)**(-0.25d0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 v_e = 1.03d4 * sqrt(temp) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 neff = ynh2 + dsqrt(2d0) * (2.3d-15 / sigma_h2) * ynh & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 co_rot_inv = (1d0 / co_rot_L0) + (neff / co_rot_lte) + (1d0 / co_rot_L0) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2cooling.f90 low_T_adjust = dexp(-1d1 / temp) / dexp(-1d1 / 5d0) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 real, parameter :: k0=5.0d-16 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2chem.f90 real, parameter :: k1=5.0d-10 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2chem.f90 real, parameter :: phrates=1.56d-10 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2chem.f90 real, parameter :: Rconst=3.d-1 * 2.2d-18 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2chem.f90 real, parameter :: rate_diss0=4.17d-11 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2chem.f90 nh1 =np1*(1.d0-2.d0*h2ratio) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 cdens2 = cdensH2*2.0d-15 !this is the same as cdensH2/5.e14 - but multiply instead of divide 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 sqrtcdens2 = sqrt(1.d0+cdens2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 nH2=0.965d0/(1.d0+cdens2*third)**2 + 0.035d0*exp(-8.5d-4*sqrtcdens2)/sqrtcdens2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 dphot = udist*(0.0001*rhodisk)**(-1./3.) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 dphot =dphot0 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 dtclare=dt*utime 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 third = 1.d0/3.d0 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/main/h2chem.f90 gmwvar=(2.0d0*h2ratio+(1.d0-2.d0*h2ratio)+0.4d0)/ & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 tempiso = 2.d0/3.d0*ui/(Rg/gmwvar/uergg) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 np1=(rhoi*udens/mp)*5.d0/7.d0 ! n = (5/7)*(rho/mp), gamma=7/5? 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 dnp1 = 1.d0/np1 !Inverse for calculations 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 rate=-3.74d0*cdens*AV_conversion_factor !Should that 1.0 be 3.74? 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 phrates2 = phrates*exp(-2.5d0*AV_conversion_factor*cdens) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 gamma_chx = 5.0d0*phrates2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 if (dttest > 0.d0) th2=0.1d0*dttest/dtclare 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 tstep10 = 10.d0*tstep 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 abhpq = 1.0d0 - abHIq 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 abund(2) = (1.d0-2.d0*h2ratio)*abHIq ! HI 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 abund(3) = (1.d0-2.d0*h2ratio)*abhpq + abunde ! e- 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 abund(4) = (1.d0-2.d0*h2ratio)*abhpq ! p+ (HII) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 abund(2) = (1.d0-2.d0*h2ratio)*abHIq ! HI 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 abund(3) = (1.d0-2.d0*h2ratio)*abhpq + abunde ! e- 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 abund(4) = (1.d0-2.d0*h2ratio)*abhpq ! p+ (HII) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 gmwvar= (2.0d0*h2ratio+(1.d0-2.d0*h2ratio)+0.4d0)/ & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 tempiso = 2.d0/3.d0*ui/(Rg/gmwvar/uergg) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 np1 = (rhoi*udens/mp)*5.d0/7.d0 ! n = (5/7)*(rho/mp), gamma=7/5? 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 divv_cgs = divv / utime 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/h2chem.f90 dudti = dudti + (-1.d0*ylamq/(rhoi*udens))*utime**3/udist**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/cooling.f90 fac = unit_ergg/utime/umass*udist**3 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/cooling.f90 crate = cooling_rate_sd93(temp)/atomic_mass_unit**2/fac 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 masstab(:) = 2.*pi*masstab(:) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 masstab(:) = 4.*pi*masstab(:) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 get_mass_rcyl = 2.*pi*get_mass_rcyl 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 get_mass_r = 4.*pi*get_mass_r 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 rhozero = totmass/(4./3.*pi*(xmax**3 - xmin**3)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 rhozero = totmass/(pi*(xmax**2 - xmin**2)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 fracmassold = 4./3.*pi*rhozero*(xold**3 - xmin**3) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 fracmassold = pi*rhozero*(xold**2 - xmin**2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 dfunc = 4.*pi*xi**2*yinterp(rhotab,xtable(1:nt),xi) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 dfunc = 2.*pi*xi*yinterp(rhotab,xtable(1:nt),xi) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 dfunc = 4.*pi*xi**2*rhofunc(xi) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/stretchmap.f90 dfunc = 2.*pi*xi*rhofunc(xi) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,4) = stardata(1:n,4)/udist 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,6) = stardata(1:n,6)/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,3) = stardata(1:n,3)/umass 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,8) = stardata(1:n,8)/unit_pressure 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,9) = stardata(1:n,9)/unit_ergg 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,4) = stardata(1:n,4)/udist 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,5) = stardata(1:n,5)/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,1) = stardata(1:n,1)/umass 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,2) = stardata(1:n,2)/unit_pressure 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 stardata(1:n,6) = stardata(1:n,6)/unit_ergg 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 rhotab(i) = mass/(2.0*pi*radius*radius*rtab(i)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 menc = menc*fourpi 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 rhocrit0pwp = rhocrit0pwpcgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 rhocrit1pwp = rhocrit1pwpcgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 rhocrit2pwp = rhocrit2pwpcgs/unit_density 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 presscrit = p1pwpcgs/unit_pressure 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 drhodr = drhodr - fourpi*rhotab(i-1)**2*dr/dPdrho 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 drhodr = drhodr + dr*(drhodr**2/rhotab(i-1) & 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 Mstar_f = Mstar_f + fourpi*r(j)*r(j)*den(j)*dr 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 fac = (gamma*polyk)/(fourpi*(gamma - 1.)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 fac = (gamma*polyk)/(fourpi*(gamma - 1.)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/density_profiles.f90 density = 3.0*mass/(fourpi*radius**3) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_sphere.f90 vol_sphere = 4.0/3.0*pi*rmax**3 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 G = gg*umass*utime**2/(udist**3) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 dM = 2.*pi*R*sigma*dR 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 sig = sig*umass/udist**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 sig = sig*umass/udist**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 sig = sig*umass/udist**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 sig = sig*umass/udist**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 inc = asin(0.5*(1.+sin(pi/(2.*Hwarp)*(R-Rwarp)))*sin(incl)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 psi = pi*Rwarp/(4.*Hwarp)*sin(incl)/sqrt(1. - (0.5*sin(incl))**2) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 HHsqrt2 = sqrt(2.0d0)*HH 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 HHsqrt2dust = sqrt(2.0d0)*HHdust 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 z_min = -3.0d0*HHsqrt2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 z_max = 3.0d0*HHsqrt2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 fz_max = sigma/(HHsqrt2*sqrt(pi)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 if (do_mixture) fz_max = fz_max + sigmamixt/(HHsqrt2dust*sqrt(pi)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 f = sigma*exp(-(zi/(HHsqrt2))**2)/(HHsqrt2*sqrt(pi)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 fmixt = sigmamixt*exp(-(zi/(HHsqrt2dust))**2)/(HHsqrt2dust*sqrt(pi)) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 phi_max = 2.*pi 1 Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion] ../src/setup/set_disc.F90 G = gg*umass*utime**2/(udist**3) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 clight = c*utime/udist 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 particle_mass = disc_m / dble(npart_set) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 particle_mass = (disc_m+disc_mdust) / dble(npart_set) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_disc.F90 L_tot_mag = sqrt(dot_product(L_tot,L_tot))*umass*udist**2/utime 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/setup_blob.f90 totvol = dxbound*dybound*dzbound - 4./3.*pi*rcloud**3 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_Bfield.f90 rmasstoflux_crit = 2./3.*c1*sqrt(5./pi) 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_Bfield.f90 area = pi*rmax**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_Bfield.f90 Bzero = Bzero/unit_Bfield 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/setup/set_Bfield.f90 area = pi*rmax**2 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion] ../src/main/damping.f90 tdyn_star = tdyn_s / utime 1 Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]