Fortran code to generate artificial QSO spectra

Working with double precision variables
Blurring still not working