Fortran code to generate artificial QSO spectra

Working, with double precision variables
Blurring not working