If (side_rank .EQ. 'N') Then
H1E=H1Imp
S1E=S1Imp
Else
Do I=1, N
Do J=1, N
H1E(I, J)=DCONJG(H1Imp(J, I))
S1E(I, J)=DCONJG(S1Imp(J, I))
EndDo
EndDo
EndIf
这个是if的条件语句啊,当括号()内的内容成立时,即side_rank是字符'N'时,执行
H1E=H1Imp
S1E=S1Imp
除此之外的情形执行以下赋值循环
Do I=1, N
Do J=1, N
H1E(I, J)=DCONJG(H1Imp(J, I))
S1E(I, J)=DCONJG(S1Imp(J, I))
EndDo
EndDo
然后结束该次判断(endif)
鄙人愚见,仅供参考。如有不恰当的地方,请见谅。