Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 8th, 2012  |  syntax: None  |  size: 0.79 KB  |  hits: 11  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Fortran: initializing of and assigning value to arrays
  2. integer, parameter :: DRK = selected_real_kind (14)
  3.        
  4. integer, parameter :: DRK = selected_real_kind (14)
  5.        
  6. integer, parameter :: DRK = selected_real_kind (14)
  7.        
  8. integer, parameter :: DRK = selected_real_kind (14)
  9.        
  10. integer, parameter :: DRK = selected_real_kind (14)
  11.        
  12. integer, parameter :: DRK = selected_real_kind (14)
  13.        
  14. r = 3.1415927654
  15.        
  16. r = 3.141592654_8
  17.        
  18. do i = 1 , 100
  19.   do j = 1 , 100
  20.     do k = 1 , 100 ! innest is fastest
  21.       array ( i , j , k ) = 0.0d0
  22.     end do
  23.   end do
  24. end do
  25. ! reference time : 1.00
  26.        
  27. do i = 1 , 100
  28.   do j = 1 , 100
  29.     do k = 1 , 100
  30.       array ( k , j , i ) = 0.0d0
  31.     end do
  32.   end do
  33. end do
  34. ! time : 0.499
  35.        
  36. array = 0.0d0
  37. ! time : 0.250
  38.        
  39. array ( : , : , : ) = 0.0d0
  40. ! time : 0.250
create a new version of this paste RAW Paste Data