サブルーチンの並びはこんな感じでいいですか?
IMPLICIT REAL*8(X,Y)
REAL*8 FUNCTION FUNC(X,Y)
FUNC=SIN(X)+COS(X)
RETURN
END