Sources Esope | Cast3M

cos208
C COS208    SOURCE    BP208322  18/07/11    21:15:01     9879           
 
      SUBROUTINE COS208(ANGDEB,AMPLIT,NMAIL,KLREEL)
*
*     CALCULE LA LISTE { .. cos (teta_i) sin (teta_i) .. }
*     POUR teta = { ANGDEB ... ANGDEB+AMPLIT }
*
*     APPELE PAR DYN208, DYNE70 et CYNE70
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
 
-INC PPARAM
-INC CCOPTIO
-INC SMLREEL
      PARAMETER (X2Pi= 6.283185307179586476925286766559D0)
 
          JG=2*NMAIL
          SEGINI,MLREEL
          KLREEL=MLREEL
 
          IF(AMPLIT.LT.X2Pi) THEN
            DTETA=AMPLIT/DBLE(NMAIL-1)
          ELSE
            DTETA=AMPLIT/DBLE(NMAIL)
          ENDIF
 
          DO ITETA=1,NMAIL
            TETA=DBLE(ITETA-1)*DTETA+ANGDEB
            PROG(2*ITETA-1)=COS(TETA)
            PROG(2*ITETA  )=SIN(TETA)
          ENDDO
 
        RETURN
        END