Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
IF GO TO
program IF_GO_TO real :: Q, DP Q = 750 DP = 1500 WRITE(*,*)" Q : HP" WRITE(*,*)"" 20 HP = (DP*Q)/1714 WRITE(*,*) Q, HP Q = Q-150 IF (Q>=0) GOTO 20 END PROGRAM
run
|
edit
|
history
|
help
0
A_01 FIXED_POINT_IM(II)
A_02 JACOBI METHOD
A_04 FINITE DIFFERENCE METHOD
problem_2
A_04 GUASSIAN QUADRATURE METHOD
A_04 GUASSIAN QUADRATURE METHOD FOR 3(I) AND 3(II)
Me
A program to calculate potential energy.
Finite difference practice
5