Télécharger la plaquette Cast3M


fr en

Télécharger rayn1.eso

Retour à la liste

Numérotation des lignes : 

rayn1

  1. C RAYN1     SOURCE    CB215821  25/05/21    21:15:03     12273          
  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.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMCHAML
  17. -INC SMMODEL
  18.  
  19. C      SEGACT, MMODEL, MCHELM
  20.  
  21.       N1 = KMODEL(/1)
  22.       N2 = IMACHE(/1)
  23.       IF(N1.NE.N2) THEN
  24.         CALL ERREUR(21)
  25.         RETURN
  26.       ENDIF
  27.  
  28.       DO 1000 I=1,N1
  29.          IMODEL = KMODEL(I)
  30. C         SEGACT,IMODEL
  31.          IPT1 = IMAMOD
  32.            L=0
  33.            DO 2000 J=1,N1
  34.               IPT2 = IMACHE(J)
  35.               IF (IPT2.EQ.IPT1) THEN
  36.                L=1
  37.                GOTO 2000
  38.               ENDIF
  39.  2000      CONTINUE
  40.       IF(L.EQ.0) THEN
  41.          CALL ERREUR(103)
  42.          RETURN
  43.       ENDIF
  44.  1000 CONTINUE
  45.  
  46.       IF(L.EQ.0) THEN
  47.          CALL ERREUR(103)
  48.          RETURN
  49.       ENDIF
  50.  
  51.       END
  52.  
  53.  
  54.  
  55.  
  56.  

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