中图种学学计算机科学与术系 University of Science and Technology of China DEPARTMENT。 F COMPUTE三巴 ENCE AND ECHNOLDD peMP程序结构 基于 Fortran语言的 OpenMP程序的结构 PROGRAMHELLO INTEGER VARI VAR2 VAR3 I Serial code Beginning of parallel section. Fork a team of threads I Specify variable scoping ISOMP PARALLEL PRIVATE(VARI, VAR2) SHARED(VAR3) I Parallel section executed by all threads d All threads join master thread and disband I SOMP END PARALLEL I Resume serial code END 国家高性能计算中心(合肥) 2021/2/3国家高性能计算中心（合肥） 11 2021/2/3 OpenMP程序结构 ▪ 基于Fortran语言的OpenMP程序的结构 PROGRAM HELLO INTEGER VAR1, VAR2, VAR3 !Serial code … !Beginning of parallel section. Fork a team of threads. !Specify variable scoping !$OMP PARALLEL PRIVATE(VAR1, VAR2) SHARED(VAR3) !Parallel section executed by all threads … !All threads join master thread and disband !$OMP END PARALLEL !Resume serial code … END