FORTRAN QC code