Standarize Statements

Description:  refactoring that rewrites variables declarations,  transforming them into simple statements, always containing the two points (::)  that are characteristic of Fortran, making the code more readable.

State: Implemeted         Author:  Gustavo Rissetti,Timofey Yuvashev, Jeff Overbey      Version:   Photran 60.

Code Example:

    program main
    implicit none

    integer :: i,j,k
    integer :: w,z
    call Print_Header()

    z=(2*k+3*i-5*j)
    print *,z
contains

    subroutine Print_Header()
        implicit none


        print *,'********************'
        print *,'*     header       *'
        print *,'********************'
    end subroutine

    program main
    implicit none

    integer:: i
    integer::j
    integer::k
    integer:: w
    integer::z
    call Print_Header()

    z=(2*k+3*i-5*j)
    print *,z
contains

    subroutine Print_Header()
        implicit none


        print *,'********************'
        print *,'*     header       *'
        print *,'********************'
    end subroutine

end program


ScreenShots

       

HTML Comment Box is loading comments...