|
源码就不往上贴了,太大。
定义一个数组,并用data赋值(r8是一个kind的数值)
---------------------------------------------------------------------------------------------------------
real (r8), dimension (45, 45, 91) :: saar_ref
data saar_ref / &
8.9999999999999998e+90_r8, 8.9999999999999998e+90_r8, 8.9999999999999998e+90_r8, &
8.9999999999999998e+90_r8, 8.9999999999999998e+90_r8, 8.9999999999999998e+90_r8, &
.....................此处省略好多........................................&
/
---------------------------------------------------------------------------------------------------------
现在的问题是,编译这个文件,报错:
---------------------------------------------------------------------------------------------------------
yangxd@latecomer03:modules> ifort -c gsw_mod_saar_data.f90
gsw_mod_saar_data.f90(4421): catastrophic error: Statement too long
8.9999999999999998e+90_r8, 8.9999999999999998e+90_r8, 8.9999999999999998e+90_r8, &
-----------------------------------------------------^
compilation aborted for gsw_mod_saar_data.f90 (code 1)
---------------------------------------------------------------------------------------------------------
这个地方的statement too long是什么原因呢?
真心找不到原因,谢谢各位了。
|
|