有限元模型中fortran语言编写

tsx

在设置 real x,y,z,v,s,a
          
          x=coords(1)
          y=coords(2)
          z=coords(3)
          v=14
      s=v*TIME(1)后如何同时运行两个if语句，让一侧的六个轮与一侧的四个轮同时往前跑
1.if((z>=7.96 .and. z<=8.23) .or. (z>=9.31 .and. z<=9.58)) then
             F =1470000+178000*SIN(16.55*TIME(1))
              if((x>=s+14.126 .and. x<=s+14.526) .or. (x>=s+15.826 .and. x<=s+16.226))   then
                F =1470000+178000*SIN(16.55*TIME(1))
              else
               F=0
               endif
            else
             F=0
          endif   
2.if((z>=11.47 .and. z<=11.74).or. (z>=13 .and. z<=13.27)) then
             F =1470000+178000*SIN(16.55*TIME(1))
              if((x>=s+10 .and. x<=s+10.4) .or. (x>=s+11.7 .and. x<=s+12.1).or. (x>=s+13.4 .and. x<=s+13.8))   then
                F =1470000+178000*SIN(16.55*TIME(1))
              else
               F=0
               endif
            else
             F=0
          endif