Sources Esope | Cast3M

manuce
C MANUCE    SOURCE    OF166741  23/06/30    21:15:05     11696          
 
      SUBROUTINE MANUCE
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
*>2021
-INC PPARAM
-INC CCOPTIO
 
      WRITE(IOIMP,*) 'SUBROUTINE MANUCE NO LONGER USED'
      CALL ERREUR(5)
 
      RETURN
      END