Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Jánošík 2018
!gfortran, gcc version 5.4.0 20160609 program hh print *, "Hello World!" open (unit=66,file='out4.dat') n=1000000 call random_seed () zkbuff=0 call random_number(zk) do i=1,100*n+1 call random_number(p) if(zk.gt.p)zkbuff=zkbuff-zk if(zk.lt.p)zkbuff=zkbuff+p zk=p if(mod(i,n/10).eq.1) write(6,*)i,zkbuff if(mod(i,n/10).eq.1) write(66,*)i,zkbuff enddo end
run
|
edit
|
history
|
help
0
Sir,please can you tell me What is your want to programme here? Subject matter?
by Mr.X2, 2 years ago
Please
log in
to post a comment.
Sum of inverse square series
NEWTON SECOND LAW
euler-cromer
Fortran
Check identity matrix or not?
testcompiler.f90
C
NEWTON FORWARD DIFFERENT INTERPOLATION
DO CONTINUE
euler-cromer
Sir,please can you tell me What is your want to programme here? Subject matter?
by Mr.X2, 2 years agoPlease log in to post a comment.