1. 優先使用靜態內存分配（已知數組大小時）
若數組大小在編譯時確定（如固定大小的矩陣、常量長度的數組），應使用靜態內存分配（dimension屬性）而非動態分配。靜態分配的內存由編譯器直接管理，無需手動調用ALLOCATE/DEALLOCATE，減少了運行時的內存管理開銷，且避免了忘記釋放內存導致的內存泄漏風險。例如：
program static_alloc
implicit none
integer, dimension(100) :: arr ! 靜態分配100個整數的數組
arr = [(i, i=1, 100)]
print *, "Static array:", arr
end program static_alloc
這種方式適用于數組大小固定且不會變化的場景，是內存效率最高的選擇之一。
2. 動態內存分配時嚴格檢查返回狀態
對于需要動態調整大小的數組（如用戶輸入大小的數組、運行時確定的數組），必須使用ALLOCATABLE屬性并結合ALLOCATE語句。關鍵技巧：分配后立即檢查stat參數，確保內存分配成功。若stat不為0，說明分配失?。ㄈ鐑却娌蛔悖?，應及時處理（如報錯退出），避免后續代碼訪問未分配內存導致的崩潰。示例：
program dynamic_alloc_check
implicit none
integer, allocatable :: arr(:)
integer :: n, stat
print *, "Enter array size:"
read(*, *) n
allocate(arr(n), stat=stat) ! 嘗試分配n個整數的數組
if (stat /= 0) then
print *, "Memory allocation failed with status:", stat
stop ! 終止程序，避免非法內存訪問
end if
arr = [(i*i, i=1, n)] ! 使用數組
print *, "Dynamic array:", arr
deallocate(arr) ! 釋放內存
end program dynamic_alloc_check
這一技巧能有效防止因內存分配失敗導致的程序異常。
3. 及時釋放不再使用的動態內存
動態分配的內存（通過ALLOCATE獲得）必須通過DEALLOCATE語句手動釋放，否則會導致內存泄漏（程序運行時占用的內存不斷增加，最終耗盡系統資源）。釋放內存的時機應選擇在數組不再需要時（如計算完成后、子程序結束時）。例如：
program dealloc_example
implicit none
integer, allocatable :: temp_arr(:)
integer :: i
! 臨時數組用于中間計算
allocate(temp_arr(1000000))
temp_arr = [(i, i=1, 1000000)]
! 使用temp_arr進行計算...
print *, "Temp array sum:", sum(temp_arr)
deallocate(temp_arr) ! 立即釋放，避免內存泄漏
! 此時temp_arr不可再使用
end program dealloc_example
即使在程序正常退出時，DEALLOCATE也不是可選的——良好的編程習慣應始終顯式釋放內存。
4. 利用Fortran 2003+的高級內存管理特性
現代Fortran（2003及以上版本）提供了更強大的內存管理工具，可提升效率和靈活性：
ALLOCATABLE數組的自動釋放：將ALLOCATABLE數組聲明為模塊變量或在子程序中使用intent(out)屬性，當數組超出作用域時（如子程序結束、模塊卸載），編譯器會自動調用DEALLOCATE釋放內存，無需手動干預。例如：module array_module
implicit none
integer, allocatable :: shared_arr(:) ! 模塊級allocatable數組
end module array_module
program auto_dealloc
use array_module
implicit none
allocate(shared_arr(100)) ! 分配內存
shared_arr = [(i, i=1, 100)]
print *, "Shared array:", shared_arr
! 不需要手動deallocate，程序結束時自動釋放
end program auto_dealloc
ISO_C_BINDING接口：通過c_malloc/c_free函數調用C語言的內存管理功能，適用于需要與C代碼交互或精細控制內存的場景（如分配非默認類型的內存）。示例：module c_memory
use, intrinsic :: iso_c_binding
implicit none
contains
subroutine alloc_via_c(n, ptr)
integer(c_size_t), value :: n
type(c_ptr), intent(out) :: ptr
ptr = c_malloc(n * c_sizeof_int) ! 調用C的malloc分配內存
if (.not. c_associated(ptr)) then
print *, "C memory allocation failed"
stop
end if
end subroutine
subroutine free_via_c(ptr)
type(c_ptr), value :: ptr
call c_free(ptr) ! 調用C的free釋放內存
end subroutine
end module c_memory
5. 優化數組操作以減少內存開銷
Fortran的數組操作是其核心優勢之一，合理使用數組操作可顯著減少內存分配和復制次數：
A = B + C）代替do循環，編譯器會自動向量化操作，不僅提高性能，還減少了臨時數組的創建（臨時數組會占用額外內存）。例如：program vectorized_op
implicit none
real, allocatable :: a(:), b(:), c(:)
integer :: n
n = 1000000
allocate(a(n), b(n), c(n))
b = [(i*1.0, i=1, n)]
c = [(i*2.0, i=1, n)]
a = b + c ! 向量化操作，無臨時數組
print *, "Sum of a:", sum(a)
deallocate(a, b, c)
end program vectorized_op
A(10:20, 5:10)）訪問數組的部分區域，無需復制數據，減少了內存占用。例如：program subarray_demo
implicit none
real, allocatable :: big_array(:,:)
real, allocatable :: sub_array(:,:)
integer :: n, m
n = 1000
m = 1000
allocate(big_array(n, m))
big_array = reshape([(i, i=1, n*m)], [n, m])
! 使用子數組視圖（不復制數據）
sub_array = big_array(100:200, 50:150)
print *, "Subarray sum:", sum(sub_array)
deallocate(big_array)
end program subarray_demo
6. 使用內存檢查工具定位泄漏
在Debian系統中，Valgrind是檢測Fortran內存泄漏和非法內存訪問的必備工具。使用Valgrind的--leak-check=full選項可詳細報告未釋放的內存塊、內存泄漏的位置及原因。例如：
# 編譯時添加調試符號（-g），便于Valgrind定位問題
gfortran -g -o my_program my_program.f90
# 使用Valgrind運行程序
valgrind --leak-check=full ./my_program
Valgrind的輸出會顯示內存泄漏的具體行號（需編譯時包含調試信息），幫助開發者快速修復問題。定期使用Valgrind檢查是確保Fortran程序內存安全的重要步驟。
