ＶＥＲＩＦＹ
copyright

green dotＶＥＲＩＦＹ

書式 VERIFY(STRING,SET[,BACK])
機能 文字列STRINGの中に文字列SETに含まれない文字が含まれているときその 開始文字位置を求める。
STRING文字列の中にすべてSETの文字が含まれていれば0を返す。
論理値BACKが真で指定されているときは、最も右にある文字の開始文字位置を求める。
引数
STRING ：文字型
SET ：STRINGと同じ種別型パラメタの文字型
BACK
(省略可能)		：論理型
戻り値 型、種別型パラメタは基本整数型である。

green dotサンプルプログラム

文字列の中に含まれない文字位置を探す。 
    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


実行例

   1 10
line-end