1.     Type Logical Variables:

INTEGER  A，B，C                                            DEBUG

REAL     X，Y，Z               

CHARACTER*10  NAME  

LOGICAL  DEBUG

2.     Relational Operators 判斷兩數大小關係：

.LT.   .LE.   .GT.   .GE.   .EQ.    .NE.

3.     Logical Operators 組合兩個判斷結果, 再做一次綜合判斷：

判斷結果邏輯值 (logical value):   .TRUE.     .FALSE.

4.     IF（D .GE.  0  .AND.  D .LE. 10）THEN

              兩者須同時成立

END IF

5.IF（D .LE. 0  .OR.  D .GE. 10）THEN

             ....

  END IF

6.  operand1   .AND.  operand2     result

            T                            T          T

            T                            F           F

F                            F           F

F                            T           F

7.  IF（.NOT.（A .EQ. 0））THEN             .TRUE.→.FALSE.

.......                                                 .FALSE.→.TRUE.

     END IF

8.寫一判斷式（logical expressions）用於判斷是否 X, Y都大於 Z

（X .GE. Z）．AND．（Y .GE. Z）

9.    LOGICAL DEBUG                               

    PARAMETER（DEBUG=．TRUE．）      

   LOGICAL FLAG ,SWITCH

   SWITCH＝．FALSE．

   FLAG＝SWITCH

10.   IF（B**2－4*A*C   .GT.  0）THEN

          ..........

          END IF

   ------------------------------------------------------

   D＝B**2－4*A*C

   IF（D  .GT.  0）THEN

   END IF

   -----------------------------------------------------

   LOGICAL DGT0

   REAL A,B,C

   READ *,A,B,C

   D＝B**2－4*A*C

   DGT0＝（D .GT.  0）

   IF（DGT0）THEN

        ....

   END IF