Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Subroutine problem
PROGRAM TEST IMPLICIT NONE INTEGER::A,B,S READ*,A,B S=0 CALL FUN(A,B,S) PRINT*,S END PROGRAM TEST SUBROUTINE FUN(A,B,S) IMPLICIT NONE INTEGER::A,B,S S=A+B END SUBROUTINE FUN
run
|
edit
|
history
|
help
0
Rand
Shooting
A_02 GUASSIAN ELIMINATION METHOD
Gauss forward elimination
gghhhhh
A_02 Newton's practice
s
NEWTON FORWARD DIFFERENT INTERPOLATION
A_01 SECANT_METHOD
The Sum of the chain (fortran)