Fypp
1 program
Added 2026-03-13T10:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 2e521f4177 · authored 2026-03-13T05:43:36+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Generic math utilities module using type/kind iteration
Provenance: commit 2e521f4177 · authored 2026-03-13T05:43:36+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
#:set KINDS = ['int32', 'int64', 'sp', 'dp']
#:set TYPES = ['integer', 'integer', 'real', 'real']
module math_utils
use iso_fortran_env, only: int32, int64, sp => real32, dp => real64
implicit none
#:for TYPE, KIND in zip(TYPES, KINDS)
pure function sum_${TYPE}$_${KIND}$(arr) result(res)
${TYPE}$(${KIND}$), intent(in) :: arr(:)
${TYPE}$(${KIND}$) :: res
integer :: i
res = 0
do i = 1, size(arr)
res = res + arr(i)
end do
end function sum_${TYPE}$_${KIND}$
#:endfor
end module math_utils