Télécharger cos208.eso

Retour à la liste

Numérotation des lignes :

  1. C COS208 SOURCE BP208322 18/07/11 21:15:01 9879
  2.  
  3. SUBROUTINE COS208(ANGDEB,AMPLIT,NMAIL,KLREEL)
  4. *
  5. * CALCULE LA LISTE { .. cos (teta_i) sin (teta_i) .. }
  6. * POUR teta = { ANGDEB ... ANGDEB+AMPLIT }
  7. *
  8. * APPELE PAR DYN208, DYNE70 et CYNE70
  9. *
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8(A-H,O-Z)
  12.  
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMLREEL
  17. PARAMETER (X2Pi= 6.283185307179586476925286766559D0)
  18.  
  19. JG=2*NMAIL
  20. SEGINI,MLREEL
  21. KLREEL=MLREEL
  22.  
  23. IF(AMPLIT.LT.X2Pi) THEN
  24. DTETA=AMPLIT/DBLE(NMAIL-1)
  25. ELSE
  26. DTETA=AMPLIT/DBLE(NMAIL)
  27. ENDIF
  28.  
  29. DO ITETA=1,NMAIL
  30. TETA=DBLE(ITETA-1)*DTETA+ANGDEB
  31. PROG(2*ITETA-1)=COS(TETA)
  32. PROG(2*ITETA )=SIN(TETA)
  33. ENDDO
  34.  
  35. RETURN
  36. END
  37.  
  38.  

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