Télécharger la plaquette Cast3M


fr en

Télécharger nuharm.eso

Retour à la liste

Numérotation des lignes : 

nuharm

  1. C NUHARM    SOURCE    CB215821  20/11/25    13:35:21     10792          
  2.       SUBROUTINE NUHARM(ICHPOI,IFO,IHARM)
  3. C--------------------------------------------------------------------
  4. C POUR UN CHPOINT AVEC IFOPOI=1 :
  5. C   SI TOUS LES NOHARM SONT EGAUX RENVOIE :IFO=1   IHARM=NOHARM
  6. C   SINON                                 :IFO=3   IHARM=0
  7. C--------------------------------------------------------------------
  8.       IMPLICIT INTEGER(I-N)
  9. -INC SMCHPOI
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13.       MCHPOI=ICHPOI
  14.       IFO=1
  15.       MSOUPO=IPCHP(1)
  16.       SEGACT MSOUPO
  17.       IHARM=NOHARM(1)
  18.       DO 1 I=1,IPCHP(/1)
  19.       MSOUPO=IPCHP(I)
  20.       SEGACT MSOUPO
  21.       NC=NOHARM(/1)
  22.       DO 2 IC=1,NC
  23.       IF(IHARM.EQ.NOHARM(IC)) GOTO 2
  24.       SEGDES MSOUPO
  25.       IHARM=0
  26.       IFO=3
  27.       GOTO 3
  28.    2  CONTINUE
  29.       SEGDES MSOUPO
  30.    1  CONTINUE
  31.    3  CONTINUE
  32.       RETURN
  33.       END
  34.  
  35.  
  36.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales