C NUHARM SOURCE CB215821 20/11/25 13:35:21 10792 SUBROUTINE NUHARM(ICHPOI,IFO,IHARM) C-------------------------------------------------------------------- C POUR UN CHPOINT AVEC IFOPOI=1 : C SI TOUS LES NOHARM SONT EGAUX RENVOIE :IFO=1 IHARM=NOHARM C SINON :IFO=3 IHARM=0 C-------------------------------------------------------------------- IMPLICIT INTEGER(I-N) -INC SMCHPOI -INC PPARAM -INC CCOPTIO MCHPOI=ICHPOI IFO=1 MSOUPO=IPCHP(1) SEGACT MSOUPO IHARM=NOHARM(1) DO 1 I=1,IPCHP(/1) MSOUPO=IPCHP(I) SEGACT MSOUPO NC=NOHARM(/1) DO 2 IC=1,NC IF(IHARM.EQ.NOHARM(IC)) GOTO 2 SEGDES MSOUPO IHARM=0 IFO=3 GOTO 3 2 CONTINUE SEGDES MSOUPO 1 CONTINUE 3 CONTINUE RETURN END