如何在fortran 90中声明复杂类型数组

Question

我需要一些帮助来在Linux上的Fortran中初始化复杂的1-D数组

complex(kind=dp),dimension(8),public:: zc = (/(0.0_dp,0.0_dp) ,(-3.496991526333D001,0.0_dp) ,
( -3.944481647220D+000 , 0.0_dp ) , (-4.294180799072D+000 , 0.0_dp ) , 
(-4.294180799072D+000, -1.0_dp) , ( -3.944481647220D+000,-1.0_dp ) , 
(-3.496991526333D-           001,-1.0_dp ) , (0.0_dp,-1.0_dp)/) ! z computational 

以上声明适用于Fortran Power Station（Windows版），但不适用于Linux。 它给出了以下错误

Missing ')' in statement at or before (1) 

注意： “ 1”是黑白的第3和第4个复数。 该程序的扩展名为.f90

Answer 1

您必须使用正确的续行方式。 如果您使用固定形式（通常是.f ， .form ），请将任何字符放在新行的第六列，然后是语句。 您可能会使用它，否则-3.496991526333D- 001无法正常工作，因为空格对于自由格式很重要。 但是! 表示自由格式的注释。 如果您使用自由格式，请更正数字。 确保不要以固定格式越过第72栏。

例如：

      complex(kind=dp),dimension(8),public:: zc = (/(0.0_dp,0.0_dp) ,(-3.496991526333D001,0.0_dp) ,
     *  ( -3.944481647220D+000 , 0.0_dp ) , (-4.294180799072D+000 , 0.0_dp ) , 
     *  (-4.294180799072D+000, -1.0_dp) , ( -3.944481647220D+000,-1.0_dp ) , 
     *  (-3.496991526333D-001,-1.0_dp ) , (0.0_dp,-1.0_dp)/) 
C z computational 

以自由格式（通常为.f90 ） &在该行的&处继续下一个。

complex(kind=dp),dimension(8),public:: zc = (/(0.0_dp,0.0_dp) ,(-3.496991526333D001,0.0_dp) , &
( -3.944481647220D+000 , 0.0_dp ) , (-4.294180799072D+000 , 0.0_dp ) , &
(-4.294180799072D+000, -1.0_dp) , ( -3.944481647220D+000,-1.0_dp ) , &
(-3.496991526333D-001,-1.0_dp ) , (0.0_dp,-1.0_dp)/) !z computational

您应该在任何Fortran教程中阅读有关正确的来源表格的更多信息。