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