Фортран выделить/освободить

У меня следующий вопрос :Каковы реальные накладные расходы на операторы выделения/освобождения в Fortran90+? То есть внутри цикла выделяется несколько массивов среднего -размера, например

do i = 1, 1000
    allocate(tmp(20))
    tmp(1:20) = 1d0
    call foo(tmp)
    deallocate(tmp)
end do 

Стоит ли в этом случае выделять один рабочий массив исходя из максимального размера?