none
parallélisation d'un code Fortran RRS feed

  • Question

  • Bonjour à tous,

    Je souhaiterais avoir un bout de code intel fortran utilisant la parallélisation en section pour un gain en temps de calcul et si possible la configuration necessaire de la fenêtre des propriétés.

    Mon code suivant ne montre aucun gain en temps de calcul 

    program doparallelsection
    
    
    implicit none
    
    INTEGER N, I, J, K, parallel
    
    PARAMETER (N=1000)
    
    REAL*8 A(N,N),B(N,N),C(N,N), ti, tf
    
    parallel = 0
    
    call cpu_time(ti)
    
    !$OMP PARALLEL SECTIONS
    
    if (parallel==1) then
    
    !$OMP SECTION
    
    do k=1,1000
    
    do i= 1, N
    
    do j=1,N 
    
    A(i,j) = i+j
    
    enddo 
    
    enddo
    
    enddo
    
    
    !$OMP SECTION
    
    do k=1,1000
    
    do i= 1, N
    
    do j=1,N 
    
    A(i,j) = i+j
    
    enddo 
    
    enddo
    
    enddo 
    
    !$OMP END PARALLEL SECTIONS
    
    else
    
    do k=1,1000
    
    do i= 1, N
    
    do j=1,N 
    
    A(i,j) = i+j
    
    enddo 
    
    enddo
    
    enddo
    
    
    do k=1,1000
    
    do i= 1, N
    
    do j=1,N 
    
    A(i,j) = i+j
    
    enddo 
    
    enddo
    
    enddo 
    
    
    endif 
    
    
    call cpu_time(tf)
    
    endif
    
    write*, "temps cpu="
    
    write*, tf-ti
    
    
    END
    
    

    Merci

    mardi 27 juillet 2010 23:55

Toutes les réponses

  • Bonjour,

    Fortran n'est pas un produit/langage Microsoft. Je vous conseille de poser votre question directement sur le support/communauté Fortran.

    Cordialement


    Gilles TOURREAU - MVP C# - MCTS ADO .NET 3.5 - MCPD Windows Developper 3.5 - Architecte .NET/Consultant/Formateur - http://gilles.tourreau.fr
    mercredi 28 juillet 2010 07:22
    Modérateur