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

 

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

噓~

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

E-mail轉寄