QTPTIRcorr