結果 : difference subroutine function fortran