! 例題 4-2  ド・モアブルの定理（複素数） ［複素数型 ］
PROGRAM ex4_2

  IMPLICIT NONE
  INTEGER :: n
  REAL :: x
  COMPLEX, PARAMETER :: i = ( 0.0E0, 1.0E0 )      ! 虚数単位
  COMPLEX :: z

  PRINT *, 'Input a real number x and an integer n: '
  READ *, x, n

  z = EXP( i * x )
  PRINT *, z ** n
  PRINT *, COS( n * x ), SIN( n * x )

END PROGRAM ex4_2