关于fortran的GOTO语句问题

Question

 10    continue
        if (t .lt. tmax) then
           call STOREs (MaxCan, imax, imax, t, tmax, dist, disall,
            cands, MaxCan, n)
        endif
  if (dist(1) .le. end_1) goto 10

  return

        对于上述代码，请问大神们，对于最后的if语句满足条件的话是返回10标号行以及后面的语句还是执行continue后往下继续执行，另外若if的判断条件为否的话该如何继续执行？急求

Answer 1

fortran continue就是继续往下执行的意思，和c语言的不同。
if (t .lt. tmax) then不满足执行if (dist(1) .le. end_1) goto 10
if (dist(1) .le. end_1)不满足执行return