The programming language FORTRAN is the principal language for scientific and technical computations. ... It has recently been carefully revised, resulting in a modern and powerful language, Fortran 90. The intent with this new standard is to make Fortran into a useful and efficient language for the scientific and technical computations also towards the end of this decade. ... This tutorial therefore contains an Appendix on the recent proposed addition to Fortran, High Performance Fortran. ...
Pacific-Sierra Research Corporation Computer Products Group 2901 28th Street Santa Monica, CA 90405 info@psrv.com Tel: +1 310 314 2338 Fax: +1 310 314 2323 This system offers translation in both directions, from Fortran 90 to Fortran 77 and from Fortran 77 to Fortran 90. ... The paper by John K Prentice, "Translation of Fortran 77 to Fortran 90 Using VAST-90", Fortran Journal, Vol. ... 4, July/August 1993, gives a very favourable view of VAST-90 and its performance at translation. ...
... Compilation and execution with the NAG compiler . Peculiarities in the NAG compiler . System parameters The Numerical Algorithms Group Ltd Wilkinson House Jordan Hill Road Oxford OX2 8DR infodesk@nag.co.uk Tel: +44 1865 511245 Fax: +44 1865 310139 NAG offers a Fortran 90 system which behaves as a compiler but in reality translates to C (except for the PC version). ... CERN had at that time a total of 80 000 code lines working with NAG's Fortran 90 compiler, version 1.1. ...
Fortran is a simple language . Fortran has always existed . Fortran compilers are generally available . Earlier the first programming language . ... Good at numerical analysis and technical calculations . ... A large number of programs and routines in Fortran are exchanged internationally . ... Fortran doesn't have reserved words, it has short identifiers, the identifiers do not have to be specified . ... Fortran programs are usually less well structured then Pascal programs . ...
. NAME: Martin Murphy . DOB: 26 May 1950 . POSITION: Starlink Manager . E-MAIL ADDRESS: . hmm@star.arm.ac.uk . EDUCATIONAL DETAILS: . Queens University of Belfast, . University of Surrey at Guildford . COUNTRY AND TOWN OF BIRTH: . Northern Ireland, Newry .
... Array specifications REAL, DIMENSION (:, :), INTENT (IN) :: A REAL, DIMENSION (:), INTENT (OUT) :: X REAL, DIMENSION (:), INTENT (IN) :: B LOGICAL, INTENT (OUT) :: ERROR ! The work area M is A extended with B REAL, DIMENSION (SIZE (B), SIZE (B) + 1) :: M INTEGER, DIMENSION (1) :: MAX_LOC REAL, DIMENSION (SIZE (B) + 1) :: TEMP_ROW INTEGER :: N, K ! ... TRIANG_LOOP: DO K = 1, N - 1 ! ... These values are not used END IF END DO TRIANG_LOOP IF (M (N, N) == 0) ERROR = .TRUE. ...
program RK1; (* A simple program in Pascal for Runge-Kutta's method for a first order differential equation. dy/dx = x^2 + sin (xy) y(1) = 2 *) var number , i : integer; h, k1, k2, k3, k4, x, y : real ; function f(x,y : real ) : real ; begin f := x*x + sin (x*y) end ; begin number := 1; while number 0 do begin x := 1.0; y := 2.0; writeln (' Give the number of steps '); read ( ...
PROGRAM TEST_ADAPTIVE_QUAD IMPLICIT NONE INTERFACE FUNCTION F(X) RESULT ( FUNCTION_VALUE ) REAL , INTENT (IN) :: X REAL :: FUNCTION_VALUE END FUNCTION F END INTERFACE INTERFACE RECURSIVE FUNCTION ADAPTIVE_QUAD (F, A, B, FA, FB, TOL , ABS_ERROR ) RESULT ( RESULT ) REAL , EXTERNAL :: F REAL , INTENT (IN) :: A, B, FA, FB, TOL REAL , INTENT (OUT) :: ...
PROGRAM TEST_ADAPTIVE_QUAD IMPLICIT NONE INTERFACE FUNCTION F(X) RESULT ( FUNCTION_VALUE ) REAL , INTENT (IN) :: X REAL :: FUNCTION_VALUE END FUNCTION F END INTERFACE INTERFACE RECURSIVE FUNCTION ADAPTIVE_QUAD (F, A, B, TOL , ABS_ERROR ) RESULT ( RESULT ) REAL , EXTERNAL :: F REAL , INTENT (IN) :: A, B, TOL REAL , INTENT (OUT) :: ...
RECURSIVE FUNCTION ADAPTIVE_QUAD (F, A, B, TOL , ABS_ERROR ) RESULT ( RESULT ) IMPLICIT NONE INTERFACE FUNCTION F(X) RESULT (FUNCTION_VALUE) REAL , INTENT(IN) :: X REAL :: FUNCTION_VALUE END FUNCTION F END INTERFACE REAL , INTENT(IN) :: A, B, TOL REAL , INTENT(OUT) :: ABS_ERROR REAL :: RESULT REAL :: STEP , MIDDLE_POINT ...
RECURSIVE FUNCTION ADAPTIVE_QUAD (F, A, B, FA, FB, TOL , ABS_ERROR ) RESULT ( RESULT ) IMPLICIT NONE INTERFACE FUNCTION F(X) RESULT (FUNCTION_VALUE) REAL , INTENT(IN) :: X REAL :: FUNCTION_VALUE END FUNCTION F END INTERFACE REAL , INTENT(IN) :: A, B, FA, FB, TOL REAL , INTENT(OUT) :: ABS_ERROR REAL :: RESULT REAL :: STEP, MIDDLE_POINT , FMIDDLE ...
MODULE DYNA IMPLICIT NONE REAL, DIMENSION(:), ALLOCATABLE, SAVE :: WORK END MODULE DYNA PROGRAM TEST_OF_DYNA USE DYNA IMPLICIT NONE PRINT *, 'MAIN' CALL SUB1 CALL SUB2 PRINT *, 'MAIN' END PROGRAM TEST_OF_DYNA SUBROUTINE SUB1 USE DYNA IMPLICIT NONE ! ... The array WORK is used here REAL :: B REAL, DIMENSION(:), ALLOCATABLE :: A PRINT *, 'SUB2' ALLOCATE ( A(SIZE(WORK)) ) A = 2.* WORK B = SUM(WORK) WORK = A WRITE(*,*) A WRITE(*,*) B WRITE(*,*) WORK END SUBROUTINE SUB2 ...
NEW: Interactive Orrery with interesting links. Also, check out his Home Page . ADS Abstracts Database at Harvard . Abstracts Database from Cambridge . Astronomical Preprint Services on the WWW . Astronomical Abstract Services on the WWW. ... Starlink Home Page . Local Help . ... Local email Aliases and a Form to search Chris Benn's astronomers database. ... Armagh Observatory Preprint Series . ... Links to other Web Pages . ... To the Observatory Welcome Page ...