Otros

Coarrays

Varias instancias de ejecución en paralelo


program pi_sum
    integer, parameter:: limit = 1000
    integer:: i
    real:: pi[*]

    do i = this_image(), limit, num_images()
        pi = pi + (-1)**(i+1) / real( 2*i-1)
    end do
    sync all

    ! global barrier
    if (this_image() == 1) then
        do i = 2, num_images()
            pi = pi + pi[i]
        end do
        pi = pi * 4.0
        print *, "Result", pi
    end if

end program pi_sum

Medida del tiempo en ejecución cpu_time


real(REAL64):: t(2)

call cpu_time(t(1))
call test
call cpu_time(t(2))
print '("time iamax: ",G0)', t2-t1

Otras fuentes

Instalar Open Blas

Para instalar OpenBlas debes seguir los siguientes pasos descargando previamente la fuente desde Mpich y después:

./configure
make
sudo make install

Pulgin identación en VIM

\= Para identar todo el fichero fuente
\c para comentar líneas
\f cambia flags del plugin identado
\w cambia (toggle) identación de línea o fichero completo

Para más instrucciones probar $findent --vim_help