flogical.f

来自「fortran并行计算包」· F 代码 · 共 7 行

      subroutine flogical( itrue, ifalse )
      logical itrue, ifalse
      itrue  = .TRUE.
      ifalse = .FALSE.
      return
      end