在fortran77项目中使用OpenACC，但没有效果，也没有输出内核信息

我有一个fortran77油藏模拟项目，希望使用openacc指令加速实施，编译器是PGI visual fortran，一个子例程如下：

子程序jbild（a、b、impl、， [ia、ja、neqa、kvst、ka、ibkmax、nja、ndima、nbmxc、， [isymm）

但是当我添加openacc指令时，我看不到输出信息和数据复制信息，控制台中也没有输出内核执行时间信息。我设置了环境变量和命令行参数，以确保信息输出：

    !$acc parallel loop
    do iphas=1, nph
      fsum(iphas) = 0.0d0
      fsums(iphas) = 0.0d0
      fdsum( iphas ) = 0.0d0
      fdsav(iphas) = 0.0d0

      do index=1,  ia(i+1)-1 - ( ia(i) )
        fsav(iphas, index) = 0.0d0
      enddo

    enddo
   !$acc end parallel 

---

数组存储在.com文件中。我不知道为什么openacc没有努力，以及goto语句有什么影响，我是否要删除goto语句程序以修改使用openacc的程序

Hi WeiH CUG，您有什么类型的PGI许可证？openacc仅在“加速器”中可用您的代码不是FORTRAN 77，在FORTRAN 77中没有任何用处。

    !$acc parallel loop
    do iphas=1, nph
      fsum(iphas) = 0.0d0
      fsums(iphas) = 0.0d0
      fdsum( iphas ) = 0.0d0
      fdsav(iphas) = 0.0d0

      do index=1,  ia(i+1)-1 - ( ia(i) )
        fsav(iphas, index) = 0.0d0
      enddo

    enddo
   !$acc end parallel