Public Pastes
Guest

Pi Single Thread Fortran

By: a guest on Apr 7th, 2010  |  syntax: Fortran  |  size: 0.25 KB  |  hits: 167  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. program pi_singlethread
  2.     implicit none
  3.    
  4.     integer limit
  5.     integer i
  6.     real :: pi=0
  7.    
  8.  
  9.     limit = 20000000
  10.    
  11.     do i=0, limit
  12.         pi = pi + 4.0 / (4.0*i + 1.0);
  13.         pi = pi - 4.0 / (4.0*i + 3.0);
  14.     enddo
  15.    
  16.     print*, pi
  17. end
create a new version of this paste RAW Paste Data