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

debugcn 发表于 Dev

用户名

我需要一些帮助来在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

弗拉基米尔F

您必须使用正确的方式继续行。如果使用固定形式（通常.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教程中阅读有关正确的来源表格的更多信息。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。