! -------------------------------------------
! Example program
! Basic date types
! Notice the kind(1.d0) specification in the 
! call to the intrinsic routine cmplx :
! Try also without it to see the difference!
! ------------------------------------------
program test
   implicit none
   integer:: i
   real (kind(1.d0)) :: x,y
   complex (kind(1.d0)) :: c
   x = 5.d0
   y = 20.d0
   c = cmplx(x,y,kind(1.d0)) ! convert to complex
   print*,x,y,c
end program test