Skip to content

Instantly share code, notes, and snippets.

@nibalizer

nibalizer/fortran_fact.f

Created January 21, 2011 07:49
Show Gist options
  • Save nibalizer/789381 to your computer and use it in GitHub Desktop.
Save nibalizer/789381 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fortran_fact.f
C File fortran_fact.f
subroutine fact (n)
integer fact, n, p
p = 1
do i = 1, n
p = p * i
end do
fact = p
print*, p
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment