COMMON /QTPINT/ QTPI, QTPC, QTPS, QTPD, QTPCC, QTPCS, QTPCD,
     1                QTPSS, QTPSD, QTPDD, QTPEE, QTPET, QTPTT