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  24/04/12    21:17:03     11897          
  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.       SEGACT, MMODEL, MCHELM
  20.  
  21.       N1 = KMODEL(/1)
  22.       N2 = IMACHE(/1)
  23.       IF(N1.NE.N2) CALL ERREUR(21)
  24.  
  25.       DO 1000 I=1,N1
  26.          IMODEL = KMODEL(I)
  27.          SEGACT,IMODEL
  28.          IPT1 = IMAMOD
  29.            L=0
  30.            DO 2000 J=1,N1
  31.               IPT2 = IMACHE(J)
  32.               IF (IPT2.EQ.IPT1) THEN
  33.                L=1
  34.                GOTO 2000
  35.               ENDIF
  36.  2000      CONTINUE
  37.       IF(L.EQ.0) THEN
  38.          CALL ERREUR(103)
  39.          RETURN
  40.       ENDIF
  41.  1000 CONTINUE
  42.  
  43.       IF(L.EQ.0) THEN
  44.          CALL ERREUR(103)
  45.          RETURN
  46.       ENDIF
  47.  
  48.       END
  49.  
  50.  
  51.  
  52.  

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