OpenMP :
N개의 CPU를 가진 하나의 컴퓨터에서
대용량의 메모리를 공유하며 N개의 CPU(Shared Memory Multiprocessors System)를
동시에 사용하여 컴퓨팅할 수 있도록 하는 API(application programming interface)이다.
이를 사용하여 아주 쉽게(MPI:message passing interface 보다 쉽게)
Fortran 또는 C/C++ 에서 병렬계산을 할 수 있도록 하는 인터페이스이다.
메모리병목현상으로 인하여 현재의 기술로 32 Processors까지 지원
MPI :
여러대의 컴퓨터(Nodes)에서 각각의 분산된 메모리를 사용하여 컴퓨팅한 결과들을
네트웍을 통하여 Head Node에서 제어하도록 하는 Distributed Memory System의
인터페이스이다.
In HPPC(4*Itanium2 Processors 64bit Server) with Inter Fortran ia64 for Linux,
to compile a fortran source file :
efc -FR -openmp -fpp -o appl appl.f
% -FR : Free format fortran
Program Hello
Implicit None
Integer :: omp_get_thread_num()
print *, "Hello"
!$omp parallel
print *, omp_get_thread_num()
!$omp end parallel
print *, "Bye"
End Program Hello
Remark]
1. omp_get_thread_num : 현재 사용중인 프로세서의 번호
2. !$omp parallel 에서 " !$ " 의 사용하는 까닭중 하나는
openmp가 안되는 곳에서 주석으로 사용하기 위함
3. 결과(4CPU)
Hello
1
3
0
2
Bye
openMP directive :
!$omp directives
만약 openMP Compile을 지원하지 않으면
위의 지시내용은 하나의 주석으로 인식됨
openMP prefix :
!$ directives
위와 같고 openMP Compile을 지원하면 !$ 는 빈공간(white space)으로
되고 뒤의 지시내용을 실행함
예]
<Correct>
1.
!$ iam = omp_get_thread_num()
2.
y = x &
!$& + offset
<InCorrect>
y = x + !$ + offset
! sam1.f
Program Main
Implicit None
Integer :: a, b
Real :: c, d
Integer :: omp_get_thread_num
a = 0
Print *, "Hello"
!$omp parallel
!$ a= omp_get_thread_num()
!$ a = a + 5
print *, a
!$omp end parallel
end
Command>
1. efc -o sam1 sam1.f
Result ==>
Hello
0
2. efc -openmp -fpp -o sam1 sam1.f
Result ==>
Hello
7
5
8
6
Program Main
Implicit None
Integer :: i,n=40
Real :: z(n), a, x(n), y
a = 1.0 ; y = 0.1
Do i=1,n ; x(i)=log(1.0*i) ; EndDo
!$omp parallel Do
Do i=1,n
z(i) = a*x(i)+y
print *, i, z(i)
EndDo
End Program
|
  |
|
메일보내기
이름검색
성적소팅 C-language
Anaconda for Python 3.6
