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