Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Find HM
PROGRAM fun IMPLICIT NONE INTEGER::A(5),N,I REAL::S,HM READ*,N READ(*,*)(A(I),I=1,N) S=0 DO I=1,N,1 S=S+(1/REAL(A(I))) END DO HM=N/S PRINT*,'THE HM IS =', HM END PROGRAM fun
run
|
edit
|
history
|
help
0
machine epsilon
euler-cromer
Gauss forward elimination
A_01 NEWTON_R_M(B(I))
Me
euler-cromer
Fortran!
Ghhhb
Check identity matrix or not?
New