PROGRAM COMPLEX
      REAL IM, RE
*-- 複素数宣言 ---
      COMPLEX Z, W, U
      Z=(1.0,2.0)          ! 複素数を設定する
*-- 複素数の実部と虚部を設定する
      RE=REAL(Z)
      IM=AIMAG(Z)
*-- Z の複素共役を示す ---
      W=CONJG(Z)
*-- Z*W の積を計算する ---
      U=Z*W
      WRITE(*,*) Z, W, RE, IM, U
      STOP
      END