e_231_01.f90

来自「Fortran77和90_95编程入门,里面还有详细的例子。」· F90 代码 · 共 12 行

! 数学式0 < x < 1 必须写成 (0.<x) .and. (x<1.) 

REAL :: x; READ *, x
IF(0.0 < x < 1.0) THEN
   PRINT *, "  在区间(0, 1)中"
ELSE
   PRINT *, "不在区间(0, 1)中"
END IF

!print *, .true.<1., .false.<1.
END