/usr/share/mocassin/dustData/makeNuRyd.f90 is in mocassin-data 2.02.72-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | program makenuryd
implicit none
integer :: ios, i
real :: lambda,c=2.9979250e10,ryd=3.28984e15, nu(105)
open(file='dustysed.dat', unit=10, iostat=ios, status = 'old')
open(file='nuRyd.dat', unit=11, iostat=ios, status = 'unknown')
do i = 1, 4
read(10, *)
end do
do i = 1, 102
read(10, *) lambda
nu(i) = c/(lambda*1.e-4*ryd)
end do
do i = 102, 1, -1
write(11, *) nu(i)
end do
close(10)
close(11)
end program makenuryd
|