Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Fact funsub
!gfortran, gcc version 5.4.0 201606 program fact_value implicit none integer::fact,n,i,p n=4 print*,n,fact(n) end program fact_value integer function fact(n) implicit none integer::n,i,p=1 do i=n,1,-1 p=p*i end do fact=p end function fact
run
|
edit
|
history
|
help
0
Matrix problem
Fyyh
s
euler-cromer
euler-cromer
fortran-genetic-algo
A_01 FIXED_POINT_IM(II)
euler-cromer
Shooting
New3