Sources Esope | Cast3M

qsijs2
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