n = lnblnk( a1 )

a1

character

入力 

文字列 

戻り値 

INTEGER*4 または INTEGER*8

出力 

n>0: a1 の中の空白以外の最後の文字のインデックス

n=0: a1 はすべて空白以外の文字。64 ビット環境の場合は、INTEGER*8 が戻る。

demo% cat tindex.f
*                        123456789012345678901
       character s*24 / 'abcPDQxyz...abcPDQxyz' /
       INTEGER*4 declen, index, first, last, len, lnblnk, rindex
       declen = len( s )
       first = index( s, 'abc' )
       last = rindex( s, 'abc' )
       lastnb = lnblnk( s )
       write(*,*) declen, lastnb
       write(*,*) first, last
       end
demo% f95 tindex.f
demo% a.out
24 21     <- 組み込み関数 len() が宣言された s の長さを返すため、declen は 24
 1 13