想请教一下这个if函数的逻辑和参数传递

fcode

没太听懂你的意思。
if判断并不会先执行2处的 else if，只会在 if 条件不满足时执行 else if。

你想要另一个分支的值，通常做法是把计算这个需要的值的代码放在 if 前面。
这样不管进入哪个分支，都会先计算这个值。每个分支都能使用。

你可能需要定义额外的变量来存储它

fcode

用文字表达算法，就是不太清楚。我不是很清楚你想要的算法是什么样子。
如果你要先找到一个符合条件的 i 。你要不要考虑用2次循环？

第一次先找到符合条件的 i，并保存在 k 里，然后计算对应的 qulv 值。
然后第二次循环，做下一步使用 k 和 qulv 值的计算。

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

k = 0
do i = 1 , reso
  if( X_I(I)>L2 ) then
    k=i
    qulv = ...
    exit
  end if
end do
do i = 1 , reso
  m_jisuan(k ??? i ...
end do