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. -INC CCOPTIO
  14. -INC SMLREEL
  15. PARAMETER (X2Pi= 6.283185307179586476925286766559D0)
  16.  
  17. JG=2*NMAIL
  18. SEGINI,MLREEL
  19. KLREEL=MLREEL
  20.  
  21. IF(AMPLIT.LT.X2Pi) THEN
  22. DTETA=AMPLIT/DBLE(NMAIL-1)
  23. ELSE
  24. DTETA=AMPLIT/DBLE(NMAIL)
  25. ENDIF
  26.  
  27. DO ITETA=1,NMAIL
  28. TETA=DBLE(ITETA-1)*DTETA+ANGDEB
  29. PROG(2*ITETA-1)=COS(TETA)
  30. PROG(2*ITETA )=SIN(TETA)
  31. ENDDO
  32.  
  33. RETURN
  34. END
  35.  
  36.  

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