LOGICAL L(18)/18*.TRUE./
      WRITE (4,*) L
      PAUSE 2
      STOP
      END