Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
DO WHILE DO
4(ii)
Ashish.txt
Practice cheby
Currency conversion
Hello / fortran
problem_3
G p
Palindromic number
9