VOOZH about

URL: https://qiita.com/chirimen/items/f867855f8707ed4e104c

⇱ Fortran 2008 の編集記述子まとめ (出力時) #Fortran - Qiita

👁 Image
30

Go to list of users who liked

22

Share on X(Twitter)

Share on Facebook

Add to Hatena Bookmark

More than 5 years have passed since last update.

@chirimen

Fortran 2008 の編集記述子まとめ (出力時)

30
Posted at

はじめに

Fortran も 2008 になると編集記述子や機能が追加されたりしている。派手な機能ではないけれど地味に便利だったりする場合もあるのでまとめておこう。ただし出力時限定。
基本的に Fortran 2008 の Draft を見ながら gfortran 5.1, 4.9.2 で動作確認を行ってはいる。行ってはいるが、正確さの保証はできないので使用するときは自分で動作確認をしてほしい。その際、間違いなど見つけたら指摘してくれるとありがたい。

データ編集記述子

整数型

編集記述子 概要
I w [ . m ] wの幅に右詰め最低m字以上で10進整数を出力。wが0なら最小幅で出力
B w [ . m ] 2進で出力。あとはIと同じ
O w [ . m ] 8進で出力。あとはIと同じ
Z w [ . m ] 16進で出力。あとはIと同じ
G0 I0を指定したときと同じ
G w . d [ . E e ] I w と同じ。d, e の指定は無視される
整数型の表示例
integer::nn=47write(6,'(I8)')n! ' 47' 8文字幅右詰めwrite(6,'(I8.3)')n! ' 047' 8文字幅3桁に足りない分は0でパディングwrite(6,'(I0)')n! '47' 表示に必要な最小幅 (ここでは2文字)write(6,'(I0.3)'n! '047' 3桁に足りない分は0でパディングn=-47write(6,'(I8)')n! ' -47' 8文字幅右詰めwrite(6,'(I8.3)')n! ' -047' 最小幅3桁に符号は含まれないwrite(6,'(I0)')n! '-47' 表示に必要な最小幅 (符号を入れて3文字)write(6,'(I0.3)')n! '-047' 符号込みで4文字write(6,'(I2)')n! '**' 表示幅が足りないと '*' で埋められるwrite(6,'(G0)')n! '-047' 整数にG0を指定するとI0を指定したときと同じ!write(6, '(G8)' n ! エラーになるwrite(6,'(G8.3)')n! ' -47' I8と同じ '.3' の指定は無視される

実数型・複素数型

編集記述子 概要
F w . d 幅_w_に小数点以下_d_位まで値を出力。_w_が0なら最小幅
E w . d [ E e ] 幅_w_に小数点以下_d_位で指数表示。実数部は1.0未満に正規化される。指数の幅は_e_字
ES w . d [ E e ] Eと同じだが実数部の正規化を1以上10未満で行う
EN w . d [ E e ] Eと同じだが実数部の正規化を1以上1000未満、指数部が3の倍数になるように行う
D w . d E w . d と同じだが指数部の記号を 'D' で表す
G0 値の大きさによって幅、表記が変わる
G w . d [ E e ] E w . d [ E e ] と同じだが、w が0でもよい
実数型
real(real32)::f=299792.458_real32real(real64)::d=299792.458_real64write(6,'(F12.2)')d! ' 299792.46' 小数点以下3位を丸めて2位まで出力write(6,'(F12.0)')d! ' 299792.' dが0でも小数点は出力されるwrite(6,'(F0.2)')d! '299792.46' wが0なら最小幅write(6,'(F0.0)')d! '299792.' w,dがともに0でもルールは同じwrite(6,'(E12.3)')d! ' 0.300E+06' 整数部が0になるように正規化write(6,'(ES12.3)')d! ' 2.998E+05' 整数部が1～9になるように正規化write(6,'(EN12.3)')d! ' 299.792E+03' 整数部が1～999かつ指数部が3の倍数になるように正規化write(6,'(E12.3E1)')d! ' 0.300E+6' 指数部の桁を1桁に変更するwrite(6,'(D12.3)')d! ' 0.300D+6' 指数記号を'D'にするwrite(6,'(E12.3)')d*1.D100! ' 0.300+106' 指数部が3桁になる場合'E'は表示されないwrite(6,'(G12.3E1)')d! ' 0.300E+6' 'E12.3E1'を指定したときと同じwrite(6,'(G0.3)')d! '.300E+006' 倍精度では指数部が3桁になるがwrite(6,'(G0.3)')f! '.300E+06' 単精度では指数部が2桁である! G0 指定の場合は絶対値の対数の大きさによって表示が切り替わる! 対数が大きくまたは小さくなると指数表記になる! この例は gfortran 4.9.2, 5.1.0 によるwrite(6,'(G0)')d! '299792.45799999998'write(6,'(G0)')d*1.E3! '2997924578.0000000'write(6,'(G0)')d*1.E12! '.29979245677205005E+018' 指数部の分だけ幅が伸びるwrite(6,'(G0)')d*1.E-9! '.29979244952129026E-003'write(6,'(G0)')f! '299792.469' 単精度と倍精度では幅が異なるwrite(6,'(G0)')f*1.E3! '299792480.' write(6,'(G0)')f*1.E12! '.299792462E+18' 指数部の幅は単精度では2桁write(6,'(G0)')f*1.E-9! '.299792446E-03'
複素数型
complex(real64)::z=(259.627891_real64,149.896234_real64)! 表示に2つ分の書式指定が必要なことを除けば実数型の場合と同じwrite(6,'(2(f8.2))')z! ' 259.63 149.90'write(6,'(2(g0," "))')z! '259.62789099999998 149.89623399999999'

論理型

編集記述子 概要
L w _w_幅で右詰めで表示。真で'T'、偽で'F'。_w_は1以上
G0 L1と同じ
G w . d [ E e ] L w と同じ。d, e は無視される
論理型
logical::t=.TRUE.,f=.FLASE.write(6,'(L4)')t! ' T'write(6,'(L4)')f! ' F'write(6,'(G0)')t! 'T'

文字型

編集記述子 概要
A 変数の幅で表示
A w w 幅で右詰め表示。幅が短ければ切り捨て
G0 A と同じ
G w . d [ E e ] A w と同じ。d, e は無視される
文字型
character(len=6)::s='ABCDEF'write(6,'(A)')s! 'ABCDEF' 幅を指定しなければ変数の長さで表示write(6,'(A4)')s! 'ABCD' 足りなければ切り捨てられるwrite(6,'(A8)')s! ' ABCDEF' 幅の方が長ければ右詰めで表示write(6,'(G0)')s! 'ABCDEF' 'G0'は'A'と同じs='ABC'! 変数の長さより短い文字列を代入write(6,'(A)')s! 'ABC ' 表示幅は文字列変数の長さとなるwrite(6,'(G0)')s! 'ABC ' 'G0'でも同じ

ユーザ定義型 (GFortranではまだ非サポート)

編集記述子 概要
DT [ char-literal-constant ] ( v-list ) v-list でユーザ定義入出力ルーチンにパラメータを渡せる

制御編集記述子

位置編集記述子

編集記述子 概要
T n 先頭より n 字の位置へ移動
TL n 現在位置から n 文字戻る
TR n 現在位置から n 文字進む
n X 現在位置から n 文字進む。TR n と同じ
制御編集記述子
write(6,'("12345678",T3,"_")')! '12_45678'write(6,'("12345678",TL3,"_")')! '12345_78'write(6,'("12345678",TR3,"_")')! '12345678 _'write(6,'("12345678",3X,"_")')! '12345678 _'

桁移動数の指定

桁位置の移動量 k を指定する。F, E, D, G 編集記述子に作用するが、F とそれ以外で動作が異なる。
F では表示する値が 10 の k 乗として表示されるが、E, D, G では仮数部の桁位置が変化し、指数部もそれに合わせて変更されるので表示される値は変化しない。
また、G で表記が小数形式となる場合は表示は変化しない。

編集記述子 概要
k P k 桁移動する
桁移動数の指定
real::r=3.14159write(6,'(F8.3)')r! ' 3.142' F編集記述子での通常の表示write(6,'(2P,F8.3)')r! ' 314.159' 100倍に表示されるwrite(6,'(E12.3)')r! ' 0.314E+01' E編集記述子での通常の表示write(6,'(2P,E12.3)')r! ' 31.42E-01' 仮数部が100倍になるが値は同じwrite(6,'(G12.3)')r! ' 3.14 ' 編集記述子での通常の表示write(6,'(2P,G12.3)')r! ' 3.14 ' G編集記述子で小数表記のときは変化しないwrite(6,'(G12.3)')r*1.E6! ' 0.314E+07' 指数表記の場合write(6,'(2P,G12.3)')r*1.E6! ' 31.42E+05' E編集記述子のときと同じ

符号モードの変更

符号モードを変更する。SIGN='SUPPRESS', 'PLUS', 'PROCESSOR_DEFINED' と同等の機能。

編集記述子 概要
SS 正符号を出力しないモードに切り替える
SP 正符号を出力するモードに切り替える
S 符号モードを処理系のデフォルトに戻す
符号モードの変更
real::r=3.14159write(6,'(F8.3)',SIGN='PLUS')r! ' +3.142' SIGN='PLUS'で正符号出力write(6,'(SS,F8.3)',SIGN='PLUS')r! ' 3.142' 正符号出力抑制に変更write(6,'(SP,F8.3)')r! ' +3.142' 正符号出力に切換え write(6,'(S,F8.3)')r! ' 3.142' デフォルトに戻す

丸めモードの変更

実数と複素数の丸めモードを変更する。ROUND='UP', 'DOWN', 'ZERO', 'NEAREST', 'COMPATIBLE', 'PROCESSOR_DEFINED' と同等の機能。

編集記述子 概要
RU 切り上げ
RD 切り捨て
RZ 0に近い方へ丸める
RN 最近接偶数への丸め
RC 近い方へ、ちょうど中央の時は0から遠い方へ丸める
RP 処理系のデフォルトへ戻す
丸めモードの変更
integer::ireal::r(6)=[-0.25,-0.15,-0.05,0.05,0.15,0.25]write(6,'(4X,6F6.2)')(r(i),i=1,6)write(6,'(40("-"))')write(6,'("RU:",RU,6F6.1)')(r(i),i=1,6)write(6,'("RD:",RD,6F6.1)')(r(i),i=1,6)write(6,'("RZ:",RZ,6F6.1)')(r(i),i=1,6)write(6,'("RN:",RN,6F6.1)')(r(i),i=1,6)write(6,'("RC:",RC,6F6.1)')(r(i),i=1,6)write(6,'("RP:",RP,6F6.1)')(r(i),i=1,6)! -0.25 -0.15 -0.05 0.05 0.15 0.25! ----------------------------------------! RU: -0.2 -0.1 -0.0 0.1 0.2 0.3! RD: -0.3 -0.2 -0.1 0.0 0.1 0.2! RZ: -0.2 -0.1 -0.0 0.0 0.1 0.2! RN: -0.2 -0.2 -0.1 0.1 0.2 0.2! RC: -0.3 -0.2 -0.1 0.1 0.2 0.3! RP: -0.2 -0.2 -0.1 0.1 0.2 0.2

小数点記号の変更

小数点記号を書式内で変更する。DECIMAL='COMMA', 'POINT' と同等の機能。

編集記述子 概要
DC 小数点記号をカンマ ',' に変更
DP 小数点記号をピリオド '.' に変更
小数点記号の変更
real::r=3.14159write(6,'(DC,F6.2)')r! ' 3,14'write(6,'(DP,F6.2)')r! ' 3.14' 通常はこちら

その他の編集記述子

編集記述子 概要
/ 改行
: データがなければ処理を打ち切る
コロンの使用例
integer::i,n(6)=[1,2,3,4,5,6]write(6,'(*(I0,:,",")')(n(i),i=1,6)! '1,2,3,4,5,6' 末尾のカンマは出力されないwrite(6,'(*(I0,",")')(n(i),i=1,6)! '1,2,3,4,5,6,' 末尾にカンマが出力されてしまう

参考資料

30

Go to list of users who liked

22
0

Go to list of comments

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
30

Go to list of users who liked

22