Télécharger la plaquette Cast3M


fr en

Télécharger sensi0.eso

Retour à la liste

Numérotation des lignes : 

sensi0

  1. C SENSI0    SOURCE    CHAT      05/01/13    03:13:37     5004
  2. *
  3. *     OPERATEUR SENS
  4. *
  5. *     a)  sensibilite
  6. *
  7. *        SOUSTRACTION DE 2 CHPS/ELMTS + MOYENNE
  8. *        LECTURE DES CHAMPS DERIVEES
  9. *        EXTRAIT DE OPERAD.ESO
  10. *
  11. *        LELEU DIDIER HAZE FREDERIC
  12. *        03/03/93
  13. *
  14. *     b)  sens ( trigonometrique)
  15. *
  16. *
  17. *
  18.       SUBROUTINE SENSI0
  19. *
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8 (A-H,O-Z)
  22.  
  23. -INC PPARAM
  24. -INC CCOPTIO
  25.       CHARACTER*8 CHA1
  26. *
  27. *
  28. *
  29.       CALL QUETYP(CHA1,1,IRETOU)
  30.       IF ( CHA1 .EQ. 'MCHAML' ) THEN
  31. c       cas ou sens signifie senibilite
  32. c
  33.         CALL LIROBJ('MCHAML',IPCHE1,1,IRETOU)
  34.         CALL LIROBJ('MCHAML',IPCHE2,1,IRETOU)
  35.         CALL SENSI1(IPCHE1,IPCHE2,MTAB1)
  36.         IF (MTAB1.EQ.0) RETURN
  37.         CALL ECROBJ('TABLE',MTAB1)
  38.         RETURN
  39.       ELSE IF (CHA1 .EQ. 'TABLE' ) THEN
  40. c        sens signifie sens
  41. c
  42.          CALL SENS1
  43.          RETURN
  44.       ENDIF
  45.       END
  46.  
  47.  

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