Replace Obsolete Operators

Description:   Replace Obsolete Operators replaces all uses of old-style comparison operators (such as .LT. and .EQ.) with their newer equivalents (symbols such as < and ==). and adds explicit declarations for all variables that were previously declared implicitly.

State: Implemeted         Author: Bruno Boniati      Version:   Photran 5.0

Code Example:

program main
    implicit none

    integer :: i,j,k

    i = 1
    j = 2
    k = 3

    if ( i.lt.j .and. k.ne.1 .or. k.gt.k) then
        print *,":-)"
    end if

end program main
 		    program main
    implicit none

    integer :: i,j,k

    i = 1
    j = 2
    k = 3

    if ( i<j .and. k/=1 .or. k>k) then
        print *,":-)"
    end if

end program main

ScreenShots

      

HTML Comment Box is loading comments...