PROGRAM JETFORCEARRAY 
  REAL,PARAMETER :: D=5, ro=1000, pi=3.1415926, Vjet=30 
  REAL , DIMENSION (11):: F, Vbagil 
  REAL , DIMENSION (11):: v 
  DO i = 0,10 
    v(i) = 3*i 
    END DO 
    PRINT *, v(i) 
    DO i = 0,100 
      Vbagil(i) = Vjet - v(i) 
      END DO 
      PRINT*, Vbagil(i) 
        DO i = 0, 10 
        F(i) = (ro*Vjet*pi*(D**2)*Vbagil(i)) /4 
        END DO 
        WRITE(6,1) i, F(i), Vbagil(i), v(i) 
          1 FORMAT(1x, i3, 2x, 2f10.3) 
  END PROGRAM JETFORCEARRAY