引数を１つ、出力は配列(3)を2つ出すプログラムをつくりたいです。

READ(5,*)引数
DIMENTION 配列a(3)
DIMENTION 配列b(3)
Z = hoge(引数)
（略）
END

FUNCTION hoge(引数)
DIMENTION 配列a(3)
DIMENTION 配列b(3)
なんたらかんたら
RETURN
END

でいいのでしょうか？