C PUCHEL SOURCE CB215821 20/11/04 21:20:43 10766 SUBROUTINE PUCHEL(IPCHE1,IPU,IPCHPU,IRET) *_______________________________________________________________________ *CB215821 : Plus valide ==> Utiliser OPOBJE (OPCHE1 a la place) *_______________________________________________________________________ * IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC PPARAM -INC CCOPTIO CALL ERREUR(5) RETURN END