Fortran code to generate artificial QSO spectra

Working with double precision variables
Blurring not working