flogical.f

fortran并行计算包

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