Télécharger deg3.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  9. C
  10. C LECTURE DES COEFFICIENTS DU POLYNOME
  11. C
  12. CALL LIRREE(A0,1,IRETOU)
  13. IF(IERR.NE.0) RETURN
  14. CALL LIRREE(A1,1,IRETOU)
  15. IF(IERR.NE.0) RETURN
  16. CALL LIRREE(A2,1,IRETOU)
  17. IF(IERR.NE.0) RETURN
  18. CALL LIRREE(A3,1,IRETOU)
  19. IF(IERR.NE.0) RETURN
  20. *
  21. * MISE SOUS FORME POUR DEGRE3
  22. *
  23. IF (A3.EQ.0.D0) THEN
  24. CALL ERREUR(616)
  25. RETURN
  26. ENDIF
  27. AS0=A0/A3
  28. AS1=A1/A3
  29. AS2=A2/A3
  30. CALL DEGRE3(AS0,AS1,AS2,XR1,XI1,XR2,XI2,XR3,XI3)
  31. CALL ECRREE(XI3)
  32. CALL ECRREE(XR3)
  33. CALL ECRREE(XI2)
  34. CALL ECRREE(XR2)
  35. CALL ECRREE(XI1)
  36. CALL ECRREE(XR1)
  37. RETURN
  38. END
  39.  
  40.  

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