PROGRAM Karmasik_Fonksiyonlar
!----------------------------------------------------
! 20prg01.f95
! Sık kullanılan karmaşık sayı fonksiyonları
!----------------------------------------------------
IMPLICIT NONE
COMPLEX :: Z

  Z = (3.0,  4.0) ! 3 + 4i

  PRINT *,"Z = ",Z
  PRINT *
  PRINT *,"AIMAG(z) = ",AIMAG(z)
  PRINT *," REAL(z) = ",REAL(z)
  PRINT *,"CONJG(z) = ",CONJG(z)
  PRINT *,"  ABS(z) = ",ABS(z)

END PROGRAM Karmasik_Fonksiyonlar