VAST/77to90

Графический интерфейс для ОС Windows

VAST/77to90 — коммерческое программное обеспечение, разрабатываемое компанией Crescent Bay Software, предназначенный для преобразования кода на FORTRAN 77 в код Fortran 90. Данный продукт позволяет легко преобразовать существующий кода на FORTRAN 77 к коду более высокого уровня. Это не простой преобразователь кода, а сложная система, использующая специально разработанные алгоритмы, проверенные в течение многих лет.

VAST/77to90 легкий в использовании продукт, имеющий графический интерфейс, доступный на многих платформах. Основные поддерживаемые платформы:

• Mac OS X
• Linux (x86 and PowerPC)
• SUN/Sparc Solaris
• IBM RS/6000 и SP2 (AIX)
• HP 9000/700 серии (HPUX)
• DEC Alpha (Unix)
• SGI (IRIX, Altix)
• Windows/NT

Распространяется под системой лицензирования позволяющей платить за количество необходимых трансляций.

Пример использования VAST/77to90

Входной файл на языке FORTRAN 77:

    subroutine demo(a,b,c,n)
    dimension a(n), b(n), c(n)
    common /ecom/scratch(10000)
    do 100 i = 1, n
    a(i) = b(i) + c(i)
    if ( a(i).gt.100.0) then
    a(i) = a(i) + scratch(i)
    go to 100
    endif
    c(i) = a(i)*2
    100   continue
    end

Созданный модуль на Fortran 90:

    module Vecom
     real, dimension(10000) :: scratch
    end module Vecom

Созданный код на Fortran 90:

    subroutine demo(a, b, c, n)
    !---------------------------
    ! Modules
    !---------------------------
    USE Vecom
    implicit none
    !---------------------------
    !   Dummy Arguments
    !--------------------------
    integer n
    real, dimension(n) :: a, b,c
    !---------------------------
    !    Local Variables
    !---------------------------
    integer :: i
    !---------------------------
    a = b + c
    where (a > 100.0 )
        a = a + scratch(:n)
    elsewhere
        c = a*2
    end where
    end subroutine demo