如何在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教程中閱讀有關正確的來源表格的更多信息。