Télécharger pilep1.eso

Retour à la liste

Numérotation des lignes :

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

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