- Email: [email protected]
Olympus restart facilities
C-268 COMPUTER PHYSICS COMMUNICATIONS 8 (1974) 123-129. NORTH-HOLLAND PUBLISHING COMPANY
OLYMPUS RESTART FACILITIES M.H. HUGHES and K.V. ROBERTS UKAEA Culham Laboratory, Abingdon, Berkshire, UK Received 12 March 1974
PROGRAM SUMMARY Title o f program: LEDGER
Method of solution
Programming language used: FORTRAN
Selected COMMON blocks of a Fortran program are written to or read from a 'ledger file'. A library subroutine called LEDGER is provided, written in Standard Fortran [ 1 ], which performs various operations on this fide. All the individual user has to do is to supply his own version o f a simple ad hoc subroutine called RECORD which defines the blocks to be transmitted.
High speed storage required: 44 K bytes *
Restrictions on the complexity o f the problem
No. of bits in a byte: 8
The package is intended primarily for use under the OLYMPUS [ 2 - 4 ] system for initial-value Fortran programs, and communication is via labelled COMMON. Because Standard Fortran makes no provision [ 1 ] for detecting end-of-file or error conditions, a non-standard READ statement has been used which is available on ICL and IBMcomputers. This however does not appear in LEDGER itself but only in two small subroutines RECORD and RECNUM which are easily changed, and we explain how to make the necessary changes for CDC computers as an example. The package also includes an assembler language subroutine UPDATE which obtains housekeeping information from the supervisor and must be recoded for a different type o f computer system.
Catalogue number: ABUI Computer: ICL System 4•70; Installation : Culham Laboratory Operating system: Multijob
Overlay structure: None No. of magnetic tapes required: None Other peripherals used: Line printer No. of cards in combined program and test deck: 571 Keywords: General purpose, restart, ledger. Nature o f physical problem Large scientific computer programs are often required to write periodic records to some output device so that a run may be stopped and restarted. The package described here provides general-purpose facilities for doing this, which are largely independent both of the program and also o f the computer on which it is run.
* for test program.
References [ 1] Standard Fortran Programming Manual, Computer Standards Series, National Computing Centre Ltd., Manchester, England (1970). [2] J.P. Christiansen and K.V. Roberts, Computer Phys. Commun. 7 (1974) 245. [3] M.H. Hughes and K.V. Roberts, OLYMPUS and Preprocessor Package for an IBM 370/165, Computer Phys. Commun. (1974, to be submitted). [4] M.H. Hughes and K.V. Roberts, OLYMPUS for the CDC 6500, Computer Phys. Commun. (1974, to be submitted).
OLYMPUS RESTART FACILITIES M.H. HUGHES and K.V. ROBERTS UKAEA Culham Laboratory, Abingdon, Berkshire, UK Received 12 March 1974
PROGRAM SUMMARY Title o f program: LEDGER
Method of solution
Programming language used: FORTRAN
Selected COMMON blocks of a Fortran program are written to or read from a 'ledger file'. A library subroutine called LEDGER is provided, written in Standard Fortran [ 1 ], which performs various operations on this fide. All the individual user has to do is to supply his own version o f a simple ad hoc subroutine called RECORD which defines the blocks to be transmitted.
High speed storage required: 44 K bytes *
Restrictions on the complexity o f the problem
No. of bits in a byte: 8
The package is intended primarily for use under the OLYMPUS [ 2 - 4 ] system for initial-value Fortran programs, and communication is via labelled COMMON. Because Standard Fortran makes no provision [ 1 ] for detecting end-of-file or error conditions, a non-standard READ statement has been used which is available on ICL and IBMcomputers. This however does not appear in LEDGER itself but only in two small subroutines RECORD and RECNUM which are easily changed, and we explain how to make the necessary changes for CDC computers as an example. The package also includes an assembler language subroutine UPDATE which obtains housekeeping information from the supervisor and must be recoded for a different type o f computer system.
Catalogue number: ABUI Computer: ICL System 4•70; Installation : Culham Laboratory Operating system: Multijob
Overlay structure: None No. of magnetic tapes required: None Other peripherals used: Line printer No. of cards in combined program and test deck: 571 Keywords: General purpose, restart, ledger. Nature o f physical problem Large scientific computer programs are often required to write periodic records to some output device so that a run may be stopped and restarted. The package described here provides general-purpose facilities for doing this, which are largely independent both of the program and also o f the computer on which it is run.
* for test program.
References [ 1] Standard Fortran Programming Manual, Computer Standards Series, National Computing Centre Ltd., Manchester, England (1970). [2] J.P. Christiansen and K.V. Roberts, Computer Phys. Commun. 7 (1974) 245. [3] M.H. Hughes and K.V. Roberts, OLYMPUS and Preprocessor Package for an IBM 370/165, Computer Phys. Commun. (1974, to be submitted). [4] M.H. Hughes and K.V. Roberts, OLYMPUS for the CDC 6500, Computer Phys. Commun. (1974, to be submitted).