Télécharger la plaquette Cast3M


fr en

Télécharger pilep1.eso

Retour à la liste

Numérotation des lignes : 

pilep1

  1. C PILEP1    SOURCE    CB215821  20/11/04    21:19:32     10766          
  2.       SUBROUTINE PILEP1 (IPCHA2,IPCHA,XX,CRIT)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC SMCHAML
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. *
  10.       MCHAML=IPCHA
  11.       MCHAM2=IPCHA2
  12. *
  13. *     ON CHERCHE LES NOM DE COMPOSANTES EN COMMUN DANS LES
  14. *     2 CHAMELEMS
  15. *
  16.       DO 1 ICOMP=1,IELVAL(/1)
  17.          CALL PLACE (MCHAM2.NOMCHE,MCHAM2.NOMCHE(/2),IPLAC,
  18.      &               NOMCHE(ICOMP))
  19.          IF (IPLAC.NE.0) THEN
  20.             IPMEL1=IELVAL(ICOMP)
  21.             IPMEL2=MCHAM2.IELVAL(IPLAC)
  22.             ICOD=0
  23.             IF (TYPCHE(ICOMP).EQ.'POINTEURLISTREEL') ICOD=1
  24.             IF (TYPCHE(ICOMP).EQ.'POINTEURPOINT   ') ICOD=2
  25.             IF ( ICOD.NE.0) THEN
  26.                   CALL ERREUR(19)
  27.                   RETURN
  28.             ENDIF
  29.             CALL PILEP2(IPMEL1,IPMEL2,XX,IRETOU,CRIT)
  30.             IF (IRETOU.NE.0) THEN
  31.                IF (IRETOU.EQ.197) MOTERR(1:4)=NOMCHE(ICOMP)
  32.                CALL ERREUR (IRETOU)
  33.                RETURN
  34.             ENDIF
  35.          ELSE
  36.             CALL ERREUR(19)
  37.             RETURN
  38.          ENDIF
  39.  1    CONTINUE
  40. *
  41.  9990 CONTINUE
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  
  48.  

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