C QSIJS2    SOURCE    OF166741  25/07/28    21:15:10     12336          

      SUBROUTINE QSIJS2

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC PPARAM
-INC CCOPTIO

      write(ioimp,*) 'SOUSPROGRAMME QSIJS2 N EST PLUS UTLISE'
      write(ioimp,*) 'SUBROUTINE    QSIJS2 NO MORE USED'
      call erreur(5)

c      return
      END