if(iloop.gt.jnis) then call sample_medi end if if(iloop.gt.jnis) then if(mod((iloop-jnis),no_s_qa).eq.0) then if(mod((iloop-jnis),no_s_qa2).eq.0) then call out_put endif no_t=(iloop-jnis)/no_s_qa call analysis_acc(no_t) endif endif if(iloop.lt.nloop) goto 100

这是一段Fortran代码，它使用了`if`和`goto`语句来控制程序执行的流程。具体来说，这段代码首先判断`iloop`是否大于`jnis`，如果是，则调用`sample_medi`子程序。然后，它再次判断`iloop`是否大于`jnis`，如果是，则进一步判断`(iloop-jnis)`是否能被`no_s_qa`整除，如果能，则调用`analysis_acc`子程序，并将`(iloop-jnis)`除以`no_s_qa`的结果赋值给`no_t`变量。如果`(iloop-jnis)`还能被`no_s_qa2`整除，则调用`out_put`子程序。最后，如果`iloop`小于`nloop`，则跳转到标号`100`处继续执行。

`if`语句的语法如下：

if (condition) then
    ! 如果condition为真，则执行这里的代码
else
    ! 如果condition为假，则执行这里的代码
end if

其中，`condition`是要判断的条件，如果是真，则执行`then`和`end if`之间的代码；否则，执行`else`和`end if`之间的代码（如果有`else`的话）。在这段代码中，`condition`是`iloop.gt.jnis`，即`iloop`是否大于`jnis`。

`goto`语句的语法如下：

goto label

其中，`label`是一个标号，可以在程序中使用`continue`语句定义。`goto`语句的作用是跳转到标号所在的行继续执行。在这段代码中，`goto 100`表示跳转到标号为`100`的行继续执行。