在PGI中排得太长了16.9。怎么解决？

Question

USe下面的虚拟代码来复制这个问题。

program pp
  implicit none
  real*8,dimension(45) :: refPoints
  refPoints(:) = (/ -1.0 , 1.0 , 1.0 , -1.0 , -1.0 , 1.0 , 1.0 , -1.0 , 0.0 , 1.0 , 0.0 , -1.0 , 0.0 , 1.0 , 0.0 , -1.0 , -1.0 , 1.0 , 1.0 , -1.0 , 0.0 , 1.0 , 0.0 ,-1.0 , 0.0 , 0.0 , 0.0 , 0.0 , 0.0 , 1.0, 1.0, 2.0 , 3.0, 34.0, 35.0, 25.0, 1.0, 50.0, 5.0, 55.0 , 1.0 , 2.0, 3.0, 4.0, 5.0/)

end program pp

pp 90-S-0285-源行过长(pp.f90: 6) pp 90-S-0023-语法错误-不平衡括号(pp.f90: 6) 0通知，0警告，2断点，0致命的pp

Answer 1

132个列是F90标准的限制，超过这个限制是未定义的行为。虽然很痛苦，但从长远来看，通过添加延续使您的代码符合要求会更好。