close

program test

implicit none


contains !以下為位內部函數function /subroutine ,只有program main 可呼叫 或 使用;且不用宣告real,external:: aa

function aa(x)

implicit none

return

end function aa

 

subroutine bb(t)

implicit none

return

end subroutine bb

 

end

 

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 quantum2nd 的頭像
    quantum2nd

    噓~

    quantum2nd 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄