Télécharger la plaquette Cast3M


fr en

Télécharger deg3.eso

Retour à la liste

Numérotation des lignes : 

deg3

  1. C DEG3      SOURCE    CHAT      05/01/12    22:40:55     5004
  2.       SUBROUTINE DEG3
  3. C
  4. C     CALCUL DES RACINES D'UN POLYNOME DU 3-EME DEGRE
  5. C
  6.       IMPLICIT INTEGER(I-N)
  7.       IMPLICIT REAL*8 (A-H,O-Z)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. C
  12. C     LECTURE DES COEFFICIENTS DU POLYNOME
  13. C
  14.       CALL LIRREE(A0,1,IRETOU)
  15.       IF(IERR.NE.0) RETURN
  16.       CALL LIRREE(A1,1,IRETOU)
  17.       IF(IERR.NE.0) RETURN
  18.       CALL LIRREE(A2,1,IRETOU)
  19.       IF(IERR.NE.0) RETURN
  20.       CALL LIRREE(A3,1,IRETOU)
  21.       IF(IERR.NE.0) RETURN
  22. *
  23. *  MISE SOUS FORME POUR DEGRE3
  24. *
  25.       IF (A3.EQ.0.D0) THEN
  26.            CALL ERREUR(616)
  27.            RETURN
  28.       ENDIF
  29.       AS0=A0/A3
  30.       AS1=A1/A3
  31.       AS2=A2/A3
  32.       CALL DEGRE3(AS0,AS1,AS2,XR1,XI1,XR2,XI2,XR3,XI3)
  33.       CALL ECRREE(XI3)
  34.       CALL ECRREE(XR3)
  35.       CALL ECRREE(XI2)
  36.       CALL ECRREE(XR2)
  37.       CALL ECRREE(XI1)
  38.       CALL ECRREE(XR1)
  39.       RETURN
  40.       END
  41.  
  42.  

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