Question

fortran的问题

program mian
implicit double precision (a-h,o-w)
implicit double complex (x-z)
dimension(4) :: a=(/15.539616,3.599934,1.013762,0.270006/)
dimension(4) :: axh=(/0.070874,0.339753,0.727159,1.0/)
dimension(2) :: adh=(/-0.883671,1.53165/)
dimension(4) :: xc
pi=3.141592653
xc(1)=adh(1)*axh(1)*(2.0/a(1)/pi**3)**0.25
& *(-dcmplx(0.d0,1.d0)/2.0/a(1))
xc(2)=adh(1)*axh(2)*(2.0/a(2)/pi**3)**0.25
& *(-dcmplx(0.d0,1.d0)/2.0/a(2))
xc(3)=adh(1)*axh(1)*(2.0/a(3)/pi**3)**0.25
& *(-dcmplx(0.d0,1.d0)/2.0/a(3))
xc(4)=adh(1)*axh(1)*(2.0/a(4)/pi**3)**0.25
& *(-dcmplx(0.d0,1.d0)/2.0/a(4))
end
这个程序四个数组部分会出现提示
test\Text2.f(6):error FOR2588: Type declaration statement cannot occur here

Answer 1

你可以将格式控制里面的数据输出个数设置成一个很大的数，比如你要输出一个向量V，但是V的元素个数一开始不知道。那么你可以写如下命令
write(*,"(99F10.4)") V
只要你的向量V中元素个数不超过99个都可以在一行输出，99可以根据你对向量的估计换成其他数字。

对于如write(*,"(nF10.4)") V 换行的规则是:输出的数据个数大于n，或向量V输出完毕后换行

追问

好像不是在回答我的问题呀