DOUBLE PRECISION FA,FB,F2,F4,（※倍精度宣言） 
　　 &　　　　　　　　X,A,B,H,VPAI,PAI 
　　　（※&は上行から続く） 
　　　PAI=3.141592D0　（※DOは倍精度を意味する） 
　　　N=1 
　　　A=0 
　　　B=1 
　 10 H=(B - A)/(2 * N) 
　　　F2=0 
　　　F4=0 
C 
　　　DO 20 I=1, 2*N-1 
　　　　X=A+H*I 
　　　　ND=MOD(I,2)　　　　　　（※組込み関数一覧参照） 
　　　　IF(ND.EQ.0) F2=F2+SQRT(1-X**2) 
　　　　IF(ND.NE.0) F4=F4+SQRT(1-X**2) 
　 20 CONTINUE 
C 
　　　FA=DSQRT(1-A**2) 
　　　FB=DSQRT(1-B**2) 
　　　VPAI=4*(H/3)*(FA+4*F4+2*F2+FB) 
　　　IF(VPAI.GT.PAI) STOP 
　　　　WRITE(6,100) 2*N, VPAI 
　100 FORMAT(1H,'KAISU',I6,' : PAI =',F10.6) 
　　　　　　　　　　　　　　　　（※ファイルの入出力参照） 
　　　N=N*2 
　　　GO TO 10 
　　　END

　　　DOUBLE PRECISION F1,F2,X1,X2,X　　　（宣言文記述領域）

　　　READ(5,*) X 
　　　IF(X.LT.0) THEN 
　　　　F=SIN(X)+2*X+1 
　　　ELSE IF(X.LE..1) THEN 
　　　　F=X**2-X+1 
　　　ELSE IF(X.GT.1) THEN 
　　　　F=LOG10(X) 
　　　END IF 
　　　WRITE(6,*) F 
　　　STOP 
　　　END

　　　READ(5,*) X 
　　　A=FNC(X) 
　　　WRITE(6,*) A 
　　　STOP 
　　　END 
C 
　　　FUNCTION FNC(X) 
　　　IF(X.LT.0) THEN 
　　　　FNC=SIN(X)+2*X+1 
　　　ELSE IF(X.LE..1) THEN 
　　　　FNC=X**2-X+1 
　　　ELSE IF(X.GT.1) THEN 
　　　　FNC=LOG10(X) 
　　　END IF 
　　　RETURN 
　　　END

　FUNCTION FNC(X)はFUNCTION文と呼ばれる。この文はプログラムが関数副プログラムであることを示す。FUNCTION文に指定されたFNC(X)のFNCは外部関数名であり、Xは文関数定義文と同様の仮引数である。 

外部関数の手続きは関数副プログラムFNTST2（右側プログラム）のFUNCTION…よりも下の部分であり、それは複数の実行分によって記述される。この手続きの内容はプログラムFNTST1（左側プログラム）と同様であることに注意する。文関数は１つの文（文関数定義文）によってしか記述することができないが、外部関数はこのように複数の文によって記述することができる。 

外部関数FNCの引用は、FNTST2の主プログラム（PROGRAMから1番目のENDまで）の代入文 

によって行われている。式中のＸは分関数と同様の実引数である。外部関数の引用方法は文関数と同じであり、実行文の式に外部関数名を記述すればよい。外部関数が引用されると、結果は外部関数名にセットされる。