performance measurements

Each table row shows performance measurements for this Fortran Intel program with a particular command-line input value N.

 N  CPU secs Elapsed secs Memory KB Code B ≈ CPU Load
1,000Bad Output  485   

Read the ↓ make, command line, and program output logs to see how this program was run.

Read mandelbrot benchmark to see what this program should do.


Intel(R) Fortran Compiler XE for applications running on IA-32, Version Build 20150121
Copyright (C) 1985-2015 Intel Corporation. All rights reserved.

 mandelbrot Fortran Intel program source code

! The Computer Language Benchmarks Game
! Simon Geard, 6/1/05
! Adapted  mandelbrot.c by Greg Buchholz
! Building info.
! ==============
! Linux  - using the Intel Fortran90 compiler:
!          ifort mandelbrot.f90 -O3 -static-libcxa -o mandelbrot
program mandelbrot
  implicit none
  integer w, h, x, y, bit_num
  integer(kind=1) byte_acc
  integer(kind=1), parameter :: K0 = 0
  integer(kind=1), parameter :: K1 = 1
  integer, parameter :: iter = 50
  real*8, parameter  :: limit2 = 4.0d0
  integer  i
  character(len=8) argv
  complex(kind=8) Z, C
  logical debug, in_mandelbrot

  call getarg(1,argv)
  read(argv,*) w
  h = w
  bit_num = 0
  byte_acc = K0
  ! Output pbm header
  write(*,'(a)') 'P4'
  write(*,'(i0,a,i0)') w,' ',h
  do y=0,h-1
     do x=0,w-1
        C = cmplx(2.0d0*x/w-1.5d0,2.0d0*y/h-1.0d0)
        Z = (0.0d0,0.0d0)
        in_mandelbrot = .true.
        do i=0,iter-1
           Z = Z**2 + C
           if (real(Z*conjg(Z)) > limit2) then
              in_mandelbrot = .false.
           end if
        end do
        if (in_mandelbrot) then
           ! Inside the set so set this bit to 1
           byte_acc = ior(ishft(byte_acc,1),K1)
           ! Outside the set so set this bit to 0
           byte_acc = ishft(byte_acc,1)
        end if

        bit_num = bit_num + 1
        if (bit_num == 8) then
           ! All bits set so output them
           write(*,'(a1)',advance='no') char(byte_acc)
           byte_acc = K0
           bit_num = 0

        elseif (x == w-1) then
           ! End of a row so left-justify the bits we have and output them
           byte_acc = ishft(byte_acc,8-mod(w,8))
           write(*,'(a1)',advance='no') char(byte_acc)
           byte_acc = K0
           bit_num = 0

        end if

     end do
  end do
end program mandelbrot

 make, command-line, and program output logs

Tue, 24 Mar 2015 23:57:49 GMT

/usr/local/src/intel/bin/ifort -O3 -fast -openmp mandelbrot.f90 -o mandelbrot.ifc_run
rm mandelbrot.f90
0.33s to complete and log all make actions

./mandelbrot.ifc_run 1000


_out 1000_out differ: byte 8984, line 3


Revised BSD license

  Home   Conclusions   License   Play