Télécharger rayn1.eso

Retour à la liste

Numérotation des lignes :

  1. C RAYN1 SOURCE CHAT 12/06/07 21:15:59 7389
  2. SUBROUTINE RAYN1(MMODEL,MCHELM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5.  
  6. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  7. C
  8. C But : Verification que les supports d'un MMODEL et d'un
  9. C MCHAML coincident
  10. C
  11. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  12.  
  13. -INC CCOPTIO
  14. -INC SMCHAML
  15. -INC SMMODEL
  16.  
  17. SEGACT, MMODEL, MCHELM
  18.  
  19. N1 = KMODEL(/1)
  20. N2 = IMACHE(/1)
  21. IF(N1.NE.N2) CALL ERREUR(21)
  22.  
  23. DO 1000 I=1,N1
  24. IMODEL = KMODEL(I)
  25. SEGACT,IMODEL
  26. IPT1 = IMAMOD
  27. L=0
  28. DO 2000 J=1,N1
  29. IPT2 = IMACHE(J)
  30. IF (IPT2.EQ.IPT1) THEN
  31. L=1
  32. GOTO 2000
  33. ENDIF
  34. 2000 CONTINUE
  35. IF(L.EQ.0) THEN
  36. CALL ERREUR(103)
  37. RETURN
  38. ENDIF
  39. SEGDES,IMODEL
  40. 1000 CONTINUE
  41.  
  42. IF(L.EQ.0) THEN
  43. CALL ERREUR(103)
  44. RETURN
  45. ENDIF
  46.  
  47. RETURN
  48. END
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  

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