请教Fortran编程高手并问一下OpenMP的问题# Programming - 葵花宝典
gw
1 楼
有一段大概这样的Fortran code,
subroutine A
Part B
do i=1,N1
Part C1
enddo
do i=1,N2
Part C2
enddo
contains
function d1
subrounine e1
endsubroutine A
这里面 part B, C1, C2都用到了contains里的functions and subroutines.其中C1和
C2是一段比较长的代码，并且有很大的相似性，但功能有一点不同。直接这样写，看着
这个程序总有点别扭，因为C1,C2两大段总让人有重复的感觉。于是想写一个新的
subroutine C来取代这两部分，使整个程序变成这样的。
subroutine A
Part B
do i=1,N1
call C(1)
enddo
do i=1,N2
call C(2)
enddo
contains
function d1
su
subroutine A
Part B
do i=1,N1
Part C1
enddo
do i=1,N2
Part C2
enddo
contains
function d1
subrounine e1
endsubroutine A
这里面 part B, C1, C2都用到了contains里的functions and subroutines.其中C1和
C2是一段比较长的代码，并且有很大的相似性，但功能有一点不同。直接这样写，看着
这个程序总有点别扭，因为C1,C2两大段总让人有重复的感觉。于是想写一个新的
subroutine C来取代这两部分，使整个程序变成这样的。
subroutine A
Part B
do i=1,N1
call C(1)
enddo
do i=1,N2
call C(2)
enddo
contains
function d1
su