在fortran中在多行中中断长逻辑语句？

您好，我为Abaqus编写了以下代码，该代码与fortran相链接，但这向我显示了几个语法错误，无法编译。如何修复代码以使其能够编译

 if(noel.le.1150.or.noel.ge.1201.and.noel.le.2350.or.noel.ge.2811.and.noel.le.8100.or.noel.ge.8331.and.noel.le.13620.or.noel.ge.14081.and.noel.le.19370.or.noel.ge.19601) 
  then
 ...action>>>
 end if

使用gfortran（假设为自由形式），可以使用开关

-ffree line length none

启用任意长的输入行，或者使用“行延续”作为：

使用gfortran（假设为自由形式），可以使用开关

-ffree line length none

启用任意长的输入行，或者使用“行延续”作为：

---

其他副本：您不需要在Abaqus中这样做。用这些元素做一个单独的部分，并使用传递到例程中的材料名称来进行逻辑测试。其他重复项：在Abaqus中不需要这样做。用这些元素做一个单独的部分，并使用传递到例程中的材料名称来进行逻辑测试

PROGRAM test

  INTEGER :: x = 1200

  IF( &
    x .LE. 1150 &
    .OR.  &
    (x .GE. 1201 .AND. x .LE. 2350) &
    .OR. &
    (x .GE. 2811 .AND. x .LE. 8100) &
  ) THEN
    WRITE(*, *) "OK"
  ELSE
    WRITE(*, *) "KO"
  END IF

END PROGRAM