Télécharger la plaquette Cast3M


fr en

Télécharger sensi2.eso

Retour à la liste

Numérotation des lignes : 

sensi2

  1. C SENSI2    SOURCE    CB215821  20/11/04    21:21:12     10766          
  2. *
  3. *     EXTRAIT DE ADCHAML.ESO
  4. *     LELEU DIDIER HAZE FREDERIC
  5. *     03/03/93
  6. *
  7. *
  8. *
  9.       SUBROUTINE SENSI2(IPCHA2,IPCHA,MOYS)
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8 (A-H,O-Z)
  12.       REAL*8 MOYS
  13. *
  14. *
  15. *  ENTREES :
  16. *        IPCHA2    : POINTEUR SUR UN SEGMENT MCHAML SUPPOSE ACTIF
  17. *        IPCHA   : POINTEUR SUR 2IEME SEGGMENT MCHAML SUPPOSE ACTIF
  18. *
  19. *
  20. *
  21. *  SORTIE :
  22. *        MOYS     : VALEUR DE LA SENSIBILITE (MOYENNE)
  23. *
  24. *
  25. *
  26. *
  27. -INC SMCHAML
  28.  
  29. -INC PPARAM
  30. -INC CCOPTIO
  31. *
  32.       MCHAML=IPCHA
  33.       MCHAM2=IPCHA2
  34. *
  35. *     ON CHERCHE LES NOM DE COMPOSANTES EN COMMUN DANS LES
  36. *     2 CHAMELEMS
  37. *
  38.       DO 1 ICOMP=1,IELVAL(/1)
  39.          CALL PLACE(MCHAM2.NOMCHE,MCHAM2.NOMCHE(/2),IPLAC,
  40.      &               NOMCHE(ICOMP))
  41.          IF (IPLAC.NE.0) THEN
  42.             IPMEL1=IELVAL(ICOMP)
  43.             IPMEL2=MCHAM2.IELVAL(IPLAC)
  44. *  ICOD=0
  45.             CALL SENSI3(IPMEL1,IPMEL2,IPMELV,IRETOU,MOYS)
  46.             IF (IRETOU.NE.0) THEN
  47.                IF (IRETOU.EQ.197) MOTERR(1:4)=NOMCHE(ICOMP)
  48.                CALL ERREUR (IRETOU)
  49.                IPCHA=0
  50.                RETURN
  51.             ENDIF
  52.             IELVAL(ICOMP)=IPMELV
  53.          ELSE
  54.             MELVA1=IELVAL(ICOMP)
  55.             SEGINI,MELVAL=MELVA1
  56.             IELVAL(ICOMP)=MELVAL
  57.             SEGDES MELVAL
  58.          ENDIF
  59.  1    CONTINUE
  60. *
  61. *     ON RAJOUTE LES COMPOSANTES DU 2IEME CHAMELEM QUI NE SONT PAS
  62. *     ENCORE PRIS EN COMPTE (LE NUMERO DE LA SOUS ZONE EST DONNE
  63. *     JTAFF(ISOUS1)
  64. *
  65.       N22=IELVAL(/1)
  66.       DO 2 ICOMP=1,MCHAM2.IELVAL(/1)
  67.          CALL PLACE(NOMCHE,N22,IPLAC,MCHAM2.NOMCHE(ICOMP))
  68.          IF (IPLAC.EQ.0) THEN
  69.             N2=IELVAL(/1)
  70.             N2=N2+1
  71.             SEGADJ MCHAML
  72.             NOMCHE(N2)=MCHAM2.NOMCHE(ICOMP)
  73.             TYPCHE(N2)=MCHAM2.TYPCHE(ICOMP)
  74.             MELVA2=MCHAM2.IELVAL(ICOMP)
  75.             SEGINI,MELVAL=MELVA2
  76.             IELVAL(N2)=MELVAL
  77.             SEGDES MELVAL
  78.          ENDIF
  79.  2    CONTINUE
  80. *
  81.  9990 CONTINUE
  82.       RETURN
  83.       END
  84.  
  85.  
  86.  
  87.  
  88.  

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