Change To vector Form

Description:  Allow programmers to rewrite a Do Loop into an equivalent Fortran vectorial notation.

State: Implemeted         Author: Mariano Méndez      Version: Submitted 

Code Example:

program test9
    implicit none
    integer, parameter :: N=100000
    real v(N),w(N),z(N)
    integer i,j,w


    do i=1,N
       v(i)=v(i)+1
       v(i)=v(i)+w(i)+z(i)+3
    end do

end program test9

program test9
    implicit none
    integer, parameter :: N=100000
    real v(N),w(N),z(N)
    integer i,j,w


    v(1:N)=v(1:N)+1
    v(1:N)=v(1:N)+w(1:N)+z(1:N)+3

end program test9

ScreenShots

      

HTML Comment Box is loading comments...