From Wikipedia, the free encyclopedia
Jump to navigation Jump to search

Mortran (More Fortran) is an extension of the Fortran programming language used for scientific computation. It introduces syntax changes, including the use of semicolons to end statements, in order to improve readability and flexibility. Mortran code is macro-processed into Fortran code for compilation.


<I=1,200; J=I;
    UNTIL M(J).EQ.0 <
    IF I.NE.J <
        OUTPUT I,M(J+1); (' Chain',I4,' ends with ',A4);

Note that Mortran, like many preprocessors, does not make a complete analysis of the Fortran source and, like many preprocessors, may not always make its assumptions/requirements explicit. Consider, for example, Mortran multiple assignment. From the Mortran User Guide:

 / I, A(I,K), J / = SQRT(X/2.0);

produces the following FORTRAN statements:

          I = SQRT(X/2.0)
          A(I,K) = SQRT(X/2.0)
          J = SQRT(X/2.0)

In this example, the produced Fortran implements the multiple assignment correctly only if X is not aliased to I or to A(I,K), assuming the multiple assignment semantics are left to right.

The MORTRAN2 processor is written in ANSI standard Fortran 66, with the only extension the ability to assign and compare character data stored in INTEGER variables.

External links[edit]