AIMAG

要素別処理組込み関数 (総称)：複素数の虚部を返します。この関数は IMAG としても宣言できます。

形式

result = AIMAG (z)

z
(入力) 複素数型。

結果

結果の型は，z と同じ種別パラメタを持つ実数型です。z の値が (x, y) の場合，結果の値は y です。

実数の大きさを指定するコンパイラ・オプション /real_size の設定は AIMAG に影響を与えることがあります。

個別名	引数の型	結果の型
AIMAG	COMPLEX(4)	REAL(4)
DIMAG	COMPLEX(8)	REAL(8)
QIMAG	COMPLEX(16)	REAL(16)

複素数の実数部を返すには，REAL を使います。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

CONJG，DBLE

例

AIMAG ((4.0, 5.0)) の値は 5.0 です。

プログラム AIMAG.F90 は，2 次式を多項式に適用し，複素数の結果を得ます。

		REAL a, b, c
		COMPLEX ans1, ans2, d
		WRITE ( *, 100)
	100	FORMAT ('  Enter A, b, and c of the  ',   &
			'polynomial ax**2 + bx + c:  '\)
		READ (*, *) a, b, c
		d = CSQRT (CMPLX (b**2 - 4.0*a*c))	! d は次のいずれか：
							! 0.0 + i root, または
							! root + i 0.0
		ans1 = (-b + d) / (2.0 * a)
		ans2 = (-b + d) / (2.0 * a)
		WRITE (*, 200)
	200	FORMAT (/ '  The roots are:'  /)
		WRITE (*, 300) REAL(ans1), AIMAG(ans1), &
				REAL(ans2), AIMAG(ans2)
	300	FORMAT (' X = ', F10.5, ' + i', F10.5)
		END