Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
We subroutine
Program QE Implicit none Real a, b, c, x1, x2, disc a=1.0 b=5.0 c=2.0 Call D(a,b,c,disc) If(disc .lt. 0) then Write (*, *) "roots are imaginary" Else x1=(-b+sqrt(disc))/2*a x2=(-b-sqrt(disc)) /2*a Endif Write (*, *) X1, X2,disc End Program QE Subroutine D(p,q,r,s) Real, intent(in):: p,q,r Real, intent(out)::s s=q*q- 4.0*p*r End subroutine
run
|
edit
|
history
|
help
0
Fib series
Test
Rvc new
A_01 NEWTON_RM(B(II))
Practice 4(I) recently
Palindromic number
A_01 QN:1(I) BISECTION METHOD
A
Q5
Practice