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
my_first_code
A_03 1(I)
A_04 GUASSIAN QUADRATURE METHOD
Question1(c)
A_02 JACOBI METHOD
Dynamical Memory Allocation fortran
Regression
Ashish.txt
divisibility rule
finitos