VERIFY |
書式 | VERIFY(STRING,SET[,BACK]) | ||||||
機能 |
文字列STRINGの中に文字列SETに含まれない文字が含まれているときその
開始文字位置を求める。 STRING文字列の中にすべてSETの文字が含まれていれば0を返す。 論理値BACKが真で指定されているときは、最も右にある文字の開始文字位置を求める。 | ||||||
引数 |
| ||||||
戻り値 | 型、種別型パラメタは基本整数型である。 |
CHARACTER (LEN=10) :: a='ABCDEEDCBA' CHARACTER (LEN=10) :: b='123456BCDE' INTEGER :: i,j i=VERIFY(a,b) ! 1番目の文字'A'は文字列bにふくまれない j=VERIFY(a,b,.TRUE.) ! 右側から探すと10番目の文字'A' WRITE(*,*) i,j
実行例 |