C                                           *--> FROM COMMON.XQIN26
      COMMON/XQIN26/LPTQI,LPTQIM,LOBSIN
C