WORD='abc123xyz'
P=INDEX(WORD,'123')　　!「123」は「abc123xyz」の中で何番目か？
Q=INDEX(WORD,'xyz')　　!「xyz」は「abc123xyz」の中で何番目か？
WORD2=WORD(P:Q-1)
PRINT *,WORD2
END PROGRAM TORIDASHI

ビット関数の利用例

（例）ビットの設定、消去、検査。

PROGRAM BITTO_SOUSA
I = 4
J = IBSET (I,5)　　! J=36
PRINT *, J
K = IBCLR (J,2)　　! K=32
PRINT *, K
PRINT *, BTEST(K,2)　　! Kの2ビット目はF
END PROGRAM BITTO_SOUSA

配列関数の利用例

（例）要素の合計を行う。

PROGRAM GOUKEI
INTEGER A(3),B
DATA A/1,2,3/
B=SUM(A,1)
PRINT *,B
END PROGRAM GOUKEI

4.1.2　組み込み関数一覧

以下に、組み込み関数の一覧を挙げる。