ZINNU2

【機能】

  数値を読込む（改行しない)	


【使用形式】

  CALL ZINNU2(ZDATA,IR)


【引数説明】

  ［INPUT］
	 なし

  ［OUTPUT］
	 ZDATA ：入力された数値（倍精度実数値）
  	 IR    ：リターンフラグ
	         　0；正常
  	         　1；C／Rのみ
	         −1；リジェクト
  	         −2；C／Cのみ


【機能説明】

  ・キーボードから入力された数値を読込む。
  ・数字以外の文字が入力された場合、メッセージが出力され、再び
　　入力要求される。


【備考】

  ・整数値が入力されても、ZDATAには常に倍精度実数値として入力値
　　がセットされる。
  ・入力後に改行しない。
  ・IR＝1,IR＝-2の場合、ZDATAに0.0がセットされる。