Télécharger la plaquette Cast3M


fr en

Télécharger facomp.eso

Retour à la liste

Numérotation des lignes : 

facomp

  1. C FACOMP    SOURCE    CHAT      05/01/12    23:55:46     5004
  2.       SUBROUTINE FACOMP(PREEL,PIMAG,PMODU)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C=======================================================================
  7. C  =  ROUTINE FORTRAN CALCULANT LA PHASE D'UN COMPLEXE EN DEGRES      =
  8. C  =  ON ENTRE LA PARTIE REELLE, LA PARTIE IMAGINAIRE, ET LE MODULE   =
  9. C  =  LA PHASE RESSORT A LA PLACE DU MODULE                           =
  10. C  =                                                                  =
  11. C  =                                                                  =
  12. C  =  CREATION    : 13/04/87                                          =
  13. C  =  PROGRAMMEUR : BEAUFILS                                          =
  14. C=======================================================================
  15. C
  16.  
  17. -INC PPARAM
  18. -INC CCOPTIO
  19. -INC CCREEL
  20. C
  21.       DATA EPS/1.E-20/
  22. C
  23.       IF(ABS(PMODU).GT.EPS) THEN
  24.           PCOS=PREEL/PMODU
  25.       ELSE
  26.           PMODU=0.D0
  27.           RETURN
  28.       ENDIF
  29. C
  30.       IF(ABS(PCOS).LT.EPS) THEN
  31.           PMODU=90.D0*PIMAG/ABS(PIMAG)
  32.       ELSE
  33.           IF(ABS(PCOS).GT.1.D0) PCOS=(1.D0-EPS)*PCOS/ABS(PCOS)
  34.           PMODU=180.D0/XPI*ACOS(PCOS)
  35.           IF(PIMAG.LT.0.D0) PMODU=-PMODU
  36.       ENDIF
  37. C
  38.       RETURN
  39.       END
  40.  
  41.  
  42.  
  43.  

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