PROGRAM f03 IMPLICIT none INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(15) COMPLEX, PARAMETER :: arg=CMPLX(0_dp,4.0_dp*ACOS(0.0_dp),KIND=KIND(dp)) INTEGER, PARAMETER :: N=5 INTEGER :: i REAL(KIND=dp), PARAMETER :: x(N+1) = (/ (DBLE(i)/DBLE(N), i=0,N)/) DO i=1,SIZE(x) PRINT*, exp(x(i)*arg) END DO END PROGRAM f03