Télécharger la plaquette Cast3M


fr en

Télécharger sigek.eso

Retour à la liste

Numérotation des lignes : 

sigek

  1. C SIGEK     SOURCE    BR232186  16/12/05    22:04:34     9238           
  2.       SUBROUTINE SIGEK(X,Y)
  3. C
  4. C====&===1=========2=========3=========4=========5=========6=========7==
  5. C Commentaires : Subroutine permettant de calculer 
  6. C                 signe
  7. C
  8. C Argumets     : scalaire x, retourne le scalaire y
  9. C
  10. C AUTEUR       : E. KISHTA  - CEA/DEN/DANS/DM2S/SEMT/EMSI
  11. C                B. RICHARD - CEA/DEN/DANS/DM2S/SEMT/EMSI
  12. C====&===1=========2=========3=========4=========5=========6=========7==
  13. C
  14. C----DECLARATION GENERALES----------------------------------------------
  15. C
  16.       IMPLICIT INTEGER(I-N)
  17.       IMPLICIT REAL*8(A-H,O-Z)
  18.  
  19.       IF(X.GT.0.0D0) THEN
  20.  
  21.                 Y = 1.0D0
  22.  
  23.       ELSEIF (X.EQ.0.0D0) THEN
  24.  
  25.                 Y = 0.0D0
  26.  
  27.       ELSE
  28.                 Y = -1.0D0
  29.  
  30.       ENDIF
  31.  
  32.  
  33.       RETURN
  34.       END
  35.  
  36.  
  37.  

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