openmp长指令列表fortran77的语法

问题：指令的长列表openmp fortran77

c$omp parallel default(shared) private(i,k,i1,i2,i3,i4,i5,
     $ i6,x0,y0,z0,vnx0,vny0,vnz0,qs0)
c$omp do
      Task to be performed
c$omp end do
c$omp end parallel

我正在尝试使用ifort编译上面的程序，它运行良好。我已经检查了串行版本，得到了相同的结果

ifort -openmp -parallel -o ./solve 

但是当我尝试使用gfortran编译时，它不起作用

gfortran -fopenmp 

我得到以下错误

quinckedrop.f:2341.57:

*$omp parallel default(shared) private(i,k,i1,i2,i3,i4,i5               
                                                         1
Error: Syntax error in OpenMP variable list at (1)
quinckedrop.f:2342.6:

     $        ,i6,x0,y0,z0,vnx0,vny0,vnz0,qs0)                          
      1
Error: Bad continuation line at (1)
quinckedrop.f:2342.15:

     $        ,i6,x0,y0,z0,vnx0,vny0,vnz0,qs0)                          
               1
Error: Invalid character in name at (1)
quinckedrop.f:2381.72:

*$omp end parallel                                                      
                                                                        1
Error: Unexpected !$OMP END PARALLEL statement at (1)
quinckedrop.f:2768.6:

     $        private(i,k,i1,i2,i3,i4,i5,i6,x0,y0,z0,vnx0,vny0,vnz0)    
      1
Error: Bad continuation line at (1)
quinckedrop.f:2768.21:

     $        private(i,k,i1,i2,i3,i4,i5,i6,x0,y0,z0,vnx0,vny0,vnz0)    
                     1
Error: PRIVATE statement at (1) is only allowed in the specification part of a module
quinckedrop.f:4302.6:

     $        private(i,k,i1,i2,i3,i4,i5,i6,x0,y0,z0)                   
      1
Error: Bad continuation line at (1)
quinckedrop.f:4302.21:

     $        private(i,k,i1,i2,i3,i4,i5,i6,x0,y0,z0)                   
                     1
Error: PRIVATE statement at (1) is only allowed in the specification part of a module
quinckedrop.f:5738.6:

     $        private(i,k,i1,i2,i3,i4,i5,i6,x0,y0,z0                    
      1
Error: Bad continuation line at (1)
quinckedrop.f:5738.21:

     $        private(i,k,i1,i2,i3,i4,i5,i6,x0,y0,z0                    
                     1
Error: PRIVATE statement at (1) is only allowed in the specification part of a module

---

不适用于我（可能是因为我使用fortran77）

您的问题简单地归结为固定格式源Fortran代码的OpenMP延续语法如下：

c$omp parallel blah
c$omp+private( blah )
c$omp+reduction( blah )

c$omp parallel default(shared) private(i,k,i1,i2,i3,i4,i5,
c$omp+ i6,x0,y0,z0,vnx0,vny0,vnz0,qs0)
c$omp do
      Task to be performed
c$omp end do
c$omp end parallel

更准确地说，以下三种指令形式是等效的：

c$omp
!$omp
*$omp

但在任何情况下，必须使用第6列中的额外字符拆分跨多行的指令，如前所示。此字符不能是空格或零。（感谢赫里斯托·伊利耶夫在这方面纠正了我的错误。起初，他错误地说，延续字符应该是

+

）

添加各种必要的

c$omp+

延续行应该可以解决您的问题

这应该是这样的：

c$omp parallel blah
c$omp+private( blah )
c$omp+reduction( blah )

c$omp parallel default(shared) private(i,k,i1,i2,i3,i4,i5,
c$omp+ i6,x0,y0,z0,vnx0,vny0,vnz0,qs0)
c$omp do
      Task to be performed
c$omp end do
c$omp end parallel

---

您需要使用右行延续语法。如果没有其他人先发布，我将在稍后提供确切的解决方案。自由形式在延续符号处，不一定是

+

。除了空格和零之外，任何有效的Fortran符号都可以使用。@hristoilev哇，你（一如既往）完全正确。问题是，我总是参考OpenMP标准，因为我不是一个固定格式的Fortran程序员，我从不太确定。问题是，标准中给出的固定格式的连续行的唯一示例是使用

+

作为连续字符，因此我一直天真地认为这是预期的格式。事实上，在我看到的所有固定格式OpenMP代码中，延续行都带有

+

。这就是标准中示例的威力！无论如何我都会解决的谢谢Gilles的解决方案有效！工作：c$omp并行默认（共享）私有（i，k，i1，i2，i3，i4，i5，c$omp+i6，x0，y0，z0，vnx0，vny0，vnz0，qs0）不工作（如其他论坛中所建议的）：c$omp并行默认（共享）私有（i，k，i1，i2，i3，i4，i5，&c$omp&i6，x0，y0，z0，vnx0，vny0，vnz0，qs0）