Replacing Fortran Namelists with JSON

Science.gov (United States)

Robinson, T. E., Jr.

2017-12-01

Maintaining a log of input parameters for a climate model is very important to understanding potential causes for answer changes during the development stages. Additionally, since modern Fortran is now interoperable with C, a more modern approach to software infrastructure to include code written in C is necessary. Merging these two separate facets of climate modeling requires a quality control for monitoring changes to input parameters and model defaults that can work with both Fortran and C. JSON will soon replace namelists as the preferred key/value pair input in the GFDL model. By adding a JSON parser written in C into the model, the input can be used by all functions and subroutines in the model, errors can be handled by the model instead of by the internal namelist parser, and the values can be output into a single file that is easily parsable by readily available tools. Input JSON files can handle all of the functionality of a namelist while being portable between C and Fortran. Fortran wrappers using unlimited polymorphism are crucial to allow for simple and compact code which avoids the need for many subroutines contained in an interface. Errors can be handled with more detail by providing information about location of syntax errors or typos. The output JSON provides a ground truth for values that the model actually uses by providing not only the values loaded through the input JSON, but also any default values that were not included. This kind of quality control on model input is crucial for maintaining reproducibility and understanding any answer changes resulting from changes in the input.

READDATA: a FORTRAN 77 codeword input package

International Nuclear Information System (INIS)

Lander, P.A.

1983-07-01

A new codeword input package has been produced as a result of the incompatibility between different dialects of FORTRAN, especially when character variables are passed as parameters. This report is for those who wish to use a codeword input package with FORTRAN 77. The package, called ''Readdata'', attempts to combine the best features of its predecessors such as BINPUT and pseudo-BINPUT. (author)

Development of the static analyzer ANALYSIS/EX for FORTRAN programs

International Nuclear Information System (INIS)

Osanai, Seiji; Yokokawa, Mitsuo

1993-08-01

The static analyzer 'ANALYSIS' is the software tool for analyzing tree structure and COMMON regions of a FORTRAN program statically. With the installation of the new FORTRAN compiler, FORTRAN77EX(V12), to the computer system at JAERI, a new version of ANALYSIS, 'ANALYSIS/EX', has been developed to enhance its analyzing functions. In addition to the conventional functions of ANALYSIS, the ANALYSIS/EX is capable of analyzing of FORTRAN programs written in the FORTRAN77EX(V12) language grammar such as large-scale nuclear codes. The analyzing function of COMMON regions are also improved so as to obtain the relation between variables in COMMON regions in more detail. In this report, results of improvement and enhanced functions of the static analyzer ANALYSIS/EX are presented. (author)

FASTPLOT, Interface Routines to MS FORTRAN Graphics Library

International Nuclear Information System (INIS)

1999-01-01

1 - Description of program or function: FASTPLOT is a library of routines that can be used to interface with the Microsoft FORTRAN Graphics library (GRAPHICS.LIB). The FASTPLOT routines simplify the development of graphics applications and add capabilities such as histograms, Splines, symbols, and error bars. FASTPLOT also includes routines that can be used to create menus. 2 - Methods: FASTPLOT is a library of routines which must be linked with a user's FORTRAN programs that call any FASTPLOT routines. In addition, the user must link with the Microsoft FORTRAN Graphics library (GRAPHICS.LIB). 3 - Restrictions on the complexity of the problem: None noted

C Versus Fortran-77 for Scientific Programming

Directory of Open Access Journals (Sweden)

Tom MacDonald

1992-01-01

Full Text Available The predominant programming language for numeric and scientific applications is Fortran-77 and supercomputers are primarily used to run large-scale numeric and scientific applications. Standard C* is not widely used for numerical and scientific programming, yet Standard C provides many desirable linguistic features not present in Fortran-77. Furthermore, the existence of a standard library and preprocessor eliminates the worst portability problems. A comparison of Standard C and Fortran-77 shows several key deficiencies in C that reduce its ability to adequately solve some numerical problems. Some of these problems have already been addressed by the C standard but others remain. Standard C with a few extensions and modifications could be suitable for all numerical applications and could become more popular in supercomputing environments.

Alternatives to FORTRAN in control systems

International Nuclear Information System (INIS)

Howell, J.A.; Wright, R.M.

1985-01-01

Control system software has traditionally been written in assembly language, FORTRAN, or Basic. Today there exist several high-level languages with features that make them convenient and effective in control systems. These features include bit manipulation, user-defined data types, character manipulation, and high-level logical operations. Some of theses languages are quite different from FORTRAN and yet are easy to read and use. We discuss several languages, their features that make them convenient for control systems, and give examples of their use. We focus particular attention on the language C, developed by Bell Laboratories

Classical Fortran programming for engineering and scientific applications

CERN Document Server

Kupferschmid, Michael

2009-01-01

IntroductionWhy Study Programming?The Evolution of FORTRANWhy Study FORTRAN?Classical FORTRANAbout This BookAdvice to InstructorsAbout the AuthorAcknowledgmentsDisclaimersHello, World!Case Study: A First FORTRAN ProgramCompiling the ProgramRunning a Program in UNIXOmissionsExpressions and Assignment StatementsConstantsVariables and Variable NamesArithmetic OperatorsFunction ReferencesExpressionsA

IRRIGOGRAPHY AFTER PREPARATIONS OF PATIENTS WITH FORTRANS

Directory of Open Access Journals (Sweden)

Irena Jankovic

2006-01-01

Full Text Available Fortrans® is a laxative in the form of the powder which is used for making solution for oral application. Laxative effects are achieved over long linear polymer (polyethylene-glikol - PEG 4000 which binds water molecules, increasing thus the volume of fluids in the intestinal tract.Material of study comprises 150 irrigographies made at the Institute of Radiology of the Clinical Center in Nis in the period from January 2004 to Jun 2005.The preparation in these cases was done by Fortrans®. The contrast medium used was barium sulfate.The results of study are presented in illustrations and irrigograms.In conclusion,we can say that Fortrans® provides reliable, effective and simple preparation of patients for irrigography as well as for fast, comfortable and efficient endographic examination (irrigography. The obtained irrigograms are of satisfactory quality, showing sharp contrasts.

MORTRAN-2, FORTRAN Language Extension with User-Supplied Macros

International Nuclear Information System (INIS)

Cook, A. James; Shustek, L.J.

1980-01-01

1 - Description of problem or function: MORTRAN2 is a FORTRAN language extension that permits a relatively easy transition from FORTRAN to a more convenient and structured language. Its features include free-field format; alphanumeric statement labels; flexible comment convention; nested block structure; for-by-to, do, while, until, loop, if-then-else, if-else, exit, and next statements; multiple assignment statements; conditional compilation; and automatic listing indentation. The language is implemented by a macro-based pre-processor and is further extensible by user-defined macros. 2 - Method of solution: The MORTRAN2 pre-processor may be regarded as a compiler whose object code is ANSI Standard FORTRAN. The MORTRAN2 language is dynamically defined by macros which are input at each use of the pre-processor. 3 - Restrictions on the complexity of the problem: The pre-processor output must be accepted by a FORTRAN compiler

GRESS, FORTRAN Pre-compiler with Differentiation Enhancement

International Nuclear Information System (INIS)

1999-01-01

1 - Description of program or function: The GRESS FORTRAN pre-compiler (SYMG) and run-time library are used to enhance conventional FORTRAN-77 programs with analytic differentiation of arithmetic statements for automatic differentiation in either forward or reverse mode. GRESS 3.0 is functionally equivalent to GRESS 2.1. GRESS 2.1 is an improved and updated version of the previous released GRESS 1.1. Improvements in the implementation of a the CHAIN option have resulted in a 70 to 85% reduction in execution time and up to a 50% reduction in memory required for forward chaining applications. 2 - Method of solution: GRESS uses a pre-compiler to analyze FORTRAN statements and determine the mathematical operations embodied in them. As each arithmetic assignment statement in a program is analyzed, SYMG generates the partial derivatives of the term on the left with respect to each floating-point variable on the right. The result of the pre-compilation step is a new FORTRAN program that can produce derivatives for any REAL (i.e., single or double precision) variable calculated by the model. Consequently, GRESS enhances FORTRAN programs or subprograms by adding the calculation of derivatives along with the original output. Derivatives from a GRESS enhanced model can be used internally (e.g., iteration acceleration) or externally (e.g., sensitivity studies). By calling GRESS run-time routines, derivatives can be propagated through the code via the chain rule (referred to as the CHAIN option) or accumulated to create an adjoint matrix (referred to as the ADGEN option). A third option, GENSUB, makes it possible to process a subset of a program (i.e., a do loop, subroutine, function, a sequence of subroutines, or a whole program) for calculating derivatives of dependent variables with respect to independent variables. A code enhanced with the GENSUB option can use forward mode, reverse mode, or a hybrid of the two modes. 3 - Restrictions on the complexity of the problem: GRESS

SVM Support in the Vienna Fortran Compilation System

OpenAIRE

Brezany, Peter; Gerndt, Michael; Sipkova, Viera

1994-01-01

Vienna Fortran, a machine-independent language extension to Fortran which allows the user to write programs for distributed-memory systems using global addresses, provides the forall-loop construct for specifying irregular computations that do not cause inter-iteration dependences. Compilers for distributed-memory systems generate code that is based on runtime analysis techniques and is only efficient if, in addition, aggressive compile-time optimizations are applied. Since these optimization...

Basic linear algebra subprograms for FORTRAN usage

Science.gov (United States)

Lawson, C. L.; Hanson, R. J.; Kincaid, D. R.; Krogh, F. T.

1977-01-01

A package of 38 low level subprograms for many of the basic operations of numerical linear algebra is presented. The package is intended to be used with FORTRAN. The operations in the package are dot products, elementary vector operations, Givens transformations, vector copy and swap, vector norms, vector scaling, and the indices of components of largest magnitude. The subprograms and a test driver are available in portable FORTRAN. Versions of the subprograms are also provided in assembly language for the IBM 360/67, the CDC 6600 and CDC 7600, and the Univac 1108.

ARBUS: A FORTRAN tool for generating tree structure diagrams

International Nuclear Information System (INIS)

Ferrero, C.; Zanger, M.

1992-02-01

The FORTRAN77 stand-alone code ARBUS has been designed to aid the user by providing a tree structure diagram generating utility for computer programs written in FORTRAN language. This report is intended to describe the main purpose and features of ARBUS and to highlight some additional applications of the code by means of practical test cases. (orig.) [de

High Performance Fortran for Aerospace Applications

National Research Council Canada - National Science Library

Mehrotra, Piyush

2000-01-01

.... HPF is a set of Fortran extensions designed to provide users with a high-level interface for programming data parallel scientific applications while delegating to the compiler/runtime system the task...

Cloudy's Journey from FORTRAN to C, Why and How

Science.gov (United States)

Ferland, G. J.

Cloudy is a large-scale plasma simulation code that is widely used across the astronomical community as an aid in the interpretation of spectroscopic data. The cover of the ADAS VI book featured predictions of the code. The FORTRAN 77 source code has always been freely available on the Internet, contributing to its widespread use. The coming of PCs and Linux has fundamentally changed the computing environment. Modern Fortran compilers (F90 and F95) are not freely available. A common-use code must be written in either FORTRAN 77 or C to be Open Source/GNU/Linux friendly. F77 has serious drawbacks - modern language constructs cannot be used, students do not have skills in this language, and it does not contribute to their future employability. It became clear that the code would have to be ported to C to have a viable future. I describe the approach I used to convert Cloudy from FORTRAN 77 with MILSPEC extensions to ANSI/ISO 89 C. Cloudy is now openly available as a C code, and will evolve to C++ as gcc and standard C++ mature. Cloudy looks to a bright future with a modern language.

JLAPACK – Compiling LAPACK FORTRAN to Java

Directory of Open Access Journals (Sweden)

David M. Doolin

1999-01-01

Full Text Available The JLAPACK project provides the LAPACK numerical subroutines translated from their subset Fortran 77 source into class files, executable by the Java Virtual Machine (JVM and suitable for use by Java programmers. This makes it possible for Java applications or applets, distributed on the World Wide Web (WWW to use established legacy numerical code that was originally written in Fortran. The translation is accomplished using a special purpose Fortran‐to‐Java (source‐to‐source compiler. The LAPACK API will be considerably simplified to take advantage of Java’s object‐oriented design. This report describes the research issues involved in the JLAPACK project, and its current implementation and status.

Extracting UML Class Diagrams from Object-Oriented Fortran: ForUML

Directory of Open Access Journals (Sweden)

Aziz Nanthaamornphong

2015-01-01

Full Text Available Many scientists who implement computational science and engineering software have adopted the object-oriented (OO Fortran paradigm. One of the challenges faced by OO Fortran developers is the inability to obtain high level software design descriptions of existing applications. Knowledge of the overall software design is not only valuable in the absence of documentation, it can also serve to assist developers with accomplishing different tasks during the software development process, especially maintenance and refactoring. The software engineering community commonly uses reverse engineering techniques to deal with this challenge. A number of reverse engineering-based tools have been proposed, but few of them can be applied to OO Fortran applications. In this paper, we propose a software tool to extract unified modeling language (UML class diagrams from Fortran code. The UML class diagram facilitates the developers' ability to examine the entities and their relationships in the software system. The extracted diagrams enhance software maintenance and evolution. The experiments carried out to evaluate the proposed tool show its accuracy and a few of the limitations.

Comparison of PASCAL and FORTRAN for solving problems in the physical sciences

Science.gov (United States)

Watson, V. R.

1981-01-01

The paper compares PASCAL and FORTRAN for problem solving in the physical sciences, due to requests NASA has received to make PASCAL available on the Numerical Aerodynamic Simulator (scheduled to be operational in 1986). PASCAL disadvantages include the lack of scientific utility procedures equivalent to the IBM scientific subroutine package or the IMSL package which are available in FORTRAN. Advantages include a well-organized, easy to read and maintain writing code, range checking to prevent errors, and a broad selection of data types. It is concluded that FORTRAN may be the better language, although ADA (patterned after PASCAL) may surpass FORTRAN due to its ability to add complex and vector math, and the specify the precision and range of variables.

IFF, Full-Screen Input Menu Generator for FORTRAN Program

International Nuclear Information System (INIS)

Seidl, Albert

1991-01-01

1 - Description of program or function: The IFF-package contains input modules for use within FORTRAN programs. This package enables the programmer to easily include interactive menu-directed data input (module VTMEN1) and command-word processing (module INPCOM) into a FORTRAN program. 2 - Method of solution: No mathematical operations are performed. 3 - Restrictions on the complexity of the problem: Certain restrictions of use may arise from the dimensioning of arrays. Field lengths are defined via PARAMETER-statements

Fortran Testing and Refactoring Infrastructure, Phase II

Data.gov (United States)

National Aeronautics and Space Administration — Tech-X proposes to develop a comprehensive Fortran testing and refactoring infrastructure that allows developers and scientists to leverage the benefits of...

Emulating Multiple Inheritance in Fortran 2003/2008

Directory of Open Access Journals (Sweden)

Karla Morris

2015-01-01

in Fortran 2003. The design unleashes the power of the associated class relationships for modeling complicated data structures yet avoids the ambiguities that plague some multiple inheritance scenarios.

FORTRAN data files transference from VAX/VMS to ALPHA/UNIX; Traspaso de ficheros FORTRAN de datos de VAX/VMS a ALPHA/UNIX

Energy Technology Data Exchange (ETDEWEB)

Sanchez, E.; Milligen, B. Ph van [CIEMAT (Spain)

1997-09-01

Several tools have been developed to access the TJ-IU databases, which currently reside in VAX/VMS servers, from the TJ-II Data Acquisition System DEC ALPHA 8400 server. The TJ-I/TJ-IU databases are not homogeneous and contain several types of data files, namely, SADE, CAMAC and FORTRAN unformatted files. The tools presented in this report allow one to transfer CAMAC and those FORTRAN unformatted files defined herein, from a VAX/VMS server, for data manipulation on the ALPHA/Digital UNIX server. (Author)

Fortran Testing and Refactoring Infrastructure, Phase I

Data.gov (United States)

National Aeronautics and Space Administration — Tech-X proposes to develop a comprehensive Fortran testing and refactoring infrastructure that allows developers and scientists to leverage the benefits of a...

How to Interface Fortran with Matlab

OpenAIRE

Sagastizábal , Claudia; Vige , Guillaume

1995-01-01

Projet PROMATH; We describe the general procedure for interfacing Fortran routines with Matlab. We explain how to write a mex-file and the associated gateway function. In particular, each different type of argument is considered in detail. We finish with an illustrative example

Introduction to modern Fortran for the Earth system sciences

CERN Document Server

Chirila, Dragos B

2014-01-01

This work provides a short "getting started" guide to Fortran 90/95. The main target audience consists of newcomers to the field of numerical computation within Earth system sciences (students, researchers or scientific programmers). Furthermore, readers accustomed to other programming languages may also benefit from this work, by discovering how some programming techniques they are familiar with map to Fortran 95. The main goal is to enable readers to quickly start using Fortran 95 for writing useful programs. It also introduces a gradual discussion of Input/Output facilities relevant for Earth system sciences, from the simplest ones to the more advanced netCDF library (which has become a de facto standard for handling the massive datasets used within Earth system sciences). While related works already treat these disciplines separately (each often providing much more information than needed by the beginning practitioner), the reader finds in this book a shorter guide which links them. Compared to other book...

Automatic generation of Fortran programs for algebraic simulation models

International Nuclear Information System (INIS)

Schopf, W.; Rexer, G.; Ruehle, R.

1978-04-01

This report documents a generator program by which econometric simulation models formulated in an application-orientated language can be transformed automatically in a Fortran program. Thus the model designer is able to build up, test and modify models without the need of a Fortran programmer. The development of a computer model is therefore simplified and shortened appreciably; in chapter 1-3 of this report all rules are presented for the application of the generator to the model design. Algebraic models including exogeneous and endogeneous time series variables, lead and lag function can be generated. In addition, to these language elements, Fortran sequences can be applied to the formulation of models in the case of complex model interrelations. Automatically the generated model is a module of the program system RSYST III and is therefore able to exchange input and output data with the central data bank of the system and in connection with the method library modules can be used to handle planning problems. (orig.) [de

VFC: The Vienna Fortran Compiler

Directory of Open Access Journals (Sweden)

Siegfried Benkner

1999-01-01

Full Text Available High Performance Fortran (HPF offers an attractive high‐level language interface for programming scalable parallel architectures providing the user with directives for the specification of data distribution and delegating to the compiler the task of generating an explicitly parallel program. Available HPF compilers can handle regular codes quite efficiently, but dramatic performance losses may be encountered for applications which are based on highly irregular, dynamically changing data structures and access patterns. In this paper we introduce the Vienna Fortran Compiler (VFC, a new source‐to‐source parallelization system for HPF+, an optimized version of HPF, which addresses the requirements of irregular applications. In addition to extended data distribution and work distribution mechanisms, HPF+ provides the user with language features for specifying certain information that decisively influence a program’s performance. This comprises data locality assertions, non‐local access specifications and the possibility of reusing runtime‐generated communication schedules of irregular loops. Performance measurements of kernels from advanced applications demonstrate that with a high‐level data parallel language such as HPF+ a performance close to hand‐written message‐passing programs can be achieved even for highly irregular codes.

DTK C/Fortran Interface Development for NEAMS FSI Simulations

Energy Technology Data Exchange (ETDEWEB)

Slattery, Stuart R. [Oak Ridge National Lab. (ORNL), Oak Ridge, TN (United States); Lebrun-Grandie, Damien T. [Oak Ridge National Lab. (ORNL), Oak Ridge, TN (United States)

2016-09-19

This report documents the development of DataTransferKit (DTK) C and Fortran interfaces for fluid-structure-interaction (FSI) simulations in NEAMS. In these simulations, the codes Nek5000 and Diablo are being coupled within the SHARP framework to study flow-induced vibration (FIV) in reactor steam generators. We will review the current Nek5000/Diablo coupling algorithm in SHARP and the current state of the solution transfer scheme used in this implementation. We will then present existing DTK algorithms which may be used instead to provide an improvement in both flexibility and scalability of the current SHARP implementation. We will show how these can be used within the current FSI scheme using a new set of interfaces to the algorithms developed by this work. These new interfaces currently expose the mesh-free solution transfer algorithms in DTK, a C++ library, and are written in C and Fortran to enable coupling of both Nek5000 and Diablo in their native Fortran language. They have been compiled and tested on Cooley, the test-bed machine for Mira at ALCF.

MAPLIB, Thermodynamics Materials Property Generator for FORTRAN Program

International Nuclear Information System (INIS)

Schumann, U.; Zimmerer, W. and others

1978-01-01

1 - Nature of physical problem solved: MAPLIB is a program system which is able to incorporate the values of the properties of any material in a form suitable for use in other computer programs. The data are implemented in FORTRAN functions. A utility program is provided to assist in library management. 2 - Method of solution: MAPLIB consists of the following parts: 1) Conventions for the data format. 2) Some integrated data. 3) A data access system (FORTRAN subroutine). 4) An utility program for updating and documentation of the actual library content. The central part is a set of FORTRAN functions, e.g. WL H2O v(t,p) (heat conduction of water vapor as a function of temperature and pressure), which compute the required data and which can be called by the user program. The data content of MAPLIB has been delivered by many persons. There was no systematic evaluation of the material. It is the responsibility of every user to check the data for physical accuracy. MAPLIB only serves as a library system for manipulation and storing of such data. 3 - Restrictions on the complexity of the problem: a) See responsibility as explained above. b) Up to 1000 data functions could be implemented. c) If too many data functions are included in MAPLIB, the storage requirements become excessive for application in users programs

A Case Study of Some Issues in the Optimization of Fortran 90 Array Notation

Directory of Open Access Journals (Sweden)

John D. McCalpin

1996-01-01

Full Text Available Some issues in the relationship of coding style and compiler optimization are discussed with regard to Fortran 90 array notation. A review of several important Fortran 90 array constructs and their performance on vector and scalar hardware sets the stage for a more detailed example based on the kernel of a finite difference computational fluid dynamics model, specifically the nonlinear shallow water equations. Special attention is paid to the optimization of memory use and memory traffic. It is shown that the style of coding interacts with the rules of Fortran 90 and the current state of the art of Fortran 90 compilers to produce a fairly wide range of performance levels. Although performance degradations are typically small, a few cases of more serious loss of effciency are identified and discussed.

FORTRAN data files transference from VAX/VMS to ALPHA/UNIX

International Nuclear Information System (INIS)

Sanchez, E.; Milligen, B.Ph. van

1997-01-01

Several tools have been developed to access the TJ-I and TJ-IU databases, which currently reside in VAX/VMS servers, from the TJ-II Data Acquisition System DEC ALPHA 8400 server. The TJ-I/TJ-IU databases are not homogeneous and contain several types of data files, namely, SADE. CAMAC and FORTRAN un formatted files. The tools presented in this report allow one to transfer CAMAC and those FORTRAN un formatted files defined herein. from a VAX/VMS server, for data manipulation on the ALPHA/Digital UNIX server. (Author) 5 refs

Numerical methods of mathematical optimization with Algol and Fortran programs

CERN Document Server

Künzi, Hans P; Zehnder, C A; Rheinboldt, Werner

1971-01-01

Numerical Methods of Mathematical Optimization: With ALGOL and FORTRAN Programs reviews the theory and the practical application of the numerical methods of mathematical optimization. An ALGOL and a FORTRAN program was developed for each one of the algorithms described in the theoretical section. This should result in easy access to the application of the different optimization methods.Comprised of four chapters, this volume begins with a discussion on the theory of linear and nonlinear optimization, with the main stress on an easily understood, mathematically precise presentation. In addition

Using Coarrays to Parallelize Legacy Fortran Applications: Strategy and Case Study

Directory of Open Access Journals (Sweden)

Hari Radhakrishnan

2015-01-01

Full Text Available This paper summarizes a strategy for parallelizing a legacy Fortran 77 program using the object-oriented (OO and coarray features that entered Fortran in the 2003 and 2008 standards, respectively. OO programming (OOP facilitates the construction of an extensible suite of model-verification and performance tests that drive the development. Coarray parallel programming facilitates a rapid evolution from a serial application to a parallel application capable of running on multicore processors and many-core accelerators in shared and distributed memory. We delineate 17 code modernization steps used to refactor and parallelize the program and study the resulting performance. Our initial studies were done using the Intel Fortran compiler on a 32-core shared memory server. Scaling behavior was very poor, and profile analysis using TAU showed that the bottleneck in the performance was due to our implementation of a collective, sequential summation procedure. We were able to improve the scalability and achieve nearly linear speedup by replacing the sequential summation with a parallel, binary tree algorithm. We also tested the Cray compiler, which provides its own collective summation procedure. Intel provides no collective reductions. With Cray, the program shows linear speedup even in distributed-memory execution. We anticipate similar results with other compilers once they support the new collective procedures proposed for Fortran 2015.

Pattern recognition in molecular dynamics. [FORTRAN

Energy Technology Data Exchange (ETDEWEB)

Zurek, W H; Schieve, W C [Texas Univ., Austin (USA)

1977-07-01

An algorithm for the recognition of the formation of bound molecular states in the computer simulation of a dilute gas is presented. Applications to various related problems in physics and chemistry are pointed out. Data structure and decision processes are described. Performance of the FORTRAN program based on the algorithm in cooperation with the molecular dynamics program is described and the results are presented.

PGHPF – An Optimizing High Performance Fortran Compiler for Distributed Memory Machines

Directory of Open Access Journals (Sweden)

Zeki Bozkus

1997-01-01

Full Text Available High Performance Fortran (HPF is the first widely supported, efficient, and portable parallel programming language for shared and distributed memory systems. HPF is realized through a set of directive-based extensions to Fortran 90. It enables application developers and Fortran end-users to write compact, portable, and efficient software that will compile and execute on workstations, shared memory servers, clusters, traditional supercomputers, or massively parallel processors. This article describes a production-quality HPF compiler for a set of parallel machines. Compilation techniques such as data and computation distribution, communication generation, run-time support, and optimization issues are elaborated as the basis for an HPF compiler implementation on distributed memory machines. The performance of this compiler on benchmark programs demonstrates that high efficiency can be achieved executing HPF code on parallel architectures.

Bridging FORTRAN to object oriented paradigm for HEP data modeling task

International Nuclear Information System (INIS)

Huang, J.

1993-12-01

Object oriented (OO) technology appears to offer tangible benefits to the high energy physics (HEP) community. Yet many physicists view this newest software development used with much reservation and reluctance. Facing the reality of having to support the existing physics applications, which are written in FORTRAN, the software engineers in the Computer Engineering Group of the Physics Research Division at the Superconducting Super Collider Laboratory have accepted the challenge of mixing an old language with the new technology. This paper describes the experience and the techniques devised to fit FORTRAN into the OO paradigm (OOP)

The Transition and Adoption to Modern Programming Concepts for Scientific Computing in Fortran

Directory of Open Access Journals (Sweden)

Charles D. Norton

2007-01-01

Full Text Available This paper describes our experiences in the early exploration of modern concepts introduced in Fortran90 for large-scale scientific programming. We review our early work in expressing object-oriented concepts based on the new Fortran90 constructs – foreign to most programmers at the time – our experimental work in applying them to various applications, the impact on the WG5/J3 standards committees to consider formalizing object-oriented constructs for later versions of Fortran, and work in exploring how other modern programming techniques such as Design Patterns can and have impacted our software development. Applications will be drawn from plasma particle simulation and finite element adaptive mesh refinement for solid earth crustal deformation modeling.

Numerical integration subprogrammes in Fortran II-D

Energy Technology Data Exchange (ETDEWEB)

Fry, C. R.

1966-12-15

This note briefly describes some integration subprogrammes written in FORTRAN II-D for the IBM 1620-II at CARDE. These presented are two Newton-Cotes, Chebyshev polynomial summation, Filon's, Nordsieck's and optimum Runge-Kutta and predictor-corrector methods. A few miscellaneous numerical integration procedures are also mentioned covering statistical functions, oscillating integrands and functions occurring in electrical engineering.

MPI to Coarray Fortran: Experiences with a CFD Solver for Unstructured Meshes

Directory of Open Access Journals (Sweden)

Anuj Sharma

2017-01-01

Full Text Available High-resolution numerical methods and unstructured meshes are required in many applications of Computational Fluid Dynamics (CFD. These methods are quite computationally expensive and hence benefit from being parallelized. Message Passing Interface (MPI has been utilized traditionally as a parallelization strategy. However, the inherent complexity of MPI contributes further to the existing complexity of the CFD scientific codes. The Partitioned Global Address Space (PGAS parallelization paradigm was introduced in an attempt to improve the clarity of the parallel implementation. We present our experiences of converting an unstructured high-resolution compressible Navier-Stokes CFD solver from MPI to PGAS Coarray Fortran. We present the challenges, methodology, and performance measurements of our approach using Coarray Fortran. With the Cray compiler, we observe Coarray Fortran as a viable alternative to MPI. We are hopeful that Intel and open-source implementations could be utilized in the future.

Visualization of Distributed Data Structures for High Performance Fortran-Like Languages

Directory of Open Access Journals (Sweden)

Rainer Koppler

1997-01-01

Full Text Available This article motivates the usage of graphics and visualization for efficient utilization of High Performance Fortran's (HPF's data distribution facilities. It proposes a graphical toolkit consisting of exploratory and estimation tools which allow the programmer to navigate through complex distributions and to obtain graphical ratings with respect to load distribution and communication. The toolkit has been implemented in a mapping design and visualization tool which is coupled with a compilation system for the HPF predecessor Vienna Fortran. Since this language covers a superset of HPF's facilities, the tool may also be used for visualization of HPF data structures.

Fortran code for generating random probability vectors, unitaries, and quantum states

Directory of Open Access Journals (Sweden)

Jonas eMaziero

2016-03-01

Full Text Available The usefulness of generating random configurations is recognized in many areas of knowledge. Fortran was born for scientific computing and has been one of the main programming languages in this area since then. And several ongoing projects targeting towards its betterment indicate that it will keep this status in the decades to come. In this article, we describe Fortran codes produced, or organized, for the generation of the following random objects: numbers, probability vectors, unitary matrices, and quantum state vectors and density matrices. Some matrix functions are also included and may be of independent interest.

FORTRAN text correction with the CDC-1604-A console typewriter during reading a punched card program

International Nuclear Information System (INIS)

Kotorobaj, F.; Ruzhichka, Ya.; Stolyarskij, Yu.V.

1977-01-01

The paper describes FORTRAN text correction with the CDC 1604-A console typewriter during reading a punched card program. This method gives one more possibility of FORTRAN program correction during program's input to the CDC 1604-A computer. This essentially reduced the time necessary for punched card correction with other methods. Possibility of inputting desired number of punched cards one after another allows one writing small FORTRAN programs to computer core storage with simultaneous punching of the cards. The correction program has been written to the CDC 1604 COOP monitor

User manual for two simple postscript output FORTRAN plotting routines

Science.gov (United States)

Nguyen, T. X.

1991-01-01

Graphics is one of the important tools in engineering analysis and design. However, plotting routines that generate output on high quality laser printers normally come in graphics packages, which tend to be expensive and system dependent. These factors become important for small computer systems or desktop computers, especially when only some form of a simple plotting routine is sufficient. With the Postscript language becoming popular, there are more and more Postscript laser printers now available. Simple, versatile, low cost plotting routines that can generate output on high quality laser printers are needed and standard FORTRAN language plotting routines using output in Postscript language seems logical. The purpose here is to explain two simple FORTRAN plotting routines that generate output in Postscript language.

Multidimentional and Multi-Parameter Fortran-Based Curve Fitting ...

African Journals Online (AJOL)

This work briefly describes the mathematics behind the algorithm, and also elaborates how to implement it using FORTRAN 95 programming language. The advantage of this algorithm, when it is extended to surfaces and complex functions, is that it makes researchers to have a better trust during fitting. It also improves the ...

An Introduction to Fortran Programming: An IPI Approach.

Science.gov (United States)

Fisher, D. D.; And Others

This text is designed to give individually paced instruction in Fortran Programing. The text contains fifteen units. Unit titles include: Flowcharts, Input and Output, Loops, and Debugging. Also included is an extensive set of appendices. These were designed to contain a great deal of practical information necessary to the course. These appendices…

FORTRAN programs for transient eddy current calculations using a perturbation-polynomial expansion technique

International Nuclear Information System (INIS)

Carpenter, K.H.

1976-11-01

A description is given of FORTRAN programs for transient eddy current calculations in thin, non-magnetic conductors using a perturbation-polynomial expansion technique. Basic equations are presented as well as flow charts for the programs implementing them. The implementation is in two steps--a batch program to produce an intermediate data file and interactive programs to produce graphical output. FORTRAN source listings are included for all program elements, and sample inputs and outputs are given for the major programs

TOOLPACK1, Tools for Development and Maintenance of FORTRAN 77 Program

International Nuclear Information System (INIS)

Cowell, Wayne R.

1993-01-01

1 - Description of program or function: TOOLPACK1 consists of the following categories of software; (1) an integrated collection of tools intended to support the development and maintenance of FORTRAN 77 programs, in particular moderate-sized collections of mathematical software; (2) several user/Toolpack interfaces, one of which is selected for use at any particular installation; (3) three implementations of the tool/system interface, called TIE (Tool Interface to the Environment). The tools are written in FORTRAN 77 and are portable among TIE installations. The source contains symbolic constants as macro names and must be expanded with a suitable macro expander before being compiled and loaded. A portable macro expander is supplied in TOOLPACK1. The tools may be divided into three functional areas: general, documentation, and processing. One tool, the macro processor, Can be used in any of these categories. ISTDC: data comparison tool is designed mainly for comparing files of numeric values, and files with embedded text. ISTET Expands tabs. ISTFI: finds all the include files that a file needs. ISTGP Searches multiple files for occurrences of a regular expression. ISTHP: will provide limited help information about tools. ISTMP: The macro processor may be used to pre-process a file. The processor provides macro replacement, inclusion, conditional replacement, and processing capabilities for complex file processing. ISTSP: TIE-conforming version of the SPLIT utility to split up the concatenated files used on the tape. ISTSV: save/restore utility to save and restore sub-trees of the Portable File Store (PFS). ISTTD: text comparison tool. ISTVC: simple text file version controller. ISTAL: aids is a preprocessor that can be used to generate specific information from intermediate files created by other tools. The information that can be generated includes call-graphs, cross reference listings, segment execution frequencies, and symbol information. ISTAL can also strip

Nonalgebraic symbol manipulators for use in scientific and engineering modeling: introducing the FORSE (FORtran Symobol Expander)

International Nuclear Information System (INIS)

Schultz, J.H.; Lettvin, J.D.

1982-02-01

A system of nonalgebraic symbol manipulators, called The FORSE (FORtran Symbol Expanders) has been developed to document and prepare input-output for Fortran programs. The use of documentation at the level of the individual equation is defended. The operation of The FORSE is described, along with user instructions and a worked example

Existing Fortran interfaces to Trilinos in preparation for exascale ForTrilinos development

Energy Technology Data Exchange (ETDEWEB)

Evans, Katherine J. [Oak Ridge National Lab. (ORNL), Oak Ridge, TN (United States); Young, Mitchell T. [Oak Ridge National Lab. (ORNL), Oak Ridge, TN (United States); Collins, Benjamin S. [Oak Ridge National Lab. (ORNL), Oak Ridge, TN (United States); Johnson, Seth R. [Oak Ridge National Lab. (ORNL), Oak Ridge, TN (United States); Prokopenko, Andrey V. [Oak Ridge National Lab. (ORNL), Oak Ridge, TN (United States); Heroux, Michael A. [Sandia National Lab. (SNL-NM), Albuquerque, NM (United States)

2017-03-01

This report summarizes the current state of Fortran interfaces to the Trilinos library within several key applications of the Exascale Computing Program (ECP), with the aim of informing developers about strategies to develop ForTrilinos, an exascale-ready, Fortran interface software package within Trilinos. The two software projects assessed within are the DOE Office of Science's Accelerated Climate Model for Energy (ACME) atmosphere component, CAM, and the DOE Office of Nuclear Energy's core-simulator portion of VERA, a nuclear reactor simulation code. Trilinos is an object-oriented, C++ based software project, and spans a collection of algorithms and other enabling technologies such as uncertainty quantification and mesh generation. To date, Trilinos has enabled these codes to achieve large-scale simulation results, however the simulation needs of CAM and VERA-CS will approach exascale over the next five years. A Fortran interface to Trilinos that enables efficient use of programming models and more advanced algorithms is necessary. Where appropriate, the needs of the CAM and VERA-CS software to achieve their simulation goals are called out specifically. With this report, a design document and execution plan for ForTrilinos development can proceed.

Implementation of Neutronics Analysis Code using the Features of Object Oriented Programming via Fortran90/95

Energy Technology Data Exchange (ETDEWEB)

Han, Tae Young; Cho, Beom Jin [KEPCO Nuclear Fuel, Daejeon (Korea, Republic of)

2011-05-15

The object-oriented programming (OOP) concept was radically established after 1990s and successfully involved in Fortran 90/95. The features of OOP are such as the information hiding, encapsulation, modularity and inheritance, which lead to producing code that satisfy three R's: reusability, reliability and readability. The major OOP concepts, however, except Module are not mainly used in neutronics analysis codes even though the code was written by Fortran 90/95. In this work, we show that the OOP concept can be employed to develop the neutronics analysis code, ASTRA1D (Advanced Static and Transient Reactor Analyzer for 1-Dimension), via Fortran90/95 and those can be more efficient and reasonable programming methods

A FORTRAN program for a least-square fitting

International Nuclear Information System (INIS)

Yamazaki, Tetsuo

1978-01-01

A practical FORTRAN program for a least-squares fitting is presented. Although the method is quite usual, the program calculates not only the most satisfactory set of values of unknowns but also the plausible errors associated with them. As an example, a measured lateral absorbed-dose distribution in water for a narrow 25-MeV electron beam is fitted to a Gaussian distribution. (auth.)

The formal specification of abstract data types and their implementation in Fortran 90: implementation issues concerning the use of pointers

Science.gov (United States)

Maley, D.; Kilpatrick, P. L.; Schreiner, E. W.; Scott, N. S.; Diercksen, G. H. F.

1996-10-01

In this paper we continue our investigation into the development of computational-science software based on the identification and formal specification of Abstract Data Types (ADTs) and their implementation in Fortran 90. In particular, we consider the consequences of using pointers when implementing a formally specified ADT in Fortran 90. Our aim is to highlight the resulting conflict between the goal of information hiding, which is central to the ADT methodology, and the space efficiency of the implementation. We show that the issue of storage recovery cannot be avoided by the ADT user, and present a range of implementations of a simple ADT to illustrate various approaches towards satisfactory storage management. Finally, we propose a set of guidelines for implementing ADTs using pointers in Fortran 90. These guidelines offer a way gracefully to provide disposal operations in Fortran 90. Such an approach is desirable since Fortran 90 does not provide automatic garbage collection which is offered by many object-oriented languages including Eiffel, Java, Smalltalk, and Simula.

A Fortran Program for Deep Space Sensor Analysis.

Science.gov (United States)

1984-12-14

used to help p maintain currency to the deep space satellite catelog? Research Question Can a Fortran program be designed to evaluate the effectiveness ...Range ( AFETR ) Range p Measurements Laboratory (RML) is located in Malibar, .- Florida. Like GEODSS, Malibar uses a 48 inch telescope with a...phased out. This mode will evaluate the effect of the loss of the 3 Baker-Nunn sites to mode 3 Mode 5 through Mode 8 Modes 5 through 8 are identical to

An environment for parallel structuring of Fortran programs

International Nuclear Information System (INIS)

Sridharan, K.; McShea, M.; Denton, C.; Eventoff, B.; Browne, J.C.; Newton, P.; Ellis, M.; Grossbard, D.; Wise, T.; Clemmer, D.

1990-01-01

The paper describes and illustrates an environment for interactive support of the detection and implementation of macro-level parallelism in Fortran programs. The approach couples algorithms for dependence analysis with both innovative techniques for complexity management and capabilities for the measurement and analysis of the parallel computation structures generated through use of the environment. The resulting environment is complementary to the more common approach of seeking local parallelism by loop unrolling, either by an automatic compiler or manually. (orig.)

DB90: A Fortran Callable Relational Database Routine for Scientific and Engineering Computer Programs

Science.gov (United States)

Wrenn, Gregory A.

2005-01-01

This report describes a database routine called DB90 which is intended for use with scientific and engineering computer programs. The software is written in the Fortran 90/95 programming language standard with file input and output routines written in the C programming language. These routines should be completely portable to any computing platform and operating system that has Fortran 90/95 and C compilers. DB90 allows a program to supply relation names and up to 5 integer key values to uniquely identify each record of each relation. This permits the user to select records or retrieve data in any desired order.

A brief description and comparison of programming languages FORTRAN, ALGOL, COBOL, PL/1, and LISP 1.5 from a critical standpoint

Science.gov (United States)

Mathur, F. P.

1972-01-01

Several common higher level program languages are described. FORTRAN, ALGOL, COBOL, PL/1, and LISP 1.5 are summarized and compared. FORTRAN is the most widely used scientific programming language. ALGOL is a more powerful language for scientific programming. COBOL is used for most commercial programming applications. LISP 1.5 is primarily a list-processing language. PL/1 attempts to combine the desirable features of FORTRAN, ALGOL, and COBOL into a single language.

IMAGEP - A FORTRAN ALGORITHM FOR DIGITAL IMAGE PROCESSING

Science.gov (United States)

Roth, D. J.

1994-01-01

IMAGEP is a FORTRAN computer algorithm containing various image processing, analysis, and enhancement functions. It is a keyboard-driven program organized into nine subroutines. Within the subroutines are other routines, also, selected via keyboard. Some of the functions performed by IMAGEP include digitization, storage and retrieval of images; image enhancement by contrast expansion, addition and subtraction, magnification, inversion, and bit shifting; display and movement of cursor; display of grey level histogram of image; and display of the variation of grey level intensity as a function of image position. This algorithm has possible scientific, industrial, and biomedical applications in material flaw studies, steel and ore analysis, and pathology, respectively. IMAGEP is written in VAX FORTRAN for DEC VAX series computers running VMS. The program requires the use of a Grinnell 274 image processor which can be obtained from Mark McCloud Associates, Campbell, CA. An object library of the required GMR series software is included on the distribution media. IMAGEP requires 1Mb of RAM for execution. The standard distribution medium for this program is a 1600 BPI 9track magnetic tape in VAX FILES-11 format. It is also available on a TK50 tape cartridge in VAX FILES-11 format. This program was developed in 1991. DEC, VAX, VMS, and TK50 are trademarks of Digital Equipment Corporation.

Reformulation RELAP5-3D in FORTRAN 95 and Results

International Nuclear Information System (INIS)

Mesina, George L.

2010-01-01

RELAP5-3D is a nuclear power plant code used worldwide for safety analysis, design, and operator training. In keeping with ongoing developments in the computing industry, we have re-architected the code in the FORTRAN 95 language, the current, fully-available, FORTRAN language. These changes include a complete reworking of the database and conversion of the source code to take advantage of new constructs. The improvements and impacts to the code are manifold. It is a completely machine-independent code that produces machine independent fluid property and plot files and expands to the exact size needed to accommodate the user's input. Runtime is generally better for larger input models. Other impacts of code conversion are improved code readability, reduced maintenance and development time, increased adaptability to new computing platforms, and increased code longevity. The conversion methodology, code improvements and testing upgrades are presented in a manner that will be useful to future conversion projects for other such large codes. Comparison between the pre- and post-conversion code are made on the basis of code metrics and code performance.

Pseudo-BINPUT, a free formal input package for Fortran programmes

International Nuclear Information System (INIS)

Gubbins, M.E.

1977-11-01

Pseudo - BINPUT is an input package for reading free format data in codeword control in a FORTRAN programme. To a large degree it mimics in function the Winfrith Subroutine Library routine BINPUT. By using calls of the data input package DECIN to mimic the input routine BINPUT, Pseudo - BINPUT combines some of the advantages of both systems. (U.K.)

OpenMP GNU and Intel Fortran programs for solving the time-dependent Gross-Pitaevskii equation

Science.gov (United States)

Young-S., Luis E.; Muruganandam, Paulsamy; Adhikari, Sadhan K.; Lončar, Vladimir; Vudragović, Dušan; Balaž, Antun

2017-11-01

We present Open Multi-Processing (OpenMP) version of Fortran 90 programs for solving the Gross-Pitaevskii (GP) equation for a Bose-Einstein condensate in one, two, and three spatial dimensions, optimized for use with GNU and Intel compilers. We use the split-step Crank-Nicolson algorithm for imaginary- and real-time propagation, which enables efficient calculation of stationary and non-stationary solutions, respectively. The present OpenMP programs are designed for computers with multi-core processors and optimized for compiling with both commercially-licensed Intel Fortran and popular free open-source GNU Fortran compiler. The programs are easy to use and are elaborated with helpful comments for the users. All input parameters are listed at the beginning of each program. Different output files provide physical quantities such as energy, chemical potential, root-mean-square sizes, densities, etc. We also present speedup test results for new versions of the programs. Program files doi:http://dx.doi.org/10.17632/y8zk3jgn84.2 Licensing provisions: Apache License 2.0 Programming language: OpenMP GNU and Intel Fortran 90. Computer: Any multi-core personal computer or workstation with the appropriate OpenMP-capable Fortran compiler installed. Number of processors used: All available CPU cores on the executing computer. Journal reference of previous version: Comput. Phys. Commun. 180 (2009) 1888; ibid.204 (2016) 209. Does the new version supersede the previous version?: Not completely. It does supersede previous Fortran programs from both references above, but not OpenMP C programs from Comput. Phys. Commun. 204 (2016) 209. Nature of problem: The present Open Multi-Processing (OpenMP) Fortran programs, optimized for use with commercially-licensed Intel Fortran and free open-source GNU Fortran compilers, solve the time-dependent nonlinear partial differential (GP) equation for a trapped Bose-Einstein condensate in one (1d), two (2d), and three (3d) spatial dimensions for

Final Report, Center for Programming Models for Scalable Parallel Computing: Co-Array Fortran, Grant Number DE-FC02-01ER25505

Energy Technology Data Exchange (ETDEWEB)

Robert W. Numrich

2008-04-22

The major accomplishment of this project is the production of CafLib, an 'object-oriented' parallel numerical library written in Co-Array Fortran. CafLib contains distributed objects such as block vectors and block matrices along with procedures, attached to each object, that perform basic linear algebra operations such as matrix multiplication, matrix transpose and LU decomposition. It also contains constructors and destructors for each object that hide the details of data decomposition from the programmer, and it contains collective operations that allow the programmer to calculate global reductions, such as global sums, global minima and global maxima, as well as vector and matrix norms of several kinds. CafLib is designed to be extensible in such a way that programmers can define distributed grid and field objects, based on vector and matrix objects from the library, for finite difference algorithms to solve partial differential equations. A very important extra benefit that resulted from the project is the inclusion of the co-array programming model in the next Fortran standard called Fortran 2008. It is the first parallel programming model ever included as a standard part of the language. Co-arrays will be a supported feature in all Fortran compilers, and the portability provided by standardization will encourage a large number of programmers to adopt it for new parallel application development. The combination of object-oriented programming in Fortran 2003 with co-arrays in Fortran 2008 provides a very powerful programming model for high-performance scientific computing. Additional benefits from the project, beyond the original goal, include a programto provide access to the co-array model through access to the Cray compiler as a resource for teaching and research. Several academics, for the first time, included the co-array model as a topic in their courses on parallel computing. A separate collaborative project with LANL and PNNL showed how to

Mass: Fortran program for calculating mass-absorption coefficients

International Nuclear Information System (INIS)

Nielsen, Aa.; Svane Petersen, T.

1980-01-01

Determinations of mass-absorption coefficients in the x-ray analysis of trace elements are an important and time consuming part of the arithmetic calculation. In the course of time different metods have been used. The program MASS calculates the mass-absorption coefficients from a given major element analysis at the x-ray wavelengths normally used in trace element determinations and lists the chemical analysis and the mass-absorption coefficients. The program is coded in FORTRAN IV, and is operational on the IBM 370/165 computer, on the UNIVAC 1110 and on PDP 11/05. (author)

Fortran code for SU(3) lattice gauge theory with and without MPI checkerboard parallelization

Science.gov (United States)

Berg, Bernd A.; Wu, Hao

2012-10-01

We document plain Fortran and Fortran MPI checkerboard code for Markov chain Monte Carlo simulations of pure SU(3) lattice gauge theory with the Wilson action in D dimensions. The Fortran code uses periodic boundary conditions and is suitable for pedagogical purposes and small scale simulations. For the Fortran MPI code two geometries are covered: the usual torus with periodic boundary conditions and the double-layered torus as defined in the paper. Parallel computing is performed on checkerboards of sublattices, which partition the full lattice in one, two, and so on, up to D directions (depending on the parameters set). For updating, the Cabibbo-Marinari heatbath algorithm is used. We present validations and test runs of the code. Performance is reported for a number of currently used Fortran compilers and, when applicable, MPI versions. For the parallelized code, performance is studied as a function of the number of processors. Program summary Program title: STMC2LSU3MPI Catalogue identifier: AEMJ_v1_0 Program summary URL:http://cpc.cs.qub.ac.uk/summaries/AEMJ_v1_0.html Program obtainable from: CPC Program Library, Queen's University, Belfast, N. Ireland Licensing provisions: Standard CPC licence, http://cpc.cs.qub.ac.uk/licence/licence.html No. of lines in distributed program, including test data, etc.: 26666 No. of bytes in distributed program, including test data, etc.: 233126 Distribution format: tar.gz Programming language: Fortran 77 compatible with the use of Fortran 90/95 compilers, in part with MPI extensions. Computer: Any capable of compiling and executing Fortran 77 or Fortran 90/95, when needed with MPI extensions. Operating system: Red Hat Enterprise Linux Server 6.1 with OpenMPI + pgf77 11.8-0, Centos 5.3 with OpenMPI + gfortran 4.1.2, Cray XT4 with MPICH2 + pgf90 11.2-0. Has the code been vectorised or parallelized?: Yes, parallelized using MPI extensions. Number of processors used: 2 to 11664 RAM: 200 Mega bytes per process. Classification: 11

Exploiting first-class arrays in Fortran for accelerator programming

International Nuclear Information System (INIS)

Rasmussen, Craig E.; Weseloh, Wayne N.; Robey, Robert W.; Sottile, Matthew J.; Quinlan, Daniel; Overbey, Jeffrey

2010-01-01

Emerging architectures for high performance computing often are well suited to a data parallel programming model. This paper presents a simple programming methodology based on existing languages and compiler tools that allows programmers to take advantage of these systems. We will work with the array features of Fortran 90 to show how this infrequently exploited, standardized language feature is easily transformed to lower level accelerator code. Our transformations are based on a mapping from Fortran 90 to C++ code with OpenCL extensions. The sheer complexity of programming for clusters of many or multi-core processors with tens of millions threads of execution make the simplicity of the data parallel model attractive. Furthermore, the increasing complexity of todays applications (especially when convolved with the increasing complexity of the hardware) and the need for portability across hardware architectures make a higher-level and simpler programming model like data parallel attractive. The goal of this work has been to exploit source-to-source transformations that allow programmers to develop and maintain programs at a high-level of abstraction, without coding to a specific hardware architecture. Furthermore these transformations allow multiple hardware architectures to be targeted without changing the high-level source. It also removes the necessity for application programmers to understand details of the accelerator architecture or to know OpenCL.

DISPPAK SUBPAK, MS FORTRAN Extended Subroutine Library

International Nuclear Information System (INIS)

Langer, S.

1991-01-01

1 - Description of program or function: DISPPAK is a set of routines for use with Microsoft FORTRAN programs that allows the flexible display of information on the screen of an IBM PC in both text and graphics modes. The text mode routines allow the cursor to be placed at an arbitrary point on the screen and text to be displayed at the cursor location, making it possible to create menus and other structured displays. A routine to set the color of the characters that these routines display is also provided. A set of line drawing routines is included for use with IBM's Color Graphics Adapter or an equivalent board (such as the Enhanced Graphics Adapter in CGA emulation mode). These routines support both pixel coordinates and a user-specified set of real number coordinates. SUBPAK is a function library which allows Microsoft FORTRAN programs to calculate random numbers, issue calls to the operating system, read individual characters from the keyboard, perform Boolean and shift operations, and communicate with the I/O ports of the IBM PC. In addition, peek and poke routines, a routine that returns the address of any variable, and routines that can access the system time and date are included. 2 - Method of solution: For the DISPPAK line drawing routines, the user selects a fraction of the screen to use for plotting, chooses the coordinates that refer to the lower-left and upper-right corners, and decides whether the mapping should be linear or logarithmic. Lines are then drawn between endpoints defined in terms of the user coordinate system. Out-of-range coordinates are forced to the border of the window before the line is drawn. 3 - Restrictions on the complexity of the problem: No support is provided for filled areas or text

Optimization of Grillages Using Genetic Algorithms for Integrating Matlab and Fortran Environments

Directory of Open Access Journals (Sweden)

Darius Mačiūnas

2013-02-01

Full Text Available The purpose of the paper is to present technology applied for the global optimization of grillage-type pile foundations (further grillages. The goal of optimization is to obtain the optimal layout of pile placement in the grillages. The problem can be categorized as a topology optimization problem. The objective function is comprised of maximum reactive force emerging in a pile. The reactive force is minimized during the procedure of optimization during which variables enclose the positions of piles beneath connecting beams. Reactive forces in all piles are computed utilizing an original algorithm implemented in the Fortran programming language. The algorithm is integrated into the MatLab environment where the optimization procedure is executed utilizing a genetic algorithm. The article also describes technology enabling the integration of MatLab and Fortran environments. The authors seek to evaluate the quality of a solution to the problem analyzing experimental results obtained applying the proposed technology.

Optimization of Grillages Using Genetic Algorithms for Integrating Matlab and Fortran Environments

Directory of Open Access Journals (Sweden)

Darius Mačiūnas

2012-12-01

Full Text Available The purpose of the paper is to present technology applied for the global optimization of grillage-type pile foundations (further grillages. The goal of optimization is to obtain the optimal layout of pile placement in the grillages. The problem can be categorized as a topology optimization problem. The objective function is comprised of maximum reactive force emerging in a pile. The reactive force is minimized during the procedure of optimization during which variables enclose the positions of piles beneath connecting beams. Reactive forces in all piles are computed utilizing an original algorithm implemented in the Fortran programming language. The algorithm is integrated into the MatLab environment where the optimization procedure is executed utilizing a genetic algorithm. The article also describes technology enabling the integration of MatLab and Fortran environments. The authors seek to evaluate the quality of a solution to the problem analyzing experimental results obtained applying the proposed technology.

FORTRAN subroutine for computing the optimal estimate of f(x)

International Nuclear Information System (INIS)

Gaffney, P.W.

1980-10-01

A FORTRAN subroutine called RANGE is presented that is designed to compute the optimal estimate of a function f given values of the function at n distinct points x 1 2 < ... < x/sub n/ and given a bound on one of the derivatives of f. We donate this estimate by Ω. It is optimal in the sense that the error abs value (f - Ω) has the smallest possible error bound

Fortran programs for the time-dependent Gross-Pitaevskii equation in a fully anisotropic trap

Science.gov (United States)

Muruganandam, P.; Adhikari, S. K.

2009-10-01

Here we develop simple numerical algorithms for both stationary and non-stationary solutions of the time-dependent Gross-Pitaevskii (GP) equation describing the properties of Bose-Einstein condensates at ultra low temperatures. In particular, we consider algorithms involving real- and imaginary-time propagation based on a split-step Crank-Nicolson method. In a one-space-variable form of the GP equation we consider the one-dimensional, two-dimensional circularly-symmetric, and the three-dimensional spherically-symmetric harmonic-oscillator traps. In the two-space-variable form we consider the GP equation in two-dimensional anisotropic and three-dimensional axially-symmetric traps. The fully-anisotropic three-dimensional GP equation is also considered. Numerical results for the chemical potential and root-mean-square size of stationary states are reported using imaginary-time propagation programs for all the cases and compared with previously obtained results. Also presented are numerical results of non-stationary oscillation for different trap symmetries using real-time propagation programs. A set of convenient working codes developed in Fortran 77 are also provided for all these cases (twelve programs in all). In the case of two or three space variables, Fortran 90/95 versions provide some simplification over the Fortran 77 programs, and these programs are also included (six programs in all). Program summaryProgram title: (i) imagetime1d, (ii) imagetime2d, (iii) imagetime3d, (iv) imagetimecir, (v) imagetimesph, (vi) imagetimeaxial, (vii) realtime1d, (viii) realtime2d, (ix) realtime3d, (x) realtimecir, (xi) realtimesph, (xii) realtimeaxial Catalogue identifier: AEDU_v1_0 Program summary URL:http://cpc.cs.qub.ac.uk/summaries/AEDU_v1_0.html Program obtainable from: CPC Program Library, Queen's University, Belfast, N. Ireland Licensing provisions: Standard CPC licence, http://cpc.cs.qub.ac.uk/licence/licence.html No. of lines in distributed program, including test data

Real time interrupt handling using FORTRAN IV plus under RSX-11M

International Nuclear Information System (INIS)

Schultz, D.E.

1981-01-01

A real-time data acquisition application for a linear accelerator is described. The important programming features of this application are use of connect to interrupt, a shared library, map to I/O page, and a shared data area. How you can provide rapid interrupt handling using these tools from FORTRAN IV PLUS is explained

DDT: A Research Tool for Automatic Data Distribution in High Performance Fortran

Directory of Open Access Journals (Sweden)

Eduard AyguadÉ

1997-01-01

Full Text Available This article describes the main features and implementation of our automatic data distribution research tool. The tool (DDT accepts programs written in Fortran 77 and generates High Performance Fortran (HPF directives to map arrays onto the memories of the processors and parallelize loops, and executable statements to remap these arrays. DDT works by identifying a set of computational phases (procedures and loops. The algorithm builds a search space of candidate solutions for these phases which is explored looking for the combination that minimizes the overall cost; this cost includes data movement cost and computation cost. The movement cost reflects the cost of accessing remote data during the execution of a phase and the remapping costs that have to be paid in order to execute the phase with the selected mapping. The computation cost includes the cost of executing a phase in parallel according to the selected mapping and the owner computes rule. The tool supports interprocedural analysis and uses control flow information to identify how phases are sequenced during the execution of the application.

MULTITASKER, Multitasking Kernel for C and FORTRAN Under UNIX

International Nuclear Information System (INIS)

Brooks, E.D. III

1988-01-01

1 - Description of program or function: MULTITASKER implements a multitasking kernel for the C and FORTRAN programming languages that runs under UNIX. The kernel provides a multitasking environment which serves two purposes. The first is to provide an efficient portable environment for the development, debugging, and execution of production multiprocessor programs. The second is to provide a means of evaluating the performance of a multitasking program on model multiprocessor hardware. The performance evaluation features require no changes in the application program source and are implemented as a set of compile- and run-time options in the kernel. 2 - Method of solution: The FORTRAN interface to the kernel is identical in function to the CRI multitasking package provided for the Cray XMP. This provides a migration path to high speed (but small N) multiprocessors once the application has been coded and debugged. With use of the UNIX m4 macro preprocessor, source compatibility can be achieved between the UNIX code development system and the target Cray multiprocessor. The kernel also provides a means of evaluating a program's performance on model multiprocessors. Execution traces may be obtained which allow the user to determine kernel overhead, memory conflicts between various tasks, and the average concurrency being exploited. The kernel may also be made to switch tasks every cpu instruction with a random execution ordering. This allows the user to look for unprotected critical regions in the program. These features, implemented as a set of compile- and run-time options, cause extra execution overhead which is not present in the standard production version of the kernel

Application of Pfortran and Co-Array Fortran in the Parallelization of the GROMOS96 Molecular Dynamics Module

Directory of Open Access Journals (Sweden)

Piotr Bała

2001-01-01

Full Text Available After at least a decade of parallel tool development, parallelization of scientific applications remains a significant undertaking. Typically parallelization is a specialized activity supported only partially by the programming tool set, with the programmer involved with parallel issues in addition to sequential ones. The details of concern range from algorithm design down to low-level data movement details. The aim of parallel programming tools is to automate the latter without sacrificing performance and portability, allowing the programmer to focus on algorithm specification and development. We present our use of two similar parallelization tools, Pfortran and Cray's Co-Array Fortran, in the parallelization of the GROMOS96 molecular dynamics module. Our parallelization started from the GROMOS96 distribution's shared-memory implementation of the replicated algorithm, but used little of that existing parallel structure. Consequently, our parallelization was close to starting with the sequential version. We found the intuitive extensions to Pfortran and Co-Array Fortran helpful in the rapid parallelization of the project. We present performance figures for both the Pfortran and Co-Array Fortran parallelizations showing linear speedup within the range expected by these parallelization methods.

Running the EGS4 Monte Carlo code with Fortran 90 on a pentium computer

International Nuclear Information System (INIS)

Caon, M.; Bibbo, G.; Pattison, J.

1996-01-01

The possibility to run the EGS4 Monte Carlo code radiation transport system for medical radiation modelling on a microcomputer is discussed. This has been done using a Fortran 77 compiler with a 32-bit memory addressing system running under a memory extender operating system. In addition a virtual memory manager such as QEMM386 was required. It has successfully run on a SUN Sparcstation2. In 1995 faster Pentium-based microcomputers became available as did the Windows 95 operating system which can handle 32-bit programs, multitasking and provides its own virtual memory management. The paper describe how with simple modification to the batch files it was possible to run EGS4 on a Pentium under Fortran 90 and Windows 95. This combination of software and hardware is cheaper and faster than running it on a SUN Sparcstation2. 8 refs., 1 tab

Running the EGS4 Monte Carlo code with Fortran 90 on a pentium computer

Energy Technology Data Exchange (ETDEWEB)

Caon, M. [Flinders Univ. of South Australia, Bedford Park, SA (Australia)]|[Univercity of South Australia, SA (Australia); Bibbo, G. [Womens and Childrens hospital, SA (Australia); Pattison, J. [Univercity of South Australia, SA (Australia)

1996-09-01

The possibility to run the EGS4 Monte Carlo code radiation transport system for medical radiation modelling on a microcomputer is discussed. This has been done using a Fortran 77 compiler with a 32-bit memory addressing system running under a memory extender operating system. In addition a virtual memory manager such as QEMM386 was required. It has successfully run on a SUN Sparcstation2. In 1995 faster Pentium-based microcomputers became available as did the Windows 95 operating system which can handle 32-bit programs, multitasking and provides its own virtual memory management. The paper describe how with simple modification to the batch files it was possible to run EGS4 on a Pentium under Fortran 90 and Windows 95. This combination of software and hardware is cheaper and faster than running it on a SUN Sparcstation2. 8 refs., 1 tab.

SLACINPT - a FORTRAN program that generates boundary data for the SLAC gun code

International Nuclear Information System (INIS)

Michel, W.L.; Hepburn, J.D.

1982-03-01

The FORTRAN program SLACINPT was written to simplify the preparation of boundary data for the SLAC gun code. In SLACINPT, the boundary is described by a sequence of straight line or arc segments. From these, the program generates the individual boundary mesh point data, required as input by the SLAC gun code

Innovative Language-Based & Object-Oriented Structured AMR Using Fortran 90 and OpenMP

Science.gov (United States)

Norton, C.; Balsara, D.

1999-01-01

Parallel adaptive mesh refinement (AMR) is an important numerical technique that leads to the efficient solution of many physical and engineering problems. In this paper, we describe how AMR programing can be performed in an object-oreinted way using the modern aspects of Fortran 90 combined with the parallelization features of OpenMP.

QEDMOD: Fortran program for calculating the model Lamb-shift operator

Science.gov (United States)

Shabaev, V. M.; Tupitsyn, I. I.; Yerokhin, V. A.

2018-02-01

We present Fortran package QEDMOD for computing the model QED operator hQED that can be used to account for the Lamb shift in accurate atomic-structure calculations. The package routines calculate the matrix elements of hQED with the user-specified one-electron wave functions. The operator can be used to calculate Lamb shift in many-electron atomic systems with a typical accuracy of few percent, either by evaluating the matrix element of hQED with the many-electron wave function, or by adding hQED to the Dirac-Coulomb-Breit Hamiltonian.

Numerical computation of molecular integrals via optimized (vectorized) FORTRAN code

International Nuclear Information System (INIS)

Scott, T.C.; Grant, I.P.; Saunders, V.R.

1997-01-01

The calculation of molecular properties based on quantum mechanics is an area of fundamental research whose horizons have always been determined by the power of state-of-the-art computers. A computational bottleneck is the numerical calculation of the required molecular integrals to sufficient precision. Herein, we present a method for the rapid numerical evaluation of molecular integrals using optimized FORTRAN code generated by Maple. The method is based on the exploitation of common intermediates and the optimization can be adjusted to both serial and vectorized computations. (orig.)

The FORTRAN-77 version of the Karlsruhe program system KAPROS

International Nuclear Information System (INIS)

Moritz, N.

1985-02-01

The FORTRAN-77 KAPROS-kernel includes some major changes compared with the version, which is described in the KfK-report 2254. The changes are documented in this report from the point of view of the system-programmer. This report is meant to be a supplement to the KfK-report 2254, assuming that the reader of this report is familiar with the KfK-report 2254. He also should be familiar with the IBM operating system MVS SP1.3.2 and the usual terms of data processing. (orig.) [de

A FORTRAN realization of the block adjustment of CCD frames

Science.gov (United States)

Yu, Yong; Tang, Zhenghong; Li, Jinling; Zhao, Ming

A FORTRAN version realization of the block adjustment (BA) of overlapping CCD frames is developed. The flowchart is introduced including (a) data collection, (b) preprocessing, and (c) BA and object positioning. The subroutines and their functions are also demonstrated. The program package is tested by simulated data with/without the application of white noises. It is also preliminarily applied to the reduction of optical positions of four extragalactic radio sources. The results show that because of the increase in the sky coverage and number of reference stars, the precision of deducted positions is improved compared with single plate adjustment.

A browser-based tool for conversion between Fortran NAMELIST and XML/HTML

Science.gov (United States)

Naito, O.

A browser-based tool for conversion between Fortran NAMELIST and XML/HTML is presented. It runs on an HTML5 compliant browser and generates reusable XML files to aid interoperability. It also provides a graphical interface for editing and annotating variables in NAMELIST, hence serves as a primitive code documentation environment. Although the tool is not comprehensive, it could be viewed as a test bed for integrating legacy codes into modern systems.

A browser-based tool for conversion between Fortran NAMELIST and XML/HTML

Directory of Open Access Journals (Sweden)

O. Naito

2017-01-01

Full Text Available A browser-based tool for conversion between Fortran NAMELIST and XML/HTML is presented. It runs on an HTML5 compliant browser and generates reusable XML files to aid interoperability. It also provides a graphical interface for editing and annotating variables in NAMELIST, hence serves as a primitive code documentation environment. Although the tool is not comprehensive, it could be viewed as a test bed for integrating legacy codes into modern systems.

Types: A data abstraction package in FORTRAN

International Nuclear Information System (INIS)

Youssef, S.

1990-01-01

TYPES is a collection of Fortran programs which allow the creation and manipulation of abstract ''data objects'' without the need for a preprocessor. Each data object is assigned a ''type'' as it is created which implies participation in a set of characteristic operations. Available types include scalars, logicals, ordered sets, stacks, queues, sequences, trees, arrays, character strings, block text, histograms, virtual and allocatable memories. A data object may contain integers, reals, or other data objects in any combination. In addition to the type specific operations, a set of universal utilities allows for copying input/output to disk, naming, editing, displaying, user input, interactive creation, tests for equality of contents or structure, machine to machine translation or source code creation for and data object. TYPES is available on VAX/VMS, SUN 3, SPARC, DEC/Ultrix, Silicon Graphics 4D and Cray/Unicos machines. The capabilities of the package are discussed together with characteristic applications and experience in writing the GVerify package

OpenMP-accelerated SWAT simulation using Intel C and FORTRAN compilers: Development and benchmark

Science.gov (United States)

Ki, Seo Jin; Sugimura, Tak; Kim, Albert S.

2015-02-01

We developed a practical method to accelerate execution of Soil and Water Assessment Tool (SWAT) using open (free) computational resources. The SWAT source code (rev 622) was recompiled using a non-commercial Intel FORTRAN compiler in Ubuntu 12.04 LTS Linux platform, and newly named iOMP-SWAT in this study. GNU utilities of make, gprof, and diff were used to develop the iOMP-SWAT package, profile memory usage, and check identicalness of parallel and serial simulations. Among 302 SWAT subroutines, the slowest routines were identified using GNU gprof, and later modified using Open Multiple Processing (OpenMP) library in an 8-core shared memory system. In addition, a C wrapping function was used to rapidly set large arrays to zero by cross compiling with the original SWAT FORTRAN package. A universal speedup ratio of 2.3 was achieved using input data sets of a large number of hydrological response units. As we specifically focus on acceleration of a single SWAT run, the use of iOMP-SWAT for parameter calibrations will significantly improve the performance of SWAT optimization.

Far-field Lorenz-Mie scattering in an absorbing host medium: Theoretical formalism and FORTRAN program

Science.gov (United States)

Mishchenko, Michael I.; Yang, Ping

2018-01-01

In this paper we make practical use of the recently developed first-principles approach to electromagnetic scattering by particles immersed in an unbounded absorbing host medium. Specifically, we introduce an actual computational tool for the calculation of pertinent far-field optical observables in the context of the classical Lorenz-Mie theory. The paper summarizes the relevant theoretical formalism, explains various aspects of the corresponding numerical algorithm, specifies the input and output parameters of a FORTRAN program available at https://www.giss.nasa.gov/staff/mmishchenko/Lorenz-Mie.html, and tabulates benchmark results useful for testing purposes. This public-domain FORTRAN program enables one to solve the following two important problems: (i) simulate theoretically the reading of a remote well-collimated radiometer measuring electromagnetic scattering by an individual spherical particle or a small random group of spherical particles; and (ii) compute the single-scattering parameters that enter the vector radiative transfer equation derived directly from the Maxwell equations.

Far-Field Lorenz-Mie Scattering in an Absorbing Host Medium: Theoretical Formalism and FORTRAN Program

Science.gov (United States)

Mishchenko, Michael I.; Yang, Ping

2018-01-01

In this paper we make practical use of the recently developed first-principles approach to electromagnetic scattering by particles immersed in an unbounded absorbing host medium. Specifically, we introduce an actual computational tool for the calculation of pertinent far-field optical observables in the context of the classical Lorenzâ€"Mie theory. The paper summarizes the relevant theoretical formalism, explains various aspects of the corresponding numerical algorithm, specifies the input and output parameters of a FORTRAN program available at https://www.giss.nasa.gov/staff/mmishchenko/Lorenz-Mie.html, and tabulates benchmark results useful for testing purposes. This public-domain FORTRAN program enables one to solve the following two important problems: (i) simulate theoretically the reading of a remote well-collimated radiometer measuring electromagnetic scattering by an individual spherical particle or a small random group of spherical particles; and (ii) compute the single-scattering parameters that enter the vector radiative transfer equation derived directly from the Maxwell equations.

JTpack90: A parallel, object-based, Fortran 90 linear algebra package

Energy Technology Data Exchange (ETDEWEB)

Turner, J.A.; Kothe, D.B. [Los Alamos National Lab., NM (United States); Ferrell, R.C. [Cambridge Power Computing Associates, Ltd., Brookline, MA (United States)

1997-03-01

The authors have developed an object-based linear algebra package, currently with emphasis on sparse Krylov methods, driven primarily by needs of the Los Alamos National Laboratory parallel unstructured-mesh casting simulation tool Telluride. Support for a number of sparse storage formats, methods, and preconditioners have been implemented, driven primarily by application needs. They describe the object-based Fortran 90 approach, which enhances maintainability, performance, and extensibility, the parallelization approach using a new portable gather/scatter library (PGSLib), current capabilities and future plans, and present preliminary performance results on a variety of platforms.

Autogenic Feedback Training (Body Fortran) with Biofeedback and the Computer for Self-Improvement and Change.

Science.gov (United States)

Cassel, Russell N.; Sumintardja, Elmira Nasrudin

1983-01-01

Describes autogenic feedback training, which provides the basis whereby an individual is able to improve on well being through use of a technique described as "body fortran," implying that you program self as one programs a computer. Necessary requisites are described including relaxation training and the management of stress. (JAC)

Programs in Fortran language for reporting the results of the analyses by ICP emission spectroscopy

International Nuclear Information System (INIS)

Roca, M.

1985-01-01

Three programs, written in FORTRAN IV language, for reporting the results of the analyses by ICP emission spectroscopy from data stored in files on floppy disks have been developed. They are intended, respectively, for the analyses of: 1) waters, 2) granites and slates, and 3) different kinds of geological materials. (Author) 8 refs

The development of GPU-based parallel PRNG for Monte Carlo applications in CUDA Fortran

Directory of Open Access Journals (Sweden)

Hamed Kargaran

2016-04-01

Full Text Available The implementation of Monte Carlo simulation on the CUDA Fortran requires a fast random number generation with good statistical properties on GPU. In this study, a GPU-based parallel pseudo random number generator (GPPRNG have been proposed to use in high performance computing systems. According to the type of GPU memory usage, GPU scheme is divided into two work modes including GLOBAL_MODE and SHARED_MODE. To generate parallel random numbers based on the independent sequence method, the combination of middle-square method and chaotic map along with the Xorshift PRNG have been employed. Implementation of our developed PPRNG on a single GPU showed a speedup of 150x and 470x (with respect to the speed of PRNG on a single CPU core for GLOBAL_MODE and SHARED_MODE, respectively. To evaluate the accuracy of our developed GPPRNG, its performance was compared to that of some other commercially available PPRNGs such as MATLAB, FORTRAN and Miller-Park algorithm through employing the specific standard tests. The results of this comparison showed that the developed GPPRNG in this study can be used as a fast and accurate tool for computational science applications.

The development of GPU-based parallel PRNG for Monte Carlo applications in CUDA Fortran

Energy Technology Data Exchange (ETDEWEB)

Kargaran, Hamed, E-mail: h-kargaran@sbu.ac.ir; Minuchehr, Abdolhamid; Zolfaghari, Ahmad [Department of nuclear engineering, Shahid Behesti University, Tehran, 1983969411 (Iran, Islamic Republic of)

2016-04-15

The implementation of Monte Carlo simulation on the CUDA Fortran requires a fast random number generation with good statistical properties on GPU. In this study, a GPU-based parallel pseudo random number generator (GPPRNG) have been proposed to use in high performance computing systems. According to the type of GPU memory usage, GPU scheme is divided into two work modes including GLOBAL-MODE and SHARED-MODE. To generate parallel random numbers based on the independent sequence method, the combination of middle-square method and chaotic map along with the Xorshift PRNG have been employed. Implementation of our developed PPRNG on a single GPU showed a speedup of 150x and 470x (with respect to the speed of PRNG on a single CPU core) for GLOBAL-MODE and SHARED-MODE, respectively. To evaluate the accuracy of our developed GPPRNG, its performance was compared to that of some other commercially available PPRNGs such as MATLAB, FORTRAN and Miller-Park algorithm through employing the specific standard tests. The results of this comparison showed that the developed GPPRNG in this study can be used as a fast and accurate tool for computational science applications.

specsim: A Fortran-77 program for conditional spectral simulation in 3D

Science.gov (United States)

Yao, Tingting

1998-12-01

A Fortran 77 program, specsim, is presented for conditional spectral simulation in 3D domains. The traditional Fourier integral method allows generating random fields with a given covariance spectrum. Conditioning to local data is achieved by an iterative identification of the conditional phase information. A flowchart of the program is given to illustrate the implementation procedures of the program. A 3D case study is presented to demonstrate application of the program. A comparison with the traditional sequential Gaussian simulation algorithm emphasizes the advantages and drawbacks of the proposed algorithm.

A FORTRAN version implementation of block adjustment of CCD frames and its preliminary application

Science.gov (United States)

Yu, Y.; Tang, Z.-H.; Li, J.-L.; Zhao, M.

2005-09-01

A FORTRAN version implementation of the block adjustment (BA) of overlapping CCD frames is developed and its flowchart is shown. The program is preliminarily applied to obtain the optical positions of four extragalactic radio sources. The results show that because of the increase in the number and sky coverage of reference stars the precision of optical positions with BA is improved compared with the single CCD frame adjustment.

The inverse of winnowing: a FORTRAN subroutine and discussion of unwinnowing discrete data

Science.gov (United States)

Bracken, Robert E.

2004-01-01

This report describes an unwinnowing algorithm that utilizes a discrete Fourier transform, and a resulting Fortran subroutine that winnows or unwinnows a 1-dimensional stream of discrete data; the source code is included. The unwinnowing algorithm effectively increases (by integral factors) the number of available data points while maintaining the original frequency spectrum of a data stream. This has utility when an increased data density is required together with an availability of higher order derivatives that honor the original data.

ASSIST - a package of Fortran routines for handling input under specified syntax rules and for management of data structures

International Nuclear Information System (INIS)

Sinclair, J.E.

1991-02-01

The ASSIST package (A Structured Storage and Input Syntax Tool) provides for Fortran programs a means for handling data structures more general than those provided by the Fortran language, and for obtaining input to the program from a file or terminal according to specified syntax rules. The syntax-controlled input can be interactive, with automatic generation of prompts, and dialogue to correct any input errors. The range of syntax rules possible is sufficient to handle lists of numbers and character strings, keywords, commands with optional clauses, and many kinds of variable-format constructions, such as algebraic expressions. ASSIST was developed for use in two large programs for the analysis of safety of radioactive waste disposal facilities, but it should prove useful for a wide variety of applications. (author)

Portable parallel programming in a Fortran environment

International Nuclear Information System (INIS)

May, E.N.

1989-01-01

Experience using the Argonne-developed PARMACs macro package to implement a portable parallel programming environment is described. Fortran programs with intrinsic parallelism of coarse and medium granularity are easily converted to parallel programs which are portable among a number of commercially available parallel processors in the class of shared-memory bus-based and local-memory network based MIMD processors. The parallelism is implemented using standard UNIX (tm) tools and a small number of easily understood synchronization concepts (monitors and message-passing techniques) to construct and coordinate multiple cooperating processes on one or many processors. Benchmark results are presented for parallel computers such as the Alliant FX/8, the Encore MultiMax, the Sequent Balance, the Intel iPSC/2 Hypercube and a network of Sun 3 workstations. These parallel machines are typical MIMD types with from 8 to 30 processors, each rated at from 1 to 10 MIPS processing power. The demonstration code used for this work is a Monte Carlo simulation of the response to photons of a ''nearly realistic'' lead, iron and plastic electromagnetic and hadronic calorimeter, using the EGS4 code system. 6 refs., 2 figs., 2 tabs

The fortran programme for the calculation of the absorption and double scattering corrections in cross-section measurements with fast neutrons using the monte Carlo method (1963); Programme fortran pour le calcul des corrections d'absorption et de double diffusion dans les mesures de sections efficaces pour les neutrons rapides par la methode de monte-carlo (1963)

Energy Technology Data Exchange (ETDEWEB)

Fernandez, B [Commissariat a l' Energie Atomique, Saclay (France). Centre d' Etudes Nucleaires

1963-07-01

A calculation for double scattering and absorption corrections in fast neutron scattering experiments using Monte-Carlo method is given. Application to cylindrical target is presented in FORTRAN symbolic language. (author) [French] Un calcul des corrections de double diffusion et d'absorption dans les experiences de diffusion de neutrons rapides par la methode de Monte-Carlo est presente. L'application au cas d'une cible cylindrique est traitee en langage symbolique FORTRAN. (auteur)

A FORTRAN program for an IBM PC compatible computer for calculating kinematical electron diffraction patterns

International Nuclear Information System (INIS)

Skjerpe, P.

1989-01-01

This report describes a computer program which is useful in transmission electron microscopy. The program is written in FORTRAN and calculates kinematical electron diffraction patterns in any zone axis from a given crystal structure. Quite large unit cells, containing up to 2250 atoms, can be handled by the program. The program runs on both the Helcules graphic card and the standard IBM CGA card

Programs in Fortran language for reporting the results of the analyses by ICP emission spectroscopy; Programas en lenguaje Fortran para la informacion de los resultados de los analisis efectuados mediante Espectroscopia Optica de emision con fuente de plasma

Energy Technology Data Exchange (ETDEWEB)

Roca, M

1985-07-01

Three programs, written in FORTRAN IV language, for reporting the results of the analyses by ICP emission spectroscopy from data stored in files on floppy disks have been developed. They are intended, respectively, for the analyses of: 1) waters, 2) granites and slates, and 3) different kinds of geological materials. (Author) 8 refs.

Aviation Safety Modeling and Simulation (ASMM) Propulsion Fleet Modeling: A Tool for Semi-Automatic Construction of CORBA-based Applications from Legacy Fortran Programs

Science.gov (United States)

Sang, Janche

2003-01-01

Within NASA's Aviation Safety Program, NASA GRC participates in the Modeling and Simulation Project called ASMM. NASA GRC s focus is to characterize the propulsion systems performance from a fleet management and maintenance perspective by modeling and through simulation predict the characteristics of two classes of commercial engines (CFM56 and GE90). In prior years, the High Performance Computing and Communication (HPCC) program funded, NASA Glenn in developing a large scale, detailed simulations for the analysis and design of aircraft engines called the Numerical Propulsion System Simulation (NPSS). Three major aspects of this modeling included the integration of different engine components, coupling of multiple disciplines, and engine component zooming at appropriate level fidelity, require relatively tight coupling of different analysis codes. Most of these codes in aerodynamics and solid mechanics are written in Fortran. Refitting these legacy Fortran codes with distributed objects can increase these codes reusability. Aviation Safety s modeling and simulation use in characterizing fleet management has similar needs. The modeling and simulation of these propulsion systems use existing Fortran and C codes that are instrumental in determining the performance of the fleet. The research centers on building a CORBA-based development environment for programmers to easily wrap and couple legacy Fortran codes. This environment consists of a C++ wrapper library to hide the details of CORBA and an efficient remote variable scheme to facilitate data exchange between the client and the server model. Additionally, a Web Service model should also be constructed for evaluation of this technology s use over the next two- three years.

Computer applications in physics with FORTRAN, BASIC and C

CERN Document Server

Chandra, Suresh

2014-01-01

Because of encouraging response for first two editions of the book and for taking into account valuable suggestion from teachers as well as students, the text for Interpolation, Differentiation, Integration, Roots of an Equation, Solution of Simultaneous Equations, Eigenvalues and Eigenvectors of Matrix, Solution of Differential Equations, Solution of Partial Differential Equations, Monte Carlo Method and Simulation, Computation of some Functions is improved throughout and presented in a more systematic manner by using simple language. These techniques have vast applications in Science, Engineering and Technology. The C language is becoming popular in universities, colleges and engineering institutions. Besides the C language, programs are written in FORTRAN and BASIC languages. Consequently, this book has rather wide scope for its use. Each of the topics are developed in a systematic manner; thus making this book useful for graduate, postgraduate and engineering students. KEY FEATURES: Each topic is self exp...

FORTRAN program for calculating liquid-phase and gas-phase thermal diffusion column coefficients

International Nuclear Information System (INIS)

Rutherford, W.M.

1980-01-01

A computer program (COLCO) was developed for calculating thermal diffusion column coefficients from theory. The program, which is written in FORTRAN IV, can be used for both liquid-phase and gas-phase thermal diffusion columns. Column coefficients for the gas phase can be based on gas properties calculated from kinetic theory using tables of omega integrals or on tables of compiled physical properties as functions of temperature. Column coefficients for the liquid phase can be based on compiled physical property tables. Program listings, test data, sample output, and users manual are supplied for appendices

Formula Translation in Blitz++, NumPy and Modern Fortran: A Case Study of the Language Choice Tradeoffs

Directory of Open Access Journals (Sweden)

Sylwester Arabas

2014-01-01

Full Text Available Three object-oriented implementations of a prototype solver of the advection equation are introduced. The presented programs are based on Blitz++ (C++, NumPy (Python and Fortran's built-in array containers. The solvers constitute implementations of the Multidimensional Positive-Definite Advective Transport Algorithm (MPDATA. The introduced codes serve as examples for how the application of object-oriented programming (OOP techniques and new language constructs from C++11 and Fortran 2008 allow to reproduce the mathematical notation used in the literature within the program code. A discussion on the tradeoffs of the programming language choice is presented. The main angles of comparison are code brevity and syntax clarity (and hence maintainability and auditability as well as performance. All performance tests are carried out using free and open-source compilers. In the case of Python, a significant performance gain is observed when switching from the standard interpreter (CPython to the PyPy implementation of Python. Entire source code of all three implementations is embedded in the text and is licensed under the terms of the GNU GPL license.

NLEdit: A generic graphical user interface for Fortran programs

Science.gov (United States)

Curlett, Brian P.

1994-01-01

NLEdit is a generic graphical user interface for the preprocessing of Fortran namelist input files. The interface consists of a menu system, a message window, a help system, and data entry forms. A form is generated for each namelist. The form has an input field for each namelist variable along with a one-line description of that variable. Detailed help information, default values, and minimum and maximum allowable values can all be displayed via menu picks. Inputs are processed through a scientific calculator program that allows complex equations to be used instead of simple numeric inputs. A custom user interface is generated simply by entering information about the namelist input variables into an ASCII file. There is no need to learn a new graphics system or programming language. NLEdit can be used as a stand-alone program or as part of a larger graphical user interface. Although NLEdit is intended for files using namelist format, it can be easily modified to handle other file formats.

BGSUB and BGFIX: FORTRAN programs to correct Ge(Li) gamma-ray spectra for photopeaks from radionuclides in background

International Nuclear Information System (INIS)

Cutshall, N.H.; Larsen, I.L.

1980-03-01

Two FORTRAN programs which provide correction and error analysis for background photopeak contributions to low-level gamma-ray spectra are discussed. A peak-by-peak background subtraction approach is used instead of channel-by-channel correction. The accuracy of corrected results near background levels is substantially improved over uncorrected values

Implementation of the Next Generation Attenuation (NGA) ground-motion prediction equations in Fortran and R

Science.gov (United States)

Kaklamanos, James; Boore, David M.; Thompson, Eric M.; Campbell, Kenneth W.

2010-01-01

This report presents two methods for implementing the earthquake ground-motion prediction equations released in 2008 as part of the Next Generation Attenuation of Ground Motions (NGA-West, or NGA) project coordinated by the Pacific Earthquake Engineering Research Center (PEER). These models were developed for predicting ground-motion parameters for shallow crustal earthquakes in active tectonic regions (such as California). Of the five ground-motion prediction equations (GMPEs) developed during the NGA project, four models are implemented: the GMPEs of Abrahamson and Silva (2008), Boore and Atkinson (2008), Campbell and Bozorgnia (2008), and Chiou and Youngs (2008a); these models are abbreviated as AS08, BA08, CB08, and CY08, respectively. Since site response is widely recognized as an important influence of ground motions, engineering applications typically require that such effects be modeled. The model of Idriss (2008) is not implemented in our programs because it does not explicitly include site response, whereas the other four models include site response and use the same variable to describe the site condition (VS30). We do not intend to discourage the use of the Idriss (2008) model, but we have chosen to implement the other four NGA models in our programs for those users who require ground-motion estimates for various site conditions. We have implemented the NGA models by using two separate programming languages: Fortran and R (R Development Core Team, 2010). Fortran, a compiled programming language, has been used in the scientific community for decades. R is an object-oriented language and environment for statistical computing that is gaining popularity in the statistical and scientific community. Derived from the S language and environment developed at Bell Laboratories, R is an open-source language that is freely available at http://www.r-project.org/ (last accessed 11 January 2011). In R, the functions for computing the NGA equations can be loaded as an

VIDEO-PC, SVGA Routines for FORTRAN on PC

International Nuclear Information System (INIS)

1994-01-01

1 - Description of program or function: These primitives are the lowest level routines needed to perform super VGA graphics on a PC. A sample main program is included that exercises the primitives. Both Lahey and Microsoft FORTRAN's have graphics libraries. However, the libraries do not support 256 color graphics at resolutions greater than 320x200. The primitives bypass these libraries while still conforming to standard usage of BIOS. The supported graphics modes depend upon the PC graphics card and its memory. Super VGA resolutions of 640x480 and 800x600 have been tested on an ATI VGA Wonder card with 512 K memory and on several 80486 PC's (unknown manufacturers) at retail stores. 2 - Method of solution: Both Lahey and Microsoft primitives depend upon sending the correct parameters to the PC BIOS (basic input output system) as discussed in the references. 3 - Restrictions on the complexity of the problem: The primitives were developed for 256 color VGA applications. It is known, for instance, that some CGA and 16 color VGA video modes will not operate correctly using these primitives. Potential users should try the test program on their PC/video card combination to determine applicability

A Fortran program (RELAX3D) to solve the 3 dimensional Poisson (Laplace) equation

International Nuclear Information System (INIS)

Houtman, H.; Kost, C.J.

1983-09-01

RELAX3D is an efficient, user friendly, interactive FORTRAN program which solves the Poisson (Laplace) equation Λ 2 =p for a general 3 dimensional geometry consisting of Dirichlet and Neumann boundaries approximated to lie on a regular 3 dimensional mesh. The finite difference equations at these nodes are solved using a successive point-iterative over-relaxation method. A menu of commands, supplemented by HELP facility, controls the dynamic loading of the subroutine describing the problem case, the iterations to converge to a solution, and the contour plotting of any desired slices, etc

FORTRAN computer programs to process Savannah River Laboratory hydrogeochemical and stream-sediment reconnaissance data

International Nuclear Information System (INIS)

Zinkl, R.J.; Shettel, D.L. Jr.; D'Andrea, R.F. Jr.

1980-03-01

FORTRAN computer programs have been written to read, edit, and reformat the hydrogeochemical and stream-sediment reconnaissance data produced by Savannah River Laboratory for the National Uranium Resource Evaluation program. The data are presorted by Savannah River Laboratory into stream sediment, ground water, and stream water for each 1 0 x 2 0 quadrangle. Extraneous information is eliminated, and missing analyses are assigned a specific value (-99999.0). Negative analyses are below the detection limit; the absolute value of a negative analysis is assumed to be the detection limit

GKS-EZ programming manual for FORTRAN-77

Energy Technology Data Exchange (ETDEWEB)

Beach, R.C.

1992-01-01

A standard has now been adopted for subroutine packages that drive graphic devices. It is known as the Graphical Kernel system (GKS), and many commercial implementations of it are available. Unfortunately, it is a difficult system to learn, and certain functions that are important for scientific use are not provided. Although GKS can be used to achieve portability of graphic applications between graphic devices, computers, and operating systems, it can also be misused in this respect. In addition, it introduces the very real problem of portability between the various implementations of GKS. This document describes a set of FORTRAN-77 subroutines that may be used to control a wide variety of graphic devices and overcome most of these problems. Some of these subroutines are from GKS itself, while others are higher-level subroutines that call GKS subroutines. These subroutines are collectively known as GKS-EZ. The purpose is to supply someone who is not a specialist in computer graphics with a flexible, robust, and easy to learn graphics system. Users of GKS-EZ should not have much need for a full GKS manual; this document will supply all of the information to use GKS-EZ except for a few items. These missing items include the numeric identification of the supported graphic devices and the procedure for linking the GKS subroutines into a executable module.

A Linear Algebra Framework for Static High Performance Fortran Code Distribution

Directory of Open Access Journals (Sweden)

Corinne Ancourt

1997-01-01

Full Text Available High Performance Fortran (HPF was developed to support data parallel programming for single-instruction multiple-data (SIMD and multiple-instruction multiple-data (MIMD machines with distributed memory. The programmer is provided a familiar uniform logical address space and specifies the data distribution by directives. The compiler then exploits these directives to allocate arrays in the local memories, to assign computations to elementary processors, and to migrate data between processors when required. We show here that linear algebra is a powerful framework to encode HPF directives and to synthesize distributed code with space-efficient array allocation, tight loop bounds, and vectorized communications for INDEPENDENT loops. The generated code includes traditional optimizations such as guard elimination, message vectorization and aggregation, and overlap analysis. The systematic use of an affine framework makes it possible to prove the compilation scheme correct.

LIONS: a new set of Fortran90 codes for the SPIRAL project at GANIL

International Nuclear Information System (INIS)

Bertrand, P.

1995-01-01

In this paper a set of new computer programs developed at GANIL is presented. These codes are used to study different parts of the SPIRAL project, in particular the dynamics in the CIME cyclotron and the new extraction system of the ECR ion sources. Three important modules are described: CHA3D for the evaluation of 3D electric fields with or without space charge effects, LIONS for the motion of ions and EXTRACT for the ECRIS extraction. These modules are written in Fortran90 in a ''data parallel scheme''. They work either on UNIX workstations or parallel and vectorial computers. (orig.)

ptchg: A FORTRAN program for point-charge calculations of electric field gradients (EFGs)

Science.gov (United States)

Spearing, Dane R.

1994-05-01

ptchg, a FORTRAN program, has been developed to calculate electric field gradients (EFG) around an atomic site in crystalline solids using the point-charge direct-lattice summation method. It uses output from the crystal structure generation program Atoms as its input. As an application of ptchg, a point-charge calculation of the EFG quadrupolar parameters around the oxygen site in SiO 2 cristobalite is demonstrated. Although point-charge calculations of electric field gradients generally are limited to ionic compounds, the computed quadrupolar parameters around the oxygen site in SiO 2 cristobalite, a highly covalent material, are in good agreement with the experimentally determined values from nuclear magnetic resonance (NMR) spectroscopy.

Kemari: A Portable High Performance Fortran System for Distributed Memory Parallel Processors

Directory of Open Access Journals (Sweden)

T. Kamachi

1997-01-01

Full Text Available We have developed a compilation system which extends High Performance Fortran (HPF in various aspects. We support the parallelization of well-structured problems with loop distribution and alignment directives similar to HPF's data distribution directives. Such directives give both additional control to the user and simplify the compilation process. For the support of unstructured problems, we provide directives for dynamic data distribution through user-defined mappings. The compiler also allows integration of message-passing interface (MPI primitives. The system is part of a complete programming environment which also comprises a parallel debugger and a performance monitor and analyzer. After an overview of the compiler, we describe the language extensions and related compilation mechanisms in detail. Performance measurements demonstrate the compiler's applicability to a variety of application classes.

Perbandingan Bubble Sort dengan Insertion Sort pada Bahasa Pemrograman C dan Fortran

Directory of Open Access Journals (Sweden)

Reina Reina

2013-12-01

Full Text Available Sorting is a basic algorithm studied by students of computer science major. Sorting algorithm is the basis of other algorithms such as searching algorithm, pattern matching algorithm. Bubble sort is a popular basic sorting algorithm due to its easiness to be implemented. Besides bubble sort, there is insertion sort. It is lesspopular than bubble sort because it has more difficult algorithm. This paper discusses about process time between insertion sort and bubble sort with two kinds of data. First is randomized data, and the second is data of descending list. Comparison of process time has been done in two kinds of programming language that is C programming language and FORTRAN programming language. The result shows that bubble sort needs more time than insertion sort does.

SPECFUN1, Portable Special FORTRAN Routines with Test Drivers

International Nuclear Information System (INIS)

Cody, W.J.

1993-01-01

1 - Description of program or function: SPECFUN is a collection of transportable FORTRAN subroutines and test drivers to evaluate certain special functions. The individual subroutines are - Name/Description: ALGAMA: Log gamma function, DAW: Dawson's integral, EI: Exponential integrals, ERF: Error function, ERFC: Complementary error function, GAMMA: Gamma function, I0: Bessel function I-sub-0, I1: Bessel function I-sub-1, J0Y0: Bessel functions J-sub-0 and Y-sub-0, J1Y1: Bessel functions J-sub-1 and Y-sub-1, K0: Bessel function K-sub-0, K1: Bessel function K-sub-1, PSI: Logarithmic derivative of the gamma function, REN: Random number generator, RIBESL: Bessel function I-sub-(N,ALPHA), RJBESL: Bessel function J-sub-(N,ALPHA), RKBESL: Bessel function K-sub-(N,ALPHA), RYBESL: Bessel function Y-sub-(N,ALPHA), MACHAR: Machine-dependent constants. 2 - Method of solution: SPECFUN generally uses rational mini-max approximations for functions of one variable and recurrence relations for functions of two or more variables. 3 - Restrictions on the complexity of the problem: Accuracy is targeted at between 18 and 20 significant decimal digits

SMMP v. 3.0—Simulating proteins and protein interactions in Python and Fortran

Science.gov (United States)

Meinke, Jan H.; Mohanty, Sandipan; Eisenmenger, Frank; Hansmann, Ulrich H. E.

2008-03-01

We describe a revised and updated version of the program package SMMP. SMMP is an open-source FORTRAN package for molecular simulation of proteins within the standard geometry model. It is designed as a simple and inexpensive tool for researchers and students to become familiar with protein simulation techniques. SMMP 3.0 sports a revised API increasing its flexibility, an implementation of the Lund force field, multi-molecule simulations, a parallel implementation of the energy function, Python bindings, and more. Program summaryTitle of program:SMMP Catalogue identifier:ADOJ_v3_0 Program summary URL:http://cpc.cs.qub.ac.uk/summaries/ADOJ_v3_0.html Program obtainable from: CPC Program Library, Queen's University of Belfast, N. Ireland Licensing provisions:Standard CPC licence, http://cpc.cs.qub.ac.uk/licence/licence.html Programming language used:FORTRAN, Python No. of lines in distributed program, including test data, etc.:52 105 No. of bytes in distributed program, including test data, etc.:599 150 Distribution format:tar.gz Computer:Platform independent Operating system:OS independent RAM:2 Mbytes Classification:3 Does the new version supersede the previous version?:Yes Nature of problem:Molecular mechanics computations and Monte Carlo simulation of proteins. Solution method:Utilizes ECEPP2/3, FLEX, and Lund potentials. Includes Monte Carlo simulation algorithms for canonical, as well as for generalized ensembles. Reasons for new version:API changes and increased functionality. Summary of revisions:Added Lund potential; parameters used in subroutines are now passed as arguments; multi-molecule simulations; parallelized energy calculation for ECEPP; Python bindings. Restrictions:The consumed CPU time increases with the size of protein molecule. Running time:Depends on the size of the simulated molecule.

Domain-Specific Acceleration and Auto-Parallelization of Legacy Scientific Code in FORTRAN 77 using Source-to-Source Compilation

OpenAIRE

Vanderbauwhede, Wim; Davidson, Gavin

2017-01-01

Massively parallel accelerators such as GPGPUs, manycores and FPGAs represent a powerful and affordable tool for scientists who look to speed up simulations of complex systems. However, porting code to such devices requires a detailed understanding of heterogeneous programming tools and effective strategies for parallelization. In this paper we present a source to source compilation approach with whole-program analysis to automatically transform single-threaded FORTRAN 77 legacy code into Ope...

MATH77 - A LIBRARY OF MATHEMATICAL SUBPROGRAMS FOR FORTRAN 77, RELEASE 4.0

Science.gov (United States)

Lawson, C. L.

1994-01-01

MATH77 is a high quality library of ANSI FORTRAN 77 subprograms implementing contemporary algorithms for the basic computational processes of science and engineering. The portability of MATH77 meets the needs of present-day scientists and engineers who typically use a variety of computing environments. Release 4.0 of MATH77 contains 454 user-callable and 136 lower-level subprograms. Usage of the user-callable subprograms is described in 69 sections of the 416 page users' manual. The topics covered by MATH77 are indicated by the following list of chapter titles in the users' manual: Mathematical Functions, Pseudo-random Number Generation, Linear Systems of Equations and Linear Least Squares, Matrix Eigenvalues and Eigenvectors, Matrix Vector Utilities, Nonlinear Equation Solving, Curve Fitting, Table Look-Up and Interpolation, Definite Integrals (Quadrature), Ordinary Differential Equations, Minimization, Polynomial Rootfinding, Finite Fourier Transforms, Special Arithmetic , Sorting, Library Utilities, Character-based Graphics, and Statistics. Besides subprograms that are adaptations of public domain software, MATH77 contains a number of unique packages developed by the authors of MATH77. Instances of the latter type include (1) adaptive quadrature, allowing for exceptional generality in multidimensional cases, (2) the ordinary differential equations solver used in spacecraft trajectory computation for JPL missions, (3) univariate and multivariate table look-up and interpolation, allowing for "ragged" tables, and providing error estimates, and (4) univariate and multivariate derivative-propagation arithmetic. MATH77 release 4.0 is a subroutine library which has been carefully designed to be usable on any computer system that supports the full ANSI standard FORTRAN 77 language. It has been successfully implemented on a CRAY Y/MP computer running UNICOS, a UNISYS 1100 computer running EXEC 8, a DEC VAX series computer running VMS, a Sun4 series computer running Sun

Parallelization of MCNP4 code by using simple FORTRAN algorithms

International Nuclear Information System (INIS)

Yazid, P.I.; Takano, Makoto; Masukawa, Fumihiro; Naito, Yoshitaka.

1993-12-01

Simple FORTRAN algorithms, that rely only on open, close, read and write statements, together with disk files and some UNIX commands have been applied to parallelization of MCNP4. The code, named MCNPNFS, maintains almost all capabilities of MCNP4 in solving shielding problems. It is able to perform parallel computing on a set of any UNIX workstations connected by a network, regardless of the heterogeneity in hardware system, provided that all processors produce a binary file in the same format. Further, it is confirmed that MCNPNFS can be executed also on Monte-4 vector-parallel computer. MCNPNFS has been tested intensively by executing 5 photon-neutron benchmark problems, a spent fuel cask problem and 17 sample problems included in the original code package of MCNP4. Three different workstations, connected by a network, have been used to execute MCNPNFS in parallel. By measuring CPU time, the parallel efficiency is determined to be 58% to 99% and 86% in average. On Monte-4, MCNPNFS has been executed using 4 processors concurrently and has achieved the parallel efficiency of 79% in average. (author)

MONTEC, an interactive fortran program to simulate radiation dose and dose-rate responses of populations

International Nuclear Information System (INIS)

Perry, K.A.; Szekely, J.G.

1983-09-01

The computer program MONTEC was written to simulate the distribution of responses in a population whose members are exposed to multiple radiation doses at variable dose rates. These doses and dose rates are randomly selected from lognormal distributions. The individual radiation responses are calculated from three equations, which include dose and dose-rate terms. Other response-dose/rate relationships or distributions can be incorporated by the user as the need arises. The purpose of this documentation is to provide a complete operating manual for the program. This version is written in FORTRAN-10 for the DEC system PDP-10

HAUFES : a FORTRAN code for the calculation of compound nuclear cross-sections by Hauser-Feshbach theory

International Nuclear Information System (INIS)

Viyogi, Y.P.; Ganguly, N.K.

1975-01-01

The FORTRAN code described in the report has been developed for the BESM-6 computer with a view to calculate the cross-section of reactions proceeding via the formation of compound nucleus for all open two-body reaction channels using Hauser-Feshbach theory with Moldauer's correction for the fluctuation of level widths. The code can also be used to analyse data from 'crystal blocking' experiments to obtain nuclear level densities. The report describes the input-output specifications along with a short account of the algorithm of the program. (author)

A new Fortran 90 program to compute regular and irregular associated Legendre functions (new version announcement)

Science.gov (United States)

Schneider, Barry I.; Segura, Javier; Gil, Amparo; Guan, Xiaoxu; Bartschat, Klaus

2018-04-01

This is a revised and updated version of a modern Fortran 90 code to compute the regular Plm (x) and irregular Qlm (x) associated Legendre functions for all x ∈(- 1 , + 1) (on the cut) and | x | > 1 and integer degree (l) and order (m). The necessity to revise the code comes as a consequence of some comments of Prof. James Bremer of the UC//Davis Mathematics Department, who discovered that there were errors in the code for large integer degree and order for the normalized regular Legendre functions on the cut.

LIONS: a new set of Fortran 90 codes for the SPIRAL project at GANIL

International Nuclear Information System (INIS)

Bertrand, P.

1994-01-01

A set of new computer programs developed at GANIL is presented; these codes are used to study different parts of the SPIRAL project (a new radioactive ion beam facility), and particularly the dynamics in the CIME cyclotron, its injection inflector, and the new extraction system of the ECR ion sources. Three important modules are described: CHA3D for the evaluation of 3D electric fields with or without space charge effects, LIONS for the motion of ions and EXTRACT for the ECRIS extraction. These modules are written in Fortran 90 in a ''data parallel scheme''. They work either on UNIX workstations or parallel and vectorial computers. (author). 5 figs., 5 refs

CWF and TABLE - Two Fortran programmes for the calculation of Coulomb penetration and shift factors

International Nuclear Information System (INIS)

Norton, D.S.; James, M.F.

1965-12-01

CWF and TABLE are Fortran programmes, written for the IBM 7090 and English-Electric Leo Marconi KDF9 computers, that calculate the penetration and shift factors for a charged particle in a Coulomb field. The numerical methods used are those of Lutz and Karvelis. The two programmes are very similar. Input to TABLE is in the form of the centre-of-mass co-ordinates. CWF is intended for use in calculating cross-sections for neutron-induced reactions which result in charged particle emission, and the input is in the form of the neutron energy in the laboratory frame of reference, together with other necessary reaction data. (author)

RELABEL2007, Labels FORTRAN Statements in ENDF Format Processing Programs

International Nuclear Information System (INIS)

2007-01-01

1 - Description of program or function: RELABEL labels a ENDF/B pre-processing program so that statement labels are in increasing order in increments of 10 within each routine, and cards are identified in columns 73-80 by three alphanumeric characters in columns 73-75 and sequence numbers in columns 76-80 in increments of 10. IAEA1314/10: This version include the updates up to January 30, 2007. Changes in ENDF/B-VII Format and procedures, as well as the evaluations themselves, make it impossible for versions of the ENDF/B pre-processing codes earlier than PREPRO 2007 (2007 Version) to accurately process current ENDF/B-VII evaluations. The present code can handle all existing ENDF/B-VI evaluations through release 8, which will be the last release of ENDF/B-VI. Modifications from previous versions: Relabel VERS. 2007-1 (JAN. 2007): No change since March 2004 version 2 - Method of solution: 3 - Restrictions on the complexity of the problem: RELABEL is designed to maintain ENDF/B processing programs which use a restricted set of FORTRAN statements. As such, this program is not completely general

Installation of a new Fortran compiler and effective programming method on the vector supercomputer

International Nuclear Information System (INIS)

Nemoto, Toshiyuki; Suzuki, Koichiro; Watanabe, Kenji; Machida, Masahiko; Osanai, Seiji; Isobe, Nobuo; Harada, Hiroo; Yokokawa, Mitsuo

1992-07-01

The Fortran compiler, version 10 has been replaced with the new one, version 12 (V12) on the Fujitsu Computer system at JAERI since May, 1992. The benchmark test for the performance of the V12 compiler is carried out with 16 representative nuclear codes in advance of the installation of the compiler. The performance of the compiler is achieved by the factor of 1.13 in average. The effect of the enhanced functions of the compiler and the compatibility to the nuclear codes are also examined. The assistant tool for vectorization TOP10EX is developed. In this report, the results of the evaluation of the V12 compiler and the usage of the tools for vectorization are presented. (author)

Algorithm 589. SICEDR: a FORTRAN subroutine for improving the accuracy of computed matrix eigenvalues

International Nuclear Information System (INIS)

Dongarra, J.J.

1982-01-01

SICEDR is a FORTRAN subroutine for improving the accuracy of a computed real eigenvalue and improving or computing the associated eigenvector. It is first used to generate information during the determination of the eigenvalues by the Schur decomposition technique. In particular, the Schur decomposition technique results in an orthogonal matrix Q and an upper quasi-triangular matrix T, such that A = QTQ/sup T/. Matrices A, Q, and T and the approximate eigenvalue, say lambda, are then used in the improvement phase. SICEDR uses an iterative method similar to iterative improvement for linear systems to improve the accuracy of lambda and improve or compute the eigenvector x in O(n 2 ) work, where n is the order of the matrix A

EFFDOS - a FORTRAN-77-code for the calculation of the effective dose equivalent

International Nuclear Information System (INIS)

Baer, M.; Honcu, S.; Huebschmann, W.

1984-01-01

The FORTRAN-77-code EFFDOS calculates the effective dose equivalent according to ICRP 26 due to the longterm emission of radionuclides into the atmosphere for the following exposure pathways: inhalation, ingestion, γ-ground irradiation (γ-irradiation by radionuclides deposited on the ground) and β- or γ-submersion (irradiation by the passing radioactive cloud). For calculating the effective dose equivalent at a single spot it is necessary to put in the diffusion factor and - if need be - the washout factor; otherwise EFFDOS calculates the input data for the computer codes ISOLA III and WOLGA-1, which then are enabled to compute the atmospheric diffusion, ground deposition and local dose equivalent distribution for the requested exposure pathway. Atmospheric diffusion, deposition and radionuclide transfer are calculated according to the ''Allgemeine Berechnungsgrundlage ....'' recommended by the German Fed. Ministry of Interior. A sample calculated is added. (orig.) [de

RODDRP - A FORTRAN program for use in control rod calibration by the rod drop method

International Nuclear Information System (INIS)

Wilson, W.E.

1972-01-01

The different methods to measure reactivity which are applicable to control rod calibration are discussed. They include: 1) the positive period method, 2) the rod drop method, 3) the source-jerk method, 4) the rod oscillation method, and 5) the pulsed neutron method. The instrument setup used at WSU for rod drop measurements is presented. To speed up the analysis of power fall-off trace, a FORTRAN IV program called RODDRP was written to simultaneously solve the in-hour equation and relative neutron flux. The procedure for calculating the worth of the rod that produced the power trace is given. The reactivity for each time relative flux point is obtained. Conclusions about the status of the equipment are made

A Fortran program for the numerical integration of the one-dimensional Schroedinger equation using exponential and Bessel fitting methods

International Nuclear Information System (INIS)

Cash, J.R.; Raptis, A.D.; Simos, T.E.

1990-01-01

An efficient algorithm is described for the accurate numerical integration of the one-dimensional Schroedinger equation. This algorithm uses a high-order, variable step Runge-Kutta like method in the region where the potential term dominates, and an exponential or Bessel fitted method in the asymptotic region. This approach can be used to compute scattering phase shifts in an efficient and reliable manner. A Fortran program which implements this algorithm is provided and some test results are given. (orig.)

Scientific Programming with High Performance Fortran: A Case Study Using the xHPF Compiler

Directory of Open Access Journals (Sweden)

Eric De Sturler

1997-01-01

Full Text Available Recently, the first commercial High Performance Fortran (HPF subset compilers have appeared. This article reports on our experiences with the xHPF compiler of Applied Parallel Research, version 1.2, for the Intel Paragon. At this stage, we do not expect very High Performance from our HPF programs, even though performance will eventually be of paramount importance for the acceptance of HPF. Instead, our primary objective is to study how to convert large Fortran 77 (F77 programs to HPF such that the compiler generates reasonably efficient parallel code. We report on a case study that identifies several problems when parallelizing code with HPF; most of these problems affect current HPF compiler technology in general, although some are specific for the xHPF compiler. We discuss our solutions from the perspective of the scientific programmer, and presenttiming results on the Intel Paragon. The case study comprises three programs of different complexity with respect to parallelization. We use the dense matrix-matrix product to show that the distribution of arrays and the order of nested loops significantly influence the performance of the parallel program. We use Gaussian elimination with partial pivoting to study the parallelization strategy of the compiler. There are various ways to structure this algorithm for a particular data distribution. This example shows how much effort may be demanded from the programmer to support the compiler in generating an efficient parallel implementation. Finally, we use a small application to show that the more complicated structure of a larger program may introduce problems for the parallelization, even though all subroutines of the application are easy to parallelize by themselves. The application consists of a finite volume discretization on a structured grid and a nested iterative solver. Our case study shows that it is possible to obtain reasonably efficient parallel programs with xHPF, although the compiler

METHUSELAH II - A Fortran program and nuclear data library for the physics assessment of liquid-moderated reactors

International Nuclear Information System (INIS)

Brinkworth, M.J.; Griffiths, J.A.

1966-03-01

METHUSELAH II is a Fortran program with a nuclear data library, used to calculate cell reactivity and burn-up in liquid-moderated reactors. It has been developed from METHUSELAH I by revising the nuclear data library, and by introducing into the program improvements relating to nuclear data, improvements in efficiency and accuracy, and additional facilities which include a neutron balance edit, specialised outputs, fuel cycling, and fuel costing. These developments are described and information is given on the coding and usage of versions of METHUSELAH II for the IBM 7030 (STRETCH), IBM 7090, and KDF9 computers. (author)

DATA-ENTRY-3: some observations and pragmatics of a structured design. [In FORTRAN for PDP-11/10

Energy Technology Data Exchange (ETDEWEB)

Sparks, D.

1977-08-01

The FORTRAN program DATA-ENTRY-3 was developed from the COBOL program DATA-ENTRY-1, which solves a large class of elementary data-capture, data-formating, and data-editing problems of managerial accounting. Most of the work involved finding methods to make DATA-ENTRY-3, which is written for a small-machine environment (PDP-11/10 under the RT-11 operating system), logically equivalent to DATA-ENTRY-1, which is written for a large-machine environment (CDC 6600 under a time-sharing operating system). This report explains how structured programing helped, and briefly describes the function of each subroutine.

Comprehensive Performance Evaluation for Hydrological and Nutrients Simulation Using the Hydrological Simulation Program–Fortran in a Mesoscale Monsoon Watershed, China

OpenAIRE

Zhaofu Li; Chuan Luo; Kaixia Jiang; Rongrong Wan; Hengpeng Li

2017-01-01

The Hydrological Simulation Program–Fortran (HSPF) is a hydrological and water quality computer model that was developed by the United States Environmental Protection Agency. Comprehensive performance evaluations were carried out for hydrological and nutrient simulation using the HSPF model in the Xitiaoxi watershed in China. Streamflow simulation was calibrated from 1 January 2002 to 31 December 2007 and then validated from 1 January 2008 to 31 December 2010 using daily observed data, and nu...

EDDY - a FORTRAN program to extract significant features from eddy-current test data - the basis of the CANSCAN system

International Nuclear Information System (INIS)

Jarvis, R.G.; Cranston, R.J.

1982-09-01

The FORTRAN program EDDY is designed to analyse data: from eddy-current scans of steam generator tubes. It is written in modular form, for future development, and it uses signal-recognition techniques that the authors developed in the profilometry of irradiated fuel elements. During a scan, significant signals are detected and extracted for immediate attention or more detailed analysis later. A version of the program was used in the CANSCAN system 'for automated eddy-current in-service inspection of nuclear steam generator tubing'

MODLIB, library of Fortran modules for nuclear reaction codes

International Nuclear Information System (INIS)

Talou, Patrick

2006-01-01

1 - Description of program or function: ModLib is a library of Fortran (90-compatible) modules to be used in existing and future nuclear reaction codes. The development of the library is an international effort being undertaken under the auspices of the long-term Subgroup A of the OECD/NEA Working Party on Evaluation and Cooperation. The aim is to constitute a library of well-tested and well-documented pieces of codes that can be used with confidence in all our coding efforts. This effort will undoubtedly help avoid the duplication of work, and most certainly facilitate the very important inter-comparisons between existing codes. 2 - Methods: - Width f luctuations [Talou, Chadwick]: calculates width fluctuation correction factors (output) for a set of transmission coefficients (input). Three methods are available: HRTW, Moldauer, and Verbaarschot (also called GOE approach). So far, no distinction is made according to the type of the coefficients channels (particle emission, gamma-ray emission, fission). - Gamma s trength [Herman]: calculates gamma-ray transmission coefficients using a Giant Resonance formalism. - Level d ensity [Koning]: computes the Gilbert-Cameron-Ignatyuk formalism for the continuum nuclear level density. - CHECKR, FIZCON, INTER, PSYCHE, STANEF [Dunford]: these modules are used in the MODLIB project but are not included in this package. They are available from the NEA Data Bank Computer Program Service under Package Ids: CHECKR (USCD1208), FIZCON (USCD1209), INTER (USCD1212), PSYCHE (USCD1216), STANEF (USCD1218)

The FORTRAN NALAP code adapted to a microcomputer compiler

International Nuclear Information System (INIS)

Lobo, Paulo David de Castro; Borges, Eduardo Madeira; Braz Filho, Francisco Antonio; Guimaraes, Lamartine Nogueira Frutuoso

2010-01-01

The Nuclear Energy Division of the Institute for Advanced Studies (IEAv) is conducting the TERRA project (TEcnologia de Reatores Rapidos Avancados), Technology for Advanced Fast Reactors project, aimed at a space reactor application. In this work, to attend the TERRA project, the NALAP code adapted to a microcomputer compiler called Compaq Visual Fortran (Version 6.6) is presented. This code, adapted from the light water reactor transient code RELAP 3B, simulates thermal-hydraulic responses for sodium cooled fast reactors. The strategy to run the code in a PC was divided in some steps mainly to remove unnecessary routines, to eliminate old statements, to introduce new ones and also to include extension precision mode. The source program was able to solve three sample cases under conditions of protected transients suggested in literature: the normal reactor shutdown, with a delay of 200 ms to start the control rod movement and a delay of 500 ms to stop the pumps; reactor scram after transient of loss of flow; and transients protected from overpower. Comparisons were made with results from the time when the NALAP code was acquired by the IEAv, back in the 80's. All the responses for these three simulations reproduced the calculations performed with the CDC compiler in 1985. Further modifications will include the usage of gas as coolant for the nuclear reactor to allow a Closed Brayton Cycle Loop - CBCL - to be used as a heat/electric converter. (author)

The FORTRAN NALAP code adapted to a microcomputer compiler

Energy Technology Data Exchange (ETDEWEB)

Lobo, Paulo David de Castro; Borges, Eduardo Madeira; Braz Filho, Francisco Antonio; Guimaraes, Lamartine Nogueira Frutuoso, E-mail: plobo.a@uol.com.b, E-mail: eduardo@ieav.cta.b, E-mail: fbraz@ieav.cta.b, E-mail: guimarae@ieav.cta.b [Instituto de Estudos Avancados (IEAv/CTA), Sao Jose dos Campos, SP (Brazil)

2010-07-01

The Nuclear Energy Division of the Institute for Advanced Studies (IEAv) is conducting the TERRA project (TEcnologia de Reatores Rapidos Avancados), Technology for Advanced Fast Reactors project, aimed at a space reactor application. In this work, to attend the TERRA project, the NALAP code adapted to a microcomputer compiler called Compaq Visual Fortran (Version 6.6) is presented. This code, adapted from the light water reactor transient code RELAP 3B, simulates thermal-hydraulic responses for sodium cooled fast reactors. The strategy to run the code in a PC was divided in some steps mainly to remove unnecessary routines, to eliminate old statements, to introduce new ones and also to include extension precision mode. The source program was able to solve three sample cases under conditions of protected transients suggested in literature: the normal reactor shutdown, with a delay of 200 ms to start the control rod movement and a delay of 500 ms to stop the pumps; reactor scram after transient of loss of flow; and transients protected from overpower. Comparisons were made with results from the time when the NALAP code was acquired by the IEAv, back in the 80's. All the responses for these three simulations reproduced the calculations performed with the CDC compiler in 1985. Further modifications will include the usage of gas as coolant for the nuclear reactor to allow a Closed Brayton Cycle Loop - CBCL - to be used as a heat/electric converter. (author)

Electron - A fortran programme for the coupled channel calculation of nuclear electromagnetic (e,e') form factors and cross sections in the self-consistent random-phase approximation

International Nuclear Information System (INIS)

Cavinato, M.; Marangoni, M.; Saruis, A.M.

1984-01-01

Description is given of the Electron programme for IBM 370/168 computer, written in Fortran 4. language. The programme calculates (e,e') cross-sections and longitudinal/transverse form factors for closed shell nuclei in the framework of a self-consistent RPA theory

Performance Issues in High Performance Fortran Implementations of Sensor-Based Applications

Directory of Open Access Journals (Sweden)

David R. O'hallaron

1997-01-01

Full Text Available Applications that get their inputs from sensors are an important and often overlooked application domain for High Performance Fortran (HPF. Such sensor-based applications typically perform regular operations on dense arrays, and often have latency and through put requirements that can only be achieved with parallel machines. This article describes a study of sensor-based applications, including the fast Fourier transform, synthetic aperture radar imaging, narrowband tracking radar processing, multibaseline stereo imaging, and medical magnetic resonance imaging. The applications are written in a dialect of HPF developed at Carnegie Mellon, and are compiled by the Fx compiler for the Intel Paragon. The main results of the study are that (1 it is possible to realize good performance for realistic sensor-based applications written in HPF and (2 the performance of the applications is determined by the performance of three core operations: independent loops (i.e., loops with no dependences between iterations, reductions, and index permutations. The article discusses the implications for HPF implementations and introduces some simple tests that implementers and users can use to measure the efficiency of the loops, reductions, and index permutations generated by an HPF compiler.

Program NICOLET to integrate energy loss in superconducting coils. [In FORTRAN for CDC-6600

Energy Technology Data Exchange (ETDEWEB)

Vogel, H.F.

1978-08-01

A voltage pickup coil, inductively coupled to the magnetic field of the superconducting coil under test, is connected so its output may be compared with the terminal voltage of the coil under test. The integrated voltage difference is indicative of the resistive volt-seconds. When multiplied with the main coil current, the volt-seconds yield the loss. In other words, a hysteresis loop is obtained if the integrated voltage difference phi = ..integral delta..Vdt is plotted as a function of the coil current, i. First, time functions of the two signals phi(t) and i(t) are recorded on a dual-trace digital oscilloscope, and these signals are then recorded on magnetic tape. On a CDC-6600, the recorded information is decoded and plotted, and the hysteresis loops are integrated by the set of FORTRAN programs NICOLET described in this report. 4 figures.

Operations analysis (study 2.1). Program SEPSIM (solar electric propulsion stage simulation). [in FORTRAN: space tug

Science.gov (United States)

Lang, T. J.

1974-01-01

Program SEPSIM is a FORTRAN program which performs deployment, servicing, and retrieval missions to synchronous equatorial orbit using a space tug with a continuous low thrust upper stage known as a solar electric propulsion stage (SEPS). The SEPS ferries payloads back and forth between an intermediate orbit and synchronous orbit, and performs the necessary servicing maneuvers in synchronous orbit. The tug carries payloads between the orbiter and the intermediate orbit, deploys fully fueled SEPS vehicles, and retrieves exhausted SEPS vehicles when, and if, required. The program is presently contained in subroutine form in the Logistical On-orbit VEhicle Servicing (LOVES) Program, but can also be run independently with the addition of a simple driver program.

Java/JNI/C/Fortran makefile project for a Java plug-in and related Android app in Eclipse ADT bundle : A side-by-side comparison

NARCIS (Netherlands)

De Beer, R.; Van Ormondt, D.

2015-01-01

We have developed a Java/Fortran based application, called MonteCarlo, that enables the users can carry out Monte Carlo studies in the field of in vivo MRS. The application is supposed to be used as a tool for the jMRUI platform, being the in vivo MRS software system of the TRANSACT European Union

Dynamic Memory De-allocation in Fortran 95/2003 Derived Type Calculus

Directory of Open Access Journals (Sweden)

Damian W.I. Rouson

2005-01-01

Full Text Available Abstract data types developed for computational science and engineering are frequently modeled after physical objects whose state variables must satisfy governing differential equations. Generalizing the associated algebraic and differential operators to operate on the abstract data types facilitates high-level program constructs that mimic standard mathematical notation. For non-trivial expressions, multiple object instantiations must occur to hold intermediate results during the expression's evaluation. When the dimension of each object's state space is not specified at compile-time, the programmer becomes responsible for dynamically allocating and de-allocating memory for each instantiation. With the advent of allocatable components in Fortran 2003 derived types, the potential exists for these intermediate results to occupy a substantial fraction of a program's footprint in memory. This issue becomes particularly acute at the highest levels of abstraction where coarse-grained data structures predominate. This paper proposes a set of rules for de-allocating memory that has been dynamically allocated for intermediate results in derived type calculus, while distinguishing that memory from more persistent objects. The new rules are applied to the design of a polymorphic time integrator for integrating evolution equations governing dynamical systems. Associated issues of efficiency and design robustness are discussed.

Development of three-dimensional neoclassical transport simulation code with high performance Fortran on a vector-parallel computer

International Nuclear Information System (INIS)

Satake, Shinsuke; Okamoto, Masao; Nakajima, Noriyoshi; Takamaru, Hisanori

2005-11-01

A neoclassical transport simulation code (FORTEC-3D) applicable to three-dimensional configurations has been developed using High Performance Fortran (HPF). Adoption of computing techniques for parallelization and a hybrid simulation model to the δf Monte-Carlo method transport simulation, including non-local transport effects in three-dimensional configurations, makes it possible to simulate the dynamism of global, non-local transport phenomena with a self-consistent radial electric field within a reasonable computation time. In this paper, development of the transport code using HPF is reported. Optimization techniques in order to achieve both high vectorization and parallelization efficiency, adoption of a parallel random number generator, and also benchmark results, are shown. (author)

A FORTRAN program for numerical solution of the Altarelli-Parisi equations by the Laguerre method

International Nuclear Information System (INIS)

Kumano, S.; Londergan, J.T.

1992-01-01

We review the Laguerre method for solving the Altarelli-Parisi equations. The Laguerre method allows one to expand quark/parton distributions and splitting functions in orthonormal polynomials. The desired quark distributions are themselves expanded in terms of evolution operators, and we derive the integrodifferential equations satisfied by the evolution operators. We give relevant equations for both flavor nonsinglet and singlet distributions, for both spin-independent and spin-dependent distributions. We discuss stability and accuracy of the results using this method. For intermediate values of Bjorken x (0.03< x<0.7), one can obtain accurate results with a modest number of Laguerre polynomials (N≅20); we discuss requirements for convergence also for the regions of large or small x. A FORTRAN program is provided which implements the Laguerre method; test results are given for both the spin-independent and spin-dependent cases. (orig.)

On the tradeoffs of programming language choice for numerical modelling in geoscience. A case study comparing modern Fortran, C++/Blitz++ and Python/NumPy.

Science.gov (United States)

Jarecka, D.; Arabas, S.; Fijalkowski, M.; Gaynor, A.

2012-04-01

The language of choice for numerical modelling in geoscience has long been Fortran. A choice of a particular language and coding paradigm comes with different set of tradeoffs such as that between performance, ease of use (and ease of abuse), code clarity, maintainability and reusability, availability of open source compilers, debugging tools, adequate external libraries and parallelisation mechanisms. The availability of trained personnel and the scale and activeness of the developer community is of importance as well. We present a short comparison study aimed at identification and quantification of these tradeoffs for a particular example of an object oriented implementation of a parallel 2D-advection-equation solver in Python/NumPy, C++/Blitz++ and modern Fortran. The main angles of comparison will be complexity of implementation, performance of various compilers or interpreters and characterisation of the "added value" gained by a particular choice of the language. The choice of the numerical problem is dictated by the aim to make the comparison useful and meaningful to geoscientists. Python is chosen as a language that traditionally is associated with ease of use, elegant syntax but limited performance. C++ is chosen for its traditional association with high performance but even higher complexity and syntax obscurity. Fortran is included in the comparison for its widespread use in geoscience often attributed to its performance. We confront the validity of these traditional views. We point out how the usability of a particular language in geoscience depends on the characteristics of the language itself and the availability of pre-existing software libraries (e.g. NumPy, SciPy, PyNGL, PyNIO, MPI4Py for Python and Blitz++, Boost.Units, Boost.MPI for C++). Having in mind the limited complexity of the considered numerical problem, we present a tentative comparison of performance of the three implementations with different open source compilers including CPython and

BADGER v1.0: A Fortran equation of state library

Science.gov (United States)

Heltemes, T. A.; Moses, G. A.

2012-12-01

The BADGER equation of state library was developed to enable inertial confinement fusion plasma codes to more accurately model plasmas in the high-density, low-temperature regime. The code had the capability to calculate 1- and 2-T plasmas using the Thomas-Fermi model and an individual electron accounting model. Ion equation of state data can be calculated using an ideal gas model or via a quotidian equation of state with scaled binding energies. Electron equation of state data can be calculated via the ideal gas model or with an adaptation of the screened hydrogenic model with ℓ-splitting. The ionization and equation of state calculations can be done in local thermodynamic equilibrium or in a non-LTE mode using a variant of the Busquet equivalent temperature method. The code was written as a stand-alone Fortran library for ease of implementation by external codes. EOS results for aluminum are presented that show good agreement with the SESAME library and ionization calculations show good agreement with the FLYCHK code. Program summaryProgram title: BADGERLIB v1.0 Catalogue identifier: AEND_v1_0 Program summary URL:http://cpc.cs.qub.ac.uk/summaries/AEND_v1_0.html Program obtainable from: CPC Program Library, Queen's University, Belfast, N. Ireland Licensing provisions: Standard CPC licence, http://cpc.cs.qub.ac.uk/licence/licence.html No. of lines in distributed program, including test data, etc.: 41 480 No. of bytes in distributed program, including test data, etc.: 2 904 451 Distribution format: tar.gz Programming language: Fortran 90. Computer: 32- or 64-bit PC, or Mac. Operating system: Windows, Linux, MacOS X. RAM: 249.496 kB plus 195.630 kB per isotope record in memory Classification: 19.1, 19.7. Nature of problem: Equation of State (EOS) calculations are necessary for the accurate simulation of high energy density plasmas. Historically, most EOS codes used in these simulations have relied on an ideal gas model. This model is inadequate for low

A fortran program for elastic scattering of deuterons with an optical model containing tensorial potentials; Programme fortran pour la diffusion elastique de deutons avec un modele optique contenant des termes tensoriels

Energy Technology Data Exchange (ETDEWEB)

Raynal, J [Commissariat a l' Energie Atomique, Saclay (France). Centre d' Etudes Nucleaires

1963-07-01

The optical model has been applied with success to the elastic scattering of particles of spin 0 and 1/2 and to a lesser degree to that of deuterons. For particles of spin l/2, an LS coupling term is ordinarily used; this term is necessary to obtain a polarization; for deuterons, this coupling has been already introduced, but the possible forms of potentials are more numerous (in this case, scalar products of a second rank spin tensor with a tensor of the same rank in space or momentum can occur). These terms which may be necessary are primarily important for the tensor polarization. This problem is of particular interest at Saclay since a beam of polarized deuterons has become available. The FORTRAN program SPM 037 permits the study of the effect of tensorial potentials constructed from the distance of the deuteron from the target and its angular momentum with respect to it. This report should make possible the use and even the modification of the program. It consists of: a description of the problem and of the notation employed, a presentation of the methods adopted, an indication of the necessary data and how they should be introduced, and finally tables of symbols which are in equivalence or common statements: these tables must be considered when making any modification. (author) [French] Le modele optique a ete applique avec succes a la diffusion elastique des particules de spin nul et 1/2 et dans une moindre mesure a celle des deutons. Pour les particules de spin 1/2, on utilise habituellement un couplage LS, necessaire pour calculer la polarisation; pour les deutons, ce couplage a deja ete introduit, mais les formes de potentiel possibles sont plus nombreuses (intervention de produits scalaires d'un tenseur d'ordre 2 de spin avec un tenseur du meme ordre d'espace ou d'impulsion) et celles qui peuvent etre eventuellement necessaires ont une importance capitale pour la polarisation tensorielle. Ce probleme revet a Saclay un interet particulier depuis la mise

A fortran program for elastic scattering of deuterons with an optical model containing tensorial potentials; Programme fortran pour la diffusion elastique de deutons avec un modele optique contenant des termes tensoriels

Energy Technology Data Exchange (ETDEWEB)

Raynal, J. [Commissariat a l' Energie Atomique, Saclay (France). Centre d' Etudes Nucleaires

1963-07-01

The optical model has been applied with success to the elastic scattering of particles of spin 0 and 1/2 and to a lesser degree to that of deuterons. For particles of spin l/2, an LS coupling term is ordinarily used; this term is necessary to obtain a polarization; for deuterons, this coupling has been already introduced, but the possible forms of potentials are more numerous (in this case, scalar products of a second rank spin tensor with a tensor of the same rank in space or momentum can occur). These terms which may be necessary are primarily important for the tensor polarization. This problem is of particular interest at Saclay since a beam of polarized deuterons has become available. The FORTRAN program SPM 037 permits the study of the effect of tensorial potentials constructed from the distance of the deuteron from the target and its angular momentum with respect to it. This report should make possible the use and even the modification of the program. It consists of: a description of the problem and of the notation employed, a presentation of the methods adopted, an indication of the necessary data and how they should be introduced, and finally tables of symbols which are in equivalence or common statements: these tables must be considered when making any modification. (author) [French] Le modele optique a ete applique avec succes a la diffusion elastique des particules de spin nul et 1/2 et dans une moindre mesure a celle des deutons. Pour les particules de spin 1/2, on utilise habituellement un couplage LS, necessaire pour calculer la polarisation; pour les deutons, ce couplage a deja ete introduit, mais les formes de potentiel possibles sont plus nombreuses (intervention de produits scalaires d'un tenseur d'ordre 2 de spin avec un tenseur du meme ordre d'espace ou d'impulsion) et celles qui peuvent etre eventuellement necessaires ont une importance capitale pour la polarisation tensorielle. Ce probleme revet a Saclay un interet

HTCAP: a FORTRAN IV program for calculating coated-particle operating temperatures in HFIR target irradiation experiments

International Nuclear Information System (INIS)

Kania, M.J.

1976-05-01

A description is presented of HTCAP, a computer code that calculates in-reactor operating temperatures of loose coated ThO 2 particles in the HFIR target series of irradiation tests. Three computational models are employed to determine the following: (1) fission heat generation rates, (2) capsule heat transfer analysis, and (3) maximum particle surface temperature within the design of an HT capsule. Maximum particle operating temperatures are calculated at daily intervals during each irradiation cycle. The application of HTCAP to sleeve CP-62 of HT-15 is discussed, and the results are compared with those obtained in an earlier thermal analysis on the same capsule. Agreement is generally within +-5 percent, while decreasing the computational time by more than an order of magnitude. A complete FORTRAN listing and summary of required input data are presented in appendices. Included is a listing of the input data and a tabular output from the thermal analysis of sleeve CP-62 of HT-15

FORTRAN routines for calculating water thermodynamic properties for use in transient thermal-hydraulics codes

International Nuclear Information System (INIS)

Green, C.

1979-12-01

A set of FORTRAN subroutines is described for calculating water thermodynamic properties. These were written for use in a transient thermal-hydraulics program, where speed of execution is paramount. The choice of which subroutines to optimise depends on the primary variables in the thermal-hydraulics code. In this particular case the subroutine which has been optimised is the one which calculates pressure and specific enthalpy given the specific volume and the specific internal energy. Another two subroutines are described which complete a self-consistent set. These calculate the specific volume and the temperature given the pressure and the specific enthalpy, and the specific enthalpy and the specific volume given the pressure and the temperature (or the quality). The accuracy is high near the saturation lines, typically less than 1% relative error, and decreases as the fluid becomes more subcooled in the liquid region or more superheated in the steam region. This behaviour is inherent in the method which uses quantities defined on the saturation lines and assumes that certain derivatives are constant for excursions away from these saturation lines. The accuracy and speed of the subroutines are discussed in detail in this report. (author)

Users manual for an expert system (HSPEXP) for calibration of the hydrological simulation program; Fortran

Science.gov (United States)

Lumb, A.M.; McCammon, R.B.; Kittle, J.L.

1994-01-01

Expert system software was developed to assist less experienced modelers with calibration of a watershed model and to facilitate the interaction between the modeler and the modeling process not provided by mathematical optimization. A prototype was developed with artificial intelligence software tools, a knowledge engineer, and two domain experts. The manual procedures used by the domain experts were identified and the prototype was then coded by the knowledge engineer. The expert system consists of a set of hierarchical rules designed to guide the calibration of the model through a systematic evaluation of model parameters. When the prototype was completed and tested, it was rewritten for portability and operational use and was named HSPEXP. The watershed model Hydrological Simulation Program--Fortran (HSPF) is used in the expert system. This report is the users manual for HSPEXP and contains a discussion of the concepts and detailed steps and examples for using the software. The system has been tested on watersheds in the States of Washington and Maryland, and the system correctly identified the model parameters to be adjusted and the adjustments led to improved calibration.

Multi-processing CTH: Porting legacy FORTRAN code to MP hardware

Energy Technology Data Exchange (ETDEWEB)

Bell, R.L.; Elrick, M.G.; Hertel, E.S. Jr.

1996-12-31

CTH is a family of codes developed at Sandia National Laboratories for use in modeling complex multi-dimensional, multi-material problems that are characterized by large deformations and/or strong shocks. A two-step, second-order accurate Eulerian solution algorithm is used to solve the mass, momentum, and energy conservation equations. CTH has historically been run on systems where the data are directly accessible to the cpu, such as workstations and vector supercomputers. Multiple cpus can be used if all data are accessible to all cpus. This is accomplished by placing compiler directives or subroutine calls within the source code. The CTH team has implemented this scheme for Cray shared memory machines under the Unicos operating system. This technique is effective, but difficult to port to other (similar) shared memory architectures because each vendor has a different format of directives or subroutine calls. A different model of high performance computing is one where many (> 1,000) cpus work on a portion of the entire problem and communicate by passing messages that contain boundary data. Most, if not all, codes that run effectively on parallel hardware were written with a parallel computing paradigm in mind. Modifying an existing code written for serial nodes poses a significantly different set of challenges that will be discussed. CTH, a legacy FORTRAN code, has been modified to allow for solutions on distributed memory parallel computers such as the IBM SP2, the Intel Paragon, Cray T3D, or a network of workstations. The message passing version of CTH will be discussed and example calculations will be presented along with performance data. Current timing studies indicate that CTH is 2--3 times faster than equivalent C++ code written specifically for parallel hardware. CTH on the Intel Paragon exhibits linear speed up with problems that are scaled (constant problem size per node) for the number of parallel nodes.

A FORTRAN-compatible program package for the control of CAMAC-systems by a PDP-11 (CA11-A/DEC, Type 1533A/BORER)

International Nuclear Information System (INIS)

Lengauer, C.

1975-01-01

The described software serves for the control of CAMAC-systems by a PDP-11 Computer with one DEC CA11-A Branch-Driver, respectively up to ten BORER Type 1533A Single-Crate-Controllers under the Operating System DOS V08. The software consists of three parts: 1) a subroutine library for programming in FORTRAN, 2) a macro library for programming in Assembler (for time-critical problems), 3) a loadable CAMAC-Driver for controlling the system by input of single CAMAC-commands at the terminal. Programs which apply the first two parts can be written independently of the CAMAC-Controller used at runtime. (orig.) [de

PUBG; purex solvent extraction process model. [IBM3033; CDC CYBER175; FORTRAN IV

Energy Technology Data Exchange (ETDEWEB)

Geldard, J.F.; Beyerlein, A.L.

PUBG is a chemical model of the Purex solvent extraction system, by which plutonium and uranium are recovered from spent nuclear fuel rods. The system comprises a number of mixer-settler banks. This discrete stage structure is the basis of the algorithms used in PUBG. The stages are connected to provide for countercurrent flow of the aqueous and organic phases. PUBG uses the common convention that has the aqueous phase enter at the lowest numbered stage and exit at the highest one; the organic phase flows oppositely. The volumes of the mixers are smaller than those of the settlers. The mixers generate a fine dispersion of one phase in the other. The high interfacial area is intended to provide for rapid mass transfer of the plutonium and uranium from one phase to the other. The separation of this dispersion back into the two phases occurs in the settlers. The species considered by PUBG are Hydrogen (1+), Plutonium (4+), Uranyl Oxide (2+), Plutonium (3+), Nitrate Anion, and reductant in the aqueous phase and Hydrogen (1+), Uranyl Oxide (2+), Plutonium (4+), and TBP (tri-n-butylphosphate) in the organic phase. The reductant used in the Purex process is either Uranium (4+) or HAN (hydroxylamine nitrate).IBM3033;CDC CYBER175; FORTRAN IV; OS/MVS or OS/MVT (IBM3033), NOS 1.3 (CDC CYBER175); The IBM3033 version requires 150K bytes of memory for execution; 62,000 (octal) words are required by the CDC CYBER175 version..

Exshall: A Turkel-Zwas explicit large time-step FORTRAN program for solving the shallow-water equations in spherical coordinates

Science.gov (United States)

Navon, I. M.; Yu, Jian

A FORTRAN computer program is presented and documented applying the Turkel-Zwas explicit large time-step scheme to a hemispheric barotropic model with constraint restoration of integral invariants of the shallow-water equations. We then proceed to detail the algorithms embodied in the code EXSHALL in this paper, particularly algorithms related to the efficiency and stability of T-Z scheme and the quadratic constraint restoration method which is based on a variational approach. In particular we provide details about the high-latitude filtering, Shapiro filtering, and Robert filtering algorithms used in the code. We explain in detail the various subroutines in the EXSHALL code with emphasis on algorithms implemented in the code and present the flowcharts of some major subroutines. Finally, we provide a visual example illustrating a 4-day run using real initial data, along with a sample printout and graphic isoline contours of the height field and velocity fields.

PNP2 calculus programme for interpretation of the experimental data by pulsed source neutrons methods. (Pt. 1). [Fortran IV for ICT 1900

Energy Technology Data Exchange (ETDEWEB)

Fratiloiu, C; Cristea, Gh

1975-01-01

PNP2 is a calculation programme destined to the interpretation of the experimental data by the pulsed source neutrons method on multiplyer environments into critic or subcritic state, populated with thermal neutrons. The programme is elaborate in the FORTRAN IV language of the ICT 1900 computer. The variation form in time of the thermal neutrons population for the multiplyer environments as a result of this whipping to the moments t=KT, with pockets of neutrons, appearing in the simplified theory of the pulsed source neutrons method. By this process are determinated the quantities Nsub(..cap alpha..), ..cap alpha.., Nsub(r) and B as well as empiric variants which affect these magnitudes. With these quantities is calculated the reactivity in relative units.

Thermal Hydraulic Fortran Program for Steady State Calculations of Plate Type Fuel Research Reactors

International Nuclear Information System (INIS)

Khedr, H.

2008-01-01

The safety assessment of Research and Power Reactors is a continuous process over their life and that requires verified and validated codes. Power Reactor codes all over the world are well established and qualified against a real measuring data and qualified experimental facilities. These codes are usually sophisticated, require special skills and consume much more running time. On the other hand, most of the Research Reactor codes still requiring more data for validation and qualification. Therefore it is benefit for a regulatory body and the companies working in the area of Research Reactor assessment and design to have their own program that give them a quick judgment. The present paper introduces a simple one dimensional Fortran program called THDSN for steady state best estimate Thermal Hydraulic (TH) calculations of plate type fuel RRs. Beside calculating the fuel and coolant temperature distribution and pressure gradient in an average and hot channel the program calculates the safety limits and margins against the critical phenomena encountered in RR such as the burnout heat flux and the onset of flow instability. Well known TH correlations for calculating the safety parameters are used. THDSN program is verified by comparing its results for 2 and 10 MW benchmark reactors with that published in IAEA publications and good agreement is found. Also the program results are compared with those published for other programs such as PARET and TERMIC. An extension for this program is underway to cover the transient TH calculations

Thermal-hydraulic Fortran program for steady-state calculations of plate-type fuel research reactors

Directory of Open Access Journals (Sweden)

Khedr Ahmed

2008-01-01

Full Text Available The safety assessment of research and power reactors is a continuous process covering their lifespan and requiring verified and validated codes. Power reactor codes all over the world are well established and qualified against real measuring data and qualified experimental facilities. These codes are usually sophisticated, require special skills and consume a lot of running time. On the other hand, most research reactor codes still require much more data for validation and qualification. It is, therefore, of benefit to any regulatory body to develop its own codes for the review and assessment of research reactors. The present paper introduces a simple, one-dimensional Fortran program called THDSN for steady-state thermal-hydraulic calculations of plate-type fuel research reactors. Besides calculating the fuel and coolant temperature distributions and pressure gradients in an average and hot channel, the program calculates the safety limits and margins against the critical phenomena encountered in research reactors, such as the onset of nucleate boiling, critical heat flux and flow instability. Well known thermal-hydraulic correlations for calculating the safety parameters and several formulas for the heat transfer coefficient have been used. The THDSN program was verified by comparing its results for 2 and 10 MW benchmark reactors with those published in IAEA publications and a good agreement was found. Also, the results of the program are compared with those published for other programs, such as the PARET and TERMIC.

KUEBEL. A Fortran program for computation of cooling-agent-distribution within reactor fuel-elements

International Nuclear Information System (INIS)

Inhoven, H.

1984-12-01

KUEBEL is a Fortran-program for computation of cooling-agent-distribution within reactor fuel-elements or -zones of theirs. They may be assembled of max. 40 cooling-channels with laminar up to turbulent type of flow (respecting Reynolds' coefficients up to 2.0E+06) at equal pressure loss. Flow-velocity, dynamic flow-, contraction- and friction-losses will be calculated for each channel and for the total zone. Other computations will present mean heat-up of cooling-agent, mean outlet-temperature of the core, boiling-temperature and absolute pressure at flow-outlet. All characteristic coolant-values, including the factor of safety for flow-instability of the most-loaded cooling gap are computed by 'KUEBEL' too. Absolute pressure at flow-outlet or is-factor may be defined as dependent or independent variables of the program alternatively. In latter case 3 variations of solution will be available: Adapted flow of cooling-agent, inlet-temperature of the core and thermal power. All calculations can be done alternatively with variation of parameters: flow of cooling-agent, inlet-temperature of the core and thermal power, which are managed by the program itself. 'KUEBEL' is able to distinguish light- and heavy-water coolant, flow-direction of coolant and fuel elements with parallel, rectangular, respectively concentric, cylindrical shape of their gaps. Required material specifics are generated by the program. Segments of fuel elements or constructively unconnected gaps can also be computed by means of interposition of S.C. 'phantom channels'. (orig.) [de

A fortran program for elastic scattering of deuterons with an optical model containing tensorial potentials

International Nuclear Information System (INIS)

Raynal, J.

1963-01-01

The optical model has been applied with success to the elastic scattering of particles of spin 0 and 1/2 and to a lesser degree to that of deuterons. For particles of spin l/2, an LS coupling term is ordinarily used; this term is necessary to obtain a polarization; for deuterons, this coupling has been already introduced, but the possible forms of potentials are more numerous (in this case, scalar products of a second rank spin tensor with a tensor of the same rank in space or momentum can occur). These terms which may be necessary are primarily important for the tensor polarization. This problem is of particular interest at Saclay since a beam of polarized deuterons has become available. The FORTRAN program SPM 037 permits the study of the effect of tensorial potentials constructed from the distance of the deuteron from the target and its angular momentum with respect to it. This report should make possible the use and even the modification of the program. It consists of: a description of the problem and of the notation employed, a presentation of the methods adopted, an indication of the necessary data and how they should be introduced, and finally tables of symbols which are in equivalence or common statements: these tables must be considered when making any modification. (author) [fr

SAMPO, A Fortran IV Program for Computer Analysis of Gamma Spectrafrom Ge(Li) Detectors, and for Other Spectra with Peaks

Energy Technology Data Exchange (ETDEWEB)

Routti, Jorma T.

1969-10-20

SAMPO is a Fortran IV program written to perform the data- reduction analysis described by J. T. Routti and S. G. Prussin in Photopeak Method for the Computer Analysis of Gamma-Ray Spectra from Semiconductor Detectors, Nuclear Instruments and Methods 72, 125-142 (1969). The code has also been used to analyze other spectra with peaks and continua. Program SAMPO can be used for an automatic off-line or an interactive on-line analysis. It includes algorithms for line-shape, energy, and efficiency calibrations, and peak-search and peak-fitting routines. Different options are available to make the code applicable to accurate nuclear spectroscopic work as well as to routine data reduction. The mathematical methods and their coding are briefly described. Instructions for using the program and for preparing input data are given and the optimal strategies for running the code are discussed. Instructions are given for using the LRL program library version of SAMPO and for obtaining source decks.

Parallel Fortran-MPI software for numerical inversion of the Laplace transform and its application to oscillatory water levels in groundwater environments

Science.gov (United States)

Zhan, X.

2005-01-01

A parallel Fortran-MPI (Message Passing Interface) software for numerical inversion of the Laplace transform based on a Fourier series method is developed to meet the need of solving intensive computational problems involving oscillatory water level's response to hydraulic tests in a groundwater environment. The software is a parallel version of ACM (The Association for Computing Machinery) Transactions on Mathematical Software (TOMS) Algorithm 796. Running 38 test examples indicated that implementation of MPI techniques with distributed memory architecture speedups the processing and improves the efficiency. Applications to oscillatory water levels in a well during aquifer tests are presented to illustrate how this package can be applied to solve complicated environmental problems involved in differential and integral equations. The package is free and is easy to use for people with little or no previous experience in using MPI but who wish to get off to a quick start in parallel computing. ?? 2004 Elsevier Ltd. All rights reserved.

OFF, Open source Finite volume Fluid dynamics code: A free, high-order solver based on parallel, modular, object-oriented Fortran API

Science.gov (United States)

Zaghi, S.

2014-07-01

OFF, an open source (free software) code for performing fluid dynamics simulations, is presented. The aim of OFF is to solve, numerically, the unsteady (and steady) compressible Navier-Stokes equations of fluid dynamics by means of finite volume techniques: the research background is mainly focused on high-order (WENO) schemes for multi-fluids, multi-phase flows over complex geometries. To this purpose a highly modular, object-oriented application program interface (API) has been developed. In particular, the concepts of data encapsulation and inheritance available within Fortran language (from standard 2003) have been stressed in order to represent each fluid dynamics "entity" (e.g. the conservative variables of a finite volume, its geometry, etc…) by a single object so that a large variety of computational libraries can be easily (and efficiently) developed upon these objects. The main features of OFF can be summarized as follows: Programming LanguageOFF is written in standard (compliant) Fortran 2003; its design is highly modular in order to enhance simplicity of use and maintenance without compromising the efficiency; Parallel Frameworks Supported the development of OFF has been also targeted to maximize the computational efficiency: the code is designed to run on shared-memory multi-cores workstations and distributed-memory clusters of shared-memory nodes (supercomputers); the code's parallelization is based on Open Multiprocessing (OpenMP) and Message Passing Interface (MPI) paradigms; Usability, Maintenance and Enhancement in order to improve the usability, maintenance and enhancement of the code also the documentation has been carefully taken into account; the documentation is built upon comprehensive comments placed directly into the source files (no external documentation files needed): these comments are parsed by means of doxygen free software producing high quality html and latex documentation pages; the distributed versioning system referred as git

TRIGRS - A Fortran Program for Transient Rainfall Infiltration and Grid-Based Regional Slope-Stability Analysis, Version 2.0

Science.gov (United States)

Baum, Rex L.; Savage, William Z.; Godt, Jonathan W.

2008-01-01

The Transient Rainfall Infiltration and Grid-Based Regional Slope-Stability Model (TRIGRS) is a Fortran program designed for modeling the timing and distribution of shallow, rainfall-induced landslides. The program computes transient pore-pressure changes, and attendant changes in the factor of safety, due to rainfall infiltration. The program models rainfall infiltration, resulting from storms that have durations ranging from hours to a few days, using analytical solutions for partial differential equations that represent one-dimensional, vertical flow in isotropic, homogeneous materials for either saturated or unsaturated conditions. Use of step-function series allows the program to represent variable rainfall input, and a simple runoff routing model allows the user to divert excess water from impervious areas onto more permeable downslope areas. The TRIGRS program uses a simple infinite-slope model to compute factor of safety on a cell-by-cell basis. An approximate formula for effective stress in unsaturated materials aids computation of the factor of safety in unsaturated soils. Horizontal heterogeneity is accounted for by allowing material properties, rainfall, and other input values to vary from cell to cell. This command-line program is used in conjunction with geographic information system (GIS) software to prepare input grids and visualize model results.

Calculation of Absorbed Glandular Dose using a FORTRAN Program Based on Monte Carlo X-ray Spectra in Mammography

Directory of Open Access Journals (Sweden)

Ali Asghar Mowlavi

2011-03-01

Full Text Available Introduction: Average glandular dose calculation in mammography with Mo-Rh target-filter and dose calculation for different situations is accurate and fast. Material and Methods: In this research, first of all, x-ray spectra of a Mo target bombarded by a 28 keV electron beam with and without a Rh filter were calculated using the MCNP code. Then, we used the Sobol-Wu parameters to write a FORTRAN code to calculate average glandular dose. Results: Average glandular dose variation was calculated against the voltage of the mammographic x-ray tube for d = 5 cm, HVL= 0.35 mm Al, and different value of g. Also, the results related to average glandular absorbed dose variation per unit roentgen radiation against the glandular fraction of breast tissue for kV = 28 and HVL = 0.400 mmAl and different values of d are presented. Finally, average glandular dose against d for g = 60% and three values of kV (23, 27, 35 kV with corresponding HVLs have been calculated. Discussion and Conclusion: The absorbed dose computational program is accurate, complete, fast and user friendly. This program can be used for optimization of exposure dose in mammography. Also, the results of this research are in good agreement with the computational results of others.

A Fortran 77 computer code for damped least-squares inversion of Slingram electromagnetic anomalies over thin tabular conductors

Science.gov (United States)

Dondurur, Derman; Sarı, Coşkun

2004-07-01

A FORTRAN 77 computer code is presented that permits the inversion of Slingram electromagnetic anomalies to an optimal conductor model. Damped least-squares inversion algorithm is used to estimate the anomalous body parameters, e.g. depth, dip and surface projection point of the target. Iteration progress is controlled by maximum relative error value and iteration continued until a tolerance value was satisfied, while the modification of Marquardt's parameter is controlled by sum of the squared errors value. In order to form the Jacobian matrix, the partial derivatives of theoretical anomaly expression with respect to the parameters being optimised are calculated by numerical differentiation by using first-order forward finite differences. A theoretical and two field anomalies are inserted to test the accuracy and applicability of the present inversion program. Inversion of the field data indicated that depth and the surface projection point parameters of the conductor are estimated correctly, however, considerable discrepancies appeared on the estimated dip angles. It is therefore concluded that the most important factor resulting in the misfit between observed and calculated data is due to the fact that the theory used for computing Slingram anomalies is valid for only thin conductors and this assumption might have caused incorrect dip estimates in the case of wide conductors.

FORTRAN Code for Glandular Dose Calculation in Mammography Using Sobol-Wu Parameters

Directory of Open Access Journals (Sweden)

Mowlavi A A

2007-07-01

Full Text Available Background: Accurate computation of the radiation dose to the breast is essential to mammography. Various the thicknesses of breast, the composition of the breast tissue and other variables affect the optimal breast dose. Furthermore, the glandular fraction, which refers to the composition of the breasts, as partitioned between radiation-sensitive glandular tissue and the adipose tissue, also has an effect on this calculation. Fatty or fibrous breasts would have a lower value for the glandular fraction than dense breasts. Breast tissue composed of half glandular and half adipose tissue would have a glandular fraction in between that of fatty and dense breasts. Therefore, the use of a computational code for average glandular dose calculation in mammography is a more effective means of estimating the dose of radiation, and is accurate and fast. Methods: In the present work, the Sobol-Wu beam quality parameters are used to write a FORTRAN code for glandular dose calculation in molybdenum anode-molybdenum filter (Mo-Mo, molybdenum anode-rhodium filter (Mo-Rh and rhodium anode-rhodium filter (Rh-Rh target-filter combinations in mammograms. The input parameters of code are: tube voltage in kV, half-value layer (HVL of the incident x-ray spectrum in mm, breast thickness in cm (d, and glandular tissue fraction (g. Results: The average glandular dose (AGD variation against the voltage of the mammogram X-ray tube for d = 4 cm, HVL = 0.34 mm Al and g=0.5 for the three filter-target combinations, as well as its variation against the glandular fraction of breast tissue for kV=25, HVL=0.34, and d=4 cm has been calculated. The results related to the average glandular absorbed dose variation against HVL for kV = 28, d=4 cm and g= 0.6 are also presented. The results of this code are in good agreement with those previously reported in the literature. Conclusion: The code developed in this study calculates the glandular dose quickly, and it is complete and

TSPP - A Collection of FORTRAN Programs for Processing and Manipulating Time Series

Science.gov (United States)

Boore, David M.

2008-01-01

This report lists a number of FORTRAN programs that I have developed over the years for processing and manipulating strong-motion accelerograms. The collection is titled TSPP, which stands for Time Series Processing Programs. I have excluded 'strong-motion accelerograms' from the title, however, as the boundary between 'strong' and 'weak' motion has become blurred with the advent of broadband sensors and high-dynamic range dataloggers, and many of the programs can be used with any evenly spaced time series, not just acceleration time series. This version of the report is relatively brief, consisting primarily of an annotated list of the programs, with two examples of processing, and a few comments on usage. I do not include a parameter-by-parameter guide to the programs. Future versions might include more examples of processing, illustrating the various parameter choices in the programs. Although these programs have been used by the U.S. Geological Survey, no warranty, expressed or implied, is made by the USGS as to the accuracy or functioning of the programs and related program material, nor shall the fact of distribution constitute any such warranty, and no responsibility is assumed by the USGS in connection therewith. The programs are distributed on an 'as is' basis, with no warranty of support from me. These programs were written for my use and are being publically distributed in the hope that others might find them as useful as I have. I would, however, appreciate being informed about bugs, and I always welcome suggestions for improvements to the codes. Please note that I have made little effort to optimize the coding of the programs or to include a user-friendly interface (many of the programs in this collection have been included in the software usdp (Utility Software for Data Processing), being developed by Akkar et al. (personal communication, 2008); usdp includes a graphical user interface). Speed of execution has been sacrificed in favor of a code that

Coincidence: Fortran code for calculation of (e, e'x) differential cross-sections, nuclear structure functions and polarization asymmetry in self-consistent random phase approximation with Skyrme interaction

Energy Technology Data Exchange (ETDEWEB)

Cavinato, M.; Marangoni, M.; Saruis, A.M.

1990-10-01

This report describes the COINCIDENCE code written for the IBM 3090/300E computer in Fortran 77 language. The output data of this code are the (e, e'x) threefold differential cross-sections, the nuclear structure functions, the polarization asymmetry and the angular correlation coefficients. In the real photon limit, the output data are the angular distributions for plane polarized incident photons. The code reads from tape the transition matrix elements previously calculated, by in continuum self-consistent RPA (random phase approximation) theory with Skyrme interactions. This code has been used to perform a numerical analysis of coincidence (e, e'x) reactions with polarized electrons on the /sup 16/O nucleous.

A novel auto-correlation function method and FORTRAN codes for the determination of the decay ratio in BWR stability analysis

International Nuclear Information System (INIS)

Behringer, K.

2001-08-01

A novel auto-correlation function (ACF) method has been investigated for determining the oscillation frequency and the decay ratio in BWR stability analyses. The report describes not only the method but also documents comprehensively the used and developed FORTRAN codes. The neutron signals are band-pass filtered to separate the oscillation peak in the power spectral density (PSD) from background. Two linear second-order oscillation models are considered. The ACF of each model, corrected for signal filtering and with the inclusion of a background term under the peak in the PSD, is then least-squares fitted to the ACF estimated on the previously filtered neutron signals, in order to determine the oscillation frequency and the decay ratio. The procedures of filtering and ACF estimation use fast Fourier transform techniques with signal segmentation. Gliding 'short-time' ACF estimates along a signal record allow the evaluation of uncertainties. Some numerical results are given which have been obtained from neutron signal data offered by the recent Forsmark I and Forsmark II NEA benchmark project. They are compared with those from other benchmark participants using different other analysis methods. (author)

A novel auto-correlation function method and FORTRAN codes for the determination of the decay ratio in BWR stability analysis

Energy Technology Data Exchange (ETDEWEB)

Behringer, K

2001-08-01

A novel auto-correlation function (ACF) method has been investigated for determining the oscillation frequency and the decay ratio in BWR stability analyses. The report describes not only the method but also documents comprehensively the used and developed FORTRAN codes. The neutron signals are band-pass filtered to separate the oscillation peak in the power spectral density (PSD) from background. Two linear second-order oscillation models are considered. The ACF of each model, corrected for signal filtering and with the inclusion of a background term under the peak in the PSD, is then least-squares fitted to the ACF estimated on the previously filtered neutron signals, in order to determine the oscillation frequency and the decay ratio. The procedures of filtering and ACF estimation use fast Fourier transform techniques with signal segmentation. Gliding 'short-time' ACF estimates along a signal record allow the evaluation of uncertainties. Some numerical results are given which have been obtained from neutron signal data offered by the recent Forsmark I and Forsmark II NEA benchmark project. They are compared with those from other benchmark participants using different other analysis methods. (author)

SIOB: a FORTRAN code for least-squares shape fitting several neutron transmission measurements using the Breit--Wigner multilevel formula. [For IBM-360/91

Energy Technology Data Exchange (ETDEWEB)

de Saussure, G.; Olsen, D. K.; Perez, R. B.

1978-05-01

The FORTRAN-IV code SIOB was developed to least-square fit the shape of neutron transmission curves. Any number of measurements on a common energy scale for different sample thicknesses can be simultaneously fitted. The computed transmission curves can be broadened with either a Gaussian or a rectangular resolution function or both, with the resolution width a function of energy. The total cross section is expressed as a sum of single-level or multilevel Breit--Wigner terms and Doppler broadened by using the fast interpolation routine QUICKW. The number of data points, resonance levels, and variables which can be handled simultaneously is only limited by the overall dimensions of two arrays in the program and by the stability of the matrix inversion. In a test problem seven transmissions each with 3750 data points were simultaneously fitted with 74 resonances and 110 variable parameters. The problem took 47 min of CPU time on an IBM-360/91, for 3 iterations. 3 figures, 2 tables.

RAGBEEF: a FORTRAN IV implementation of a time-dependent model for radionuclide contamination of beef

Energy Technology Data Exchange (ETDEWEB)

Pleasant, J C; McDowell-Boyer, L M; Killough, G G

1982-06-01

RAGBEEF is a FORTRAN IV program that calculates radionuclide concentrations in beef as a result of ingestion of contaminated feeds, pasture, and pasture soil by beef cattle. The model implemented by RAGBEEF is dynamic in nature, allowing the user to consider age- and season-dependent aspects of beef cattle management in estimating concentrations in beef. It serves as an auxiliary code to RAGTIME, previously documented by the authors, which calculates radionuclide concentrations in agricultural crops in a dynamic manner, but evaluates concentrations in beef for steady-state conditions only. The time-dependent concentrations in feeds, pasture, and pasture soil generated by RAGTIME are used as input to the RAGBEEF code. RAGBEEF, as presently implemented, calculates radionuclide concentrations in the muscle of age-based cohorts in a beef cattle herd. Concentrations in the milk of lactating cows are also calculated, but are assumed age-dependent as in RAGTIME. Radionuclide concentrations in beef and milk are described in RAGBEEF by a system of ordinary linear differential equations in which the transfer rate of radioactivity between compartments is proportional to the inventory of radioactivity in the source compartment. This system is solved by use of the GEAR package for solution of systems of ordinary differential equations. The accuracy of this solution is monitored at various check points by comparison with explicit solutions of Bateman-type equations. This report describes the age- and season-dependent considerations making up the RAGBEEF model, as well as presenting the equations which describe the model and a documentation of the associated computer code. Listings of the RAGBEEF and updated RAGTIME codes are provided in appendices, as are the results of a sample run of RAGBEEF and a description of recent modifications to RAGTIME.

RAGBEEF: a FORTRAN IV implementation of a time-dependent model for radionuclide contamination of beef

International Nuclear Information System (INIS)

Pleasant, J.C.; McDowell-Boyer, L.M; Killough, G.G.

1982-06-01

RAGBEEF is a FORTRAN IV program that calculates radionuclide concentrations in beef as a result of ingestion of contaminated feeds, pasture, and pasture soil by beef cattle. The model implemented by RAGBEEF is dynamic in nature, allowing the user to consider age- and season-dependent aspects of beef cattle management in estimating concentrations in beef. It serves as an auxiliary code to RAGTIME, previously documented by the authors, which calculates radionuclide concentrations in agricultural crops in a dynamic manner, but evaluates concentrations in beef for steady-state conditions only. The time-dependent concentrations in feeds, pasture, and pasture soil generated by RAGTIME are used as input to the RAGBEEF code. RAGBEEF, as presently implemented, calculates radionuclide concentrations in the muscle of age-based cohorts in a beef cattle herd. Concentrations in the milk of lactating cows are also calculated, but are assumed age-dependent as in RAGTIME. Radionuclide concentrations in beef and milk are described in RAGBEEF by a system of ordinary linear differential equations in which the transfer rate of radioactivity between compartments is proportional to the inventory of radioactivity in the source compartment. This system is solved by use of the GEAR package for solution of systems of ordinary differential equations. The accuracy of this solution is monitored at various check points by comparison with explicit solutions of Bateman-type equations. This report describes the age- and season-dependent considerations making up the RAGBEEF model, as well as presenting the equations which describe the model and a documentation of the associated computer code. Listings of the RAGBEEF and updated RAGTIME codes are provided in appendices, as are the results of a sample run of RAGBEEF and a description of recent modifications to RAGTIME

A FORTRAN program for the use of digital terrain elevation models of the Instituto Nacional de Estadistica, Geografia e Informatica of Mexico (INEGI); Programa en FORTRAN para el manejo de modelos digitales de elevacion del terreno del Instituto Nacional de Estadistica, Geografia e Informatica de Mexico (INEGI)

Energy Technology Data Exchange (ETDEWEB)

Garcia Estrada, Gerardo [Gerencia de Proyectos Geotermoelectricos de la Comision Federal de Electricidad, Morelia (Mexico)

1996-09-01

A FORTRAN program is presented for the use of digital terrain elevation models with raster format of the Instituto Nacional de Estadistica, Geografia e Informatica of Mexico (INEGI). This program allows the selection of a data window that can be delimited, optionally, giving the extreme coordinates in degrees, minutes and seconds or in UTM (Universal Transversal Mercator) coordinates. Digital terrain data are selected to produce an output file in SURFER binary grid format with decimal degrees coordinates. Optionally an x, y, z output file in ASCII code permits the griding with commercial software to produce a map with planar rectangular coordinates. During the window selection a simple filtering process is performed to diminish numerical errors of the original file, and if it is wanted, an undersampling can be conducted to prepare less detailed maps of great coverage. This program has been extensively tested in the Gerencia de Proyectos Geotermoelectricos de la Comision federal de Electricidad (CFE) in Mexico, where it is used to prepare base maps, automatically traced topographic profiles and boundary condition for thermal modelling. Another direct uses are the calculus of terrain and isostatic corrections for gravity studies, topographic height estimating based on known horizontal coordinates, climatic effects modelling, automatic calculus of material volumes and many more. [Espanol] Se presenta un programa FORTRAN para el uso de modelos digitales de elevacion del terreno con el formato raster del Instituto Nacional de Estadistica, Geografia e Informatica de Mexico (INEGI). El programa permite la seleccion de una ventana de datos, la cual puede elegirse optativamente dando las coordenadas extremas en coordenadas geograficas en grados, minutos y segundos o en coordenadas UTM (proyeccion Universal Transversa de Mercator). Se seleccionan los datos del modelo digital y se produce una rejilla lista para su despliegue en formato binario UTM cuyo enrejillado permite

Evaluation of ΔGsub(f) values for unstable compounds: a Fortran program for the calculation of ternary phase equilibria

International Nuclear Information System (INIS)

Throop, G.J.; Rogl, P.; Rudy, E.

1978-01-01

A Fortran IV program was set up for the calculation of phase equilibria and tieline distributions in ternary systems of the type: transition metal-transition metal-nonmetal (interstitial type of solid solutions). The method offers the possibility of determining the thermodynamic values for unstable compounds through their influence upon ternary phase equilibria. The variation of the free enthalpy of formation of ternary solid solutions is calculated as a function of nonmetal content, thus describing the actual curvature of the phase boundaries. The integral and partial molar free enthalpies of formation of binary nonstoichiometric compounds and of phase solutions are expressed as analytical functions of the nonmetal content within their homogeneity range. The coefficient of these analytical expressions are obtained by the use either of the Wagner-Schottky vacancy model or polynomials second order in composition (parabolic approach). The free energy of formation, ΔGsub(f) has been calculated for the systems Ti-C, Zr-C, and Ta-C. Calculations of the ternary phase equilibria yielded the values for ΔGsub(f) for the unstable compounds Ti 2 C at 1500 0 C and Zr 2 C at 1775 0 C of -22.3 and 22.7 kcal g atom metal respectively. These values were used for the calculation of isothermal sections within the ternary systems Ti-Ta-C (at 1500 0 C) and Zr-Ta-C (at 1775 0 C). The ideal case of ternary phase solutions is extended to regular solutions. (author)

GASCON and MHDGAS: FORTRAN IV computer codes for calculating gas and condensed-phase compositions in the coal-fired open-cycle MHD system

Energy Technology Data Exchange (ETDEWEB)

Blackburn, P E

1977-12-01

Fortran IV computer codes have been written to calculate the equilibrium partial pressures of the gaseous phase and the quantity and composition of the condensed phases in the open-cycle MHD system. The codes are based on temperature-dependent equilibrium constants, mass conservation, the mass action law, and assumed ideal solution of compounds in each of two condensed phases. It is assumed that the phases are an oxide-silicate phase and a sulfate-carbonate-hydroxide phase. Calculations are iterated for gas and condensate concentrations while increasing or decreasing the total moles of elements, but keeping mole ratios constant, to achieve the desired total pressure. During iteration the oxygen partial pressure is incrementally changed. The decision to increase or decrease the oxygen pressure in this process depends on comparison of the oxygen content calculated in the gas and condensate phases with the initial amount of oxygen in the ash, coal, seed, and air. This process, together with a normalization step, allows the elements to converge to their initial quantities. Two versions of the computer code have been written. GASCON calculates the equilibrium gas partial pressures and the quantity and composition of the condensed phases in steps of thirteen temperature and pressure combinations in which the condensate is removed after each step, simulating continuous slag removal from the MHD system. MHDGAS retains the condensate for each step, simulating flow of condensate (and gas) through the MHD system.

Comprehensive Performance Evaluation for Hydrological and Nutrients Simulation Using the Hydrological Simulation Program-Fortran in a Mesoscale Monsoon Watershed, China.

Science.gov (United States)

Li, Zhaofu; Luo, Chuan; Jiang, Kaixia; Wan, Rongrong; Li, Hengpeng

2017-12-19

The Hydrological Simulation Program-Fortran (HSPF) is a hydrological and water quality computer model that was developed by the United States Environmental Protection Agency. Comprehensive performance evaluations were carried out for hydrological and nutrient simulation using the HSPF model in the Xitiaoxi watershed in China. Streamflow simulation was calibrated from 1 January 2002 to 31 December 2007 and then validated from 1 January 2008 to 31 December 2010 using daily observed data, and nutrient simulation was calibrated and validated using monthly observed data during the period from July 2009 to July 2010. These results of model performance evaluation showed that the streamflows were well simulated over the study period. The determination coefficient ( R ²) was 0.87, 0.77 and 0.63, and the Nash-Sutcliffe coefficient of efficiency (Ens) was 0.82, 0.76 and 0.65 for the streamflow simulation in annual, monthly and daily time-steps, respectively. Although limited to monthly observed data, satisfactory performance was still achieved during the quantitative evaluation for nutrients. The R ² was 0.73, 0.82 and 0.92, and the Ens was 0.67, 0.74 and 0.86 for nitrate, ammonium and orthophosphate simulation, respectively. Some issues may affect the application of HSPF were also discussed, such as input data quality, parameter values, etc. Overall, the HSPF model can be successfully used to describe streamflow and nutrients transport in the mesoscale watershed located in the East Asian monsoon climate area. This study is expected to serve as a comprehensive and systematic documentation of understanding the HSPF model for wide application and avoiding possible misuses.

Characterizing Flow and Suspended Sediment Trends in the Sacramento River Basin, CA Using Hydrologic Simulation Program - FORTRAN (HSPF)

Science.gov (United States)

Stern, M. A.; Flint, L. E.; Flint, A. L.; Wright, S. A.; Minear, J. T.

2014-12-01

A watershed model of the Sacramento River Basin, CA was developed to simulate streamflow and suspended sediment transport to the San Francisco Bay Delta (SFBD) for fifty years (1958-2008) using the Hydrological Simulation Program - FORTRAN (HSPF). To compensate for the large model domain and sparse data, rigorous meteorological development and characterization of hydraulic geometry were employed to spatially distribute climate and hydrologic processes in unmeasured locations. Parameterization techniques sought to include known spatial information for tributaries such as soil information and slope, and then parameters were scaled up or down during calibration to retain the spatial characteristics of the land surface in un-gaged areas. Accuracy was assessed by comparing model calibration to measured streamflow. Calibration and validation of the Sacramento River ranged from "good" to "very good" performance based upon a "goodness-of-fit" statistical guideline. Model calibration to measured sediment loads were underestimated on average by 39% for the Sacramento River, and model calibration to suspended sediment concentrations were underestimated on average by 22% for the Sacramento River. Sediment loads showed a slight decreasing trend from 1958-2008 and was significant (p < 0.0025) in the lower 50% of stream flows. Hypothetical climate change scenarios were developed using the Climate Assessment Tool (CAT). Several wet and dry scenarios coupled with temperature increases were imposed on the historical base conditions to evaluate sensitivity of streamflow and sediment on potential changes in climate. Wet scenarios showed an increase of 9.7 - 17.5% in streamflow, a 7.6 - 17.5% increase in runoff, and a 30 - 93% increase in sediment loads. The dry scenarios showed a roughly 5% decrease in flow and runoff, and a 16 - 18% decrease in sediment loads. The base hydrology was most sensitive to a temperature increase of 1.5 degrees Celsius and an increase in storm intensity and

Calibration parameters used to simulate streamflow from application of the Hydrologic Simulation Program-FORTRAN Model (HSPF) to mountainous basins containing coal mines in West Virginia

Science.gov (United States)

Atkins, John T.; Wiley, Jeffrey B.; Paybins, Katherine S.

2005-01-01

This report presents the Hydrologic Simulation Program-FORTRAN Model (HSPF) parameters for eight basins in the coal-mining region of West Virginia. The magnitude and characteristics of model parameters from this study will assist users of HSPF in simulating streamflow at other basins in the coal-mining region of West Virginia. The parameter for nominal capacity of the upper-zone storage, UZSN, increased from south to north. The increase in UZSN with the increase in basin latitude could be due to decreasing slopes, decreasing rockiness of the soils, and increasing soil depths from south to north. A special action was given to the parameter for fraction of ground-water inflow that flows to inactive ground water, DEEPFR. The basis for this special action was related to the seasonal movement of the water table and transpiration from trees. The models were most sensitive to DEEPFR and the parameter for interception storage capacity, CEPSC. The models were also fairly sensitive to the parameter for an index representing the infiltration capacity of the soil, INFILT; the parameter for indicating the behavior of the ground-water recession flow, KVARY; the parameter for the basic ground-water recession rate, AGWRC; the parameter for nominal capacity of the upper zone storage, UZSN; the parameter for the interflow inflow, INTFW; the parameter for the interflow recession constant, IRC; and the parameter for lower zone evapotranspiration, LZETP.

CADS: a FORTRAN subroutine package to aid symbolic dataflow in FORTRAN programs

International Nuclear Information System (INIS)

Richards, L.R.P.; Butland, A.T.D.; Symonds, A.G.

1982-07-01

The Core Allocation and Dataflow System, CADS, consists of two parts, VARY and VARYIO. VARY provides a means of organising the use of data store in a program by allowing the programmer to reference and manipulate areas of data store by names of the programmer's subprogram, and therefore the complete program, to be independent of its data sources or the destination of its results. CADS therefore provides a system of symbolic dataflow. (author)

ForTrilinos Design Document

Energy Technology Data Exchange (ETDEWEB)

Young, Mitchell T. [ORNL; Johnson, Seth R. [ORNL; Prokopenko, Andrey V. [ORNL; Evans, Katherine J. [ORNL; Heroux, Michael A. [Sandia National Laboratories (SNL)

2017-08-01

With the development of a Fortran Interface to Trilinos, ForTrilinos, modelers using modern Fortran will beable to provide their codes the capability to use solvers and other capabilities on exascale machines via astraightforward infrastructure that accesses Trilinos. This document outlines what Fortrilinos does andexplains briefly how it works. We show it provides a general access to packages via an entry point and usesan xml file from fortran code. With the first release, ForTrilinos will enable Teuchos to take xml parameterlists from Fortran code and set up data structures. It will provide access to linear solvers and eigensolvers.Several examples are provided to illustrate the capabilities in practice. We explain what the user shouldhave already with their code and what Trilinos provides and returns to the Fortran code. We provideinformation about the build process for ForTrilinos, with a practical example. In future releases, nonlinearsolvers, time iteration, advanced preconditioning techniques, and inversion of control (IoC), to enablecallbacks to Fortran routines, will be available.

A VAX/VMS mapped section/virtual memory utility package: Yucca Mountain Project

International Nuclear Information System (INIS)

Yarrington, L.

1990-02-01

A VAX/VMS Mapped Section/Virtual Memory Utility Package is a collection of FORTRAN subprograms that allocate virtual memory and, optionally, map that memory to a file. The subprograms use VMS system services and run-time libraries for allocating and mapping memory; therefore, the utility package is system dependent and functional on that platform only. FORTRAN-77 is one of the most widely used languages for computer programming. Languages have been developed in the past few decades that provide more powerful tools than FORTRAN and overcome some of its limitations. Two limitations addressed by this paper which have been a source of frustration to many programmers are that (1) FORTRAN does not provide dynamic array allocation and (2) FORTRAN file input-output is very slow. The solutions presented here are for the VAX/VMS operating system and use system services that are not part of the standard FORTRAN language description. Also discussed in this paper are dynamic array allocation, mapped sections of the program memory, and support modules. 3 refs

"SMART": A Compact and Handy FORTRAN Code for the Physics of Stellar Atmospheres

Science.gov (United States)

Sapar, A.; Poolamäe, R.

2003-01-01

A new computer code SMART (Spectra from Model Atmospheres by Radiative Transfer) for computing the stellar spectra, forming in plane-parallel atmospheres, has been compiled by us and A. Aret. To guarantee wide compatibility of the code with shell environment, we chose FORTRAN-77 as programming language and tried to confine ourselves to common part of its numerous versions both in WINDOWS and LINUX. SMART can be used for studies of several processes in stellar atmospheres. The current version of the programme is undergoing rapid changes due to our goal to elaborate a simple, handy and compact code. Instead of linearisation (being a mathematical method of recurrent approximations) we propose to use the physical evolutionary changes or in other words relaxation of quantum state populations rates from LTE to NLTE has been studied using small number of NLTE states. This computational scheme is essentially simpler and more compact than the linearisation. This relaxation scheme enables using instead of the Λ-iteration procedure a physically changing emissivity (or the source function) which incorporates in itself changing Menzel coefficients for NLTE quantum state populations. However, the light scattering on free electrons is in the terms of Feynman graphs a real second-order quantum process and cannot be reduced to consequent processes of absorption and emission as in the case of radiative transfer in spectral lines. With duly chosen input parameters the code SMART enables computing radiative acceleration to the matter of stellar atmosphere in turbulence clumps. This also enables to connect the model atmosphere in more detail with the problem of the stellar wind triggering. Another problem, which has been incorporated into the computer code SMART, is diffusion of chemical elements and their isotopes in the atmospheres of chemically peculiar (CP) stars due to usual radiative acceleration and the essential additional acceleration generated by the light-induced drift. As

Using computer program RELAP5/MOD2 on microcomputers

International Nuclear Information System (INIS)

Grgic, D.; Bajs, T; Cavlina, N.; Debrecin, N.

1990-01-01

Our work on installation of RELAP5/MOD2 code on IBM4341, mVAX 11, MGT-386 and COMPAQ-386/20e computers is described. Main characteristics of RELAP5/MOD2 structure programming style and differences between FORTRAN VS, VAX-11 FORTRAN and NDP FORTRAN 386 are presented. We discussed basic philosophy used in modification and testing and test results. (author)

Experiences in Data-Parallel Programming

Directory of Open Access Journals (Sweden)

Terry W. Clark

1997-01-01

Full Text Available To efficiently parallelize a scientific application with a data-parallel compiler requires certain structural properties in the source program, and conversely, the absence of others. A recent parallelization effort of ours reinforced this observation and motivated this correspondence. Specifically, we have transformed a Fortran 77 version of GROMOS, a popular dusty-deck program for molecular dynamics, into Fortran D, a data-parallel dialect of Fortran. During this transformation we have encountered a number of difficulties that probably are neither limited to this particular application nor do they seem likely to be addressed by improved compiler technology in the near future. Our experience with GROMOS suggests a number of points to keep in mind when developing software that may at some time in its life cycle be parallelized with a data-parallel compiler. This note presents some guidelines for engineering data-parallel applications that are compatible with Fortran D or High Performance Fortran compilers.

Creating User-Friendly Tools for Data Analysis and Visualization in K-12 Classrooms: A Fortran Dinosaur Meets Generation Y

Science.gov (United States)

Chambers, L. H.; Chaudhury, S.; Page, M. T.; Lankey, A. J.; Doughty, J.; Kern, Steven; Rogerson, Tina M.

2008-01-01

During the summer of 2007, as part of the second year of a NASA-funded project in partnership with Christopher Newport University called SPHERE (Students as Professionals Helping Educators Research the Earth), a group of undergraduate students spent 8 weeks in a research internship at or near NASA Langley Research Center. Three students from this group formed the Clouds group along with a NASA mentor (Chambers), and the brief addition of a local high school student fulfilling a mentorship requirement. The Clouds group was given the task of exploring and analyzing ground-based cloud observations obtained by K-12 students as part of the Students' Cloud Observations On-Line (S'COOL) Project, and the corresponding satellite data. This project began in 1997. The primary analysis tools developed for it were in FORTRAN, a computer language none of the students were familiar with. While they persevered through computer challenges and picky syntax, it eventually became obvious that this was not the most fruitful approach for a project aimed at motivating K-12 students to do their own data analysis. Thus, about halfway through the summer the group shifted its focus to more modern data analysis and visualization tools, namely spreadsheets and Google(tm) Earth. The result of their efforts, so far, is two different Excel spreadsheets and a Google(tm) Earth file. The spreadsheets are set up to allow participating classrooms to paste in a particular dataset of interest, using the standard S'COOL format, and easily perform a variety of analyses and comparisons of the ground cloud observation reports and their correspondence with the satellite data. This includes summarizing cloud occurrence and cloud cover statistics, and comparing cloud cover measurements from the two points of view. A visual classification tool is also provided to compare the cloud levels reported from the two viewpoints. This provides a statistical counterpart to the existing S'COOL data visualization tool

An Algebraic Machinery for Optimizing Data Motion for HPF

Directory of Open Access Journals (Sweden)

Jan-Jan Wu

1997-01-01

Full Text Available This paper describes a general compiler optimization technique that reduces communica tion over-head for FORTRAN-90 (and High Performance FORTRAN implementations on massively parallel machines.

The CRAFT Fortran Programming Model

Directory of Open Access Journals (Sweden)

Douglas M. Pase

1994-01-01

Full Text Available Many programming models for massively parallel machines exist, and each has its advantages and disadvantages. In this article we present a programming model that combines features from other programming models that (1 can be efficiently implemented on present and future Cray Research massively parallel processor (MPP systems and (2 are useful in constructing highly parallel programs. The model supports several styles of programming: message-passing, data parallel, global address (shared data, and work-sharing. These styles may be combined within the same program. The model includes features that allow a user to define a program in terms of the behavior of the system as a whole, where the behavior of individual tasks is implicit from this systemic definition. (In general, features marked as shared are designed to support this perspective. It also supports an opposite perspective, where a program may be defined in terms of the behaviors of individual tasks, and a program is implicitly the sum of the behaviors of all tasks. (Features marked as private are designed to support this perspective. Users can exploit any combination of either set of features without ambiguity and thus are free to define a program from whatever perspective is most appropriate to the problem at hand.

Figure10

Data.gov (United States)

U.S. Environmental Protection Agency — Fortran/NCARgraphics program to compute and plot RRF mean and variability:map_rrf_variability_13runs_epimax.f Ioapi files needed by Fortran/NCARGraphics code:...

Program package for multicanonical simulations of U(1) lattice gauge theory-Second version

Science.gov (United States)

Bazavov, Alexei; Berg, Bernd A.

2013-03-01

A new version STMCMUCA_V1_1 of our program package is available. It eliminates compatibility problems of our Fortran 77 code, originally developed for the g77 compiler, with Fortran 90 and 95 compilers. New version program summaryProgram title: STMC_U1MUCA_v1_1 Catalogue identifier: AEET_v1_1 Licensing provisions: Standard CPC license, http://cpc.cs.qub.ac.uk/licence/licence.html Programming language: Fortran 77 compatible with Fortran 90 and 95 Computers: Any capable of compiling and executing Fortran code Operating systems: Any capable of compiling and executing Fortran code RAM: 10 MB and up depending on lattice size used No. of lines in distributed program, including test data, etc.: 15059 No. of bytes in distributed program, including test data, etc.: 215733 Keywords: Markov chain Monte Carlo, multicanonical, Wang-Landau recursion, Fortran, lattice gauge theory, U(1) gauge group, phase transitions of continuous systems Classification: 11.5 Catalogue identifier of previous version: AEET_v1_0 Journal Reference of previous version: Computer Physics Communications 180 (2009) 2339-2347 Does the new version supersede the previous version?: Yes Nature of problem: Efficient Markov chain Monte Carlo simulation of U(1) lattice gauge theory (or other continuous systems) close to its phase transition. Measurements and analysis of the action per plaquette, the specific heat, Polyakov loops and their structure factors. Solution method: Multicanonical simulations with an initial Wang-Landau recursion to determine suitable weight factors. Reweighting to physical values using logarithmic coding and calculating jackknife error bars. Reasons for the new version: The previous version was developed for the g77 compiler Fortran 77 version. Compiler errors were encountered with Fortran 90 and Fortran 95 compilers (specified below). Summary of revisions: epsilon=one/10**10 is replaced by epsilon/10.0D10 in the parameter statements of the subroutines u1_bmha.f, u1_mucabmha.f, u1wl

Letter report: status on code maintenance (EQ3/6)

International Nuclear Information System (INIS)

Wolery, T.J.

1995-01-01

EQ3/6 is a software package for geochemical modeling of aqueous systems, such as water/rock or waste/water rock. It is being developed for a variety of applications in geochemical studies for the Yucca Mountain Site Characterization Project. Version 7.2a was the first version of this software to be certified for use in quality- affecting work (originally issued for use in non-quality-affecting work only on 12/28/93; certified on S/17/94). In the past year, the Version 7 line software has been maintained while the new Version 8 line has been developed. In this period, sixteen defect reports have been logged and resolved. Corrected software is being released as Version 7.2b. Defect reporting and resolution for the Version 7 line will continue until all released versions in this line are retired, perhaps six months to a year after Version 8.0 is released later this year. The Version 7 software is written in Fortran 77, technically speaking, but incorporates many aspects of older Fortran. The Version 8 software is written in a much more modern Fortran, technically somewhere between Fortran 77 and Fortran 90. Future code maintenance activities will include a more complete move to Fortran 90, as well as continued maintaining of defect reporting and resolution

Computer Language For Optimization Of Design

Science.gov (United States)

Scotti, Stephen J.; Lucas, Stephen H.

1991-01-01

SOL is computer language geared to solution of design problems. Includes mathematical modeling and logical capabilities of computer language like FORTRAN; also includes additional power of nonlinear mathematical programming methods at language level. SOL compiler takes SOL-language statements and generates equivalent FORTRAN code and system calls. Provides syntactic and semantic checking for recovery from errors and provides detailed reports containing cross-references to show where each variable used. Implemented on VAX/VMS computer systems. Requires VAX FORTRAN compiler to produce executable program.

ForTrilinos

Energy Technology Data Exchange (ETDEWEB)

2017-12-31

'ForTrilinos' is related to The Trilinos Project, which contains a large and growing collection of solver capabilities that can utilize next-generation platforms, in particular scalable multicore, manycore, accelerator and heterogeneous systems. Trilinos is primarily written in C++, including its user interfaces. While C++ is advantageous for gaining access to the latest programming environments, it limits Trilinos usage via Fortran. Sever ad hoc translation interfaces exist to enable Fortran usage of Trilinos, but none of these interfaces is general-purpose or written for reusable and sustainable external use. 'ForTrilinos' provides a seamless pathway for large and complex Fortran-based codes to access Trilinos without C/C++ interface code. This access includes Fortran versions of Kokkos abstractions for code execution and data management.

Software Engineering Tools for Scientific Models

Science.gov (United States)

Abrams, Marc; Saboo, Pallabi; Sonsini, Mike

2013-01-01

Software tools were constructed to address issues the NASA Fortran development community faces, and they were tested on real models currently in use at NASA. These proof-of-concept tools address the High-End Computing Program and the Modeling, Analysis, and Prediction Program. Two examples are the NASA Goddard Earth Observing System Model, Version 5 (GEOS-5) atmospheric model in Cell Fortran on the Cell Broadband Engine, and the Goddard Institute for Space Studies (GISS) coupled atmosphere- ocean model called ModelE, written in fixed format Fortran.

The comparison and selection of programming languages for high energy physics applications

International Nuclear Information System (INIS)

White, B.; Stanford Linear Accelerator Center, CA

1989-01-01

In this paper a comparison is presented of programming languages in the context of high energy physics software applications. The evaluation method uses was specifically devised to address the issues of particular importance to HEP applications, not just the technical features of the languages considered. The candidate languages evaluated were Ada, C, FORTRAN 77, FORTRAN 8x, Pascal and PL/I. Some conclusions are drawn and recommendations made regarding the role of FORTRAN and other programming languages in the current and future development of HEP software. (orig.)

A Computer Program to Compile a Flander-Amidon Interaction Analysis Matrix

Science.gov (United States)

Hardy, Robert C.

1970-01-01

A program was written in FORTRAN IV for an IBM 3600 to produce the Flanders-Amidon Interaction Analysis Matrix and to also produce percentages of certain p FORTRAN IV and V for the Univac 1108. (Editor/RT)

Development of the next generation code system as an engineering modeling language. (2). Study with prototyping

International Nuclear Information System (INIS)

Yokoyama, Kenji; Uto, Nariaki; Kasahara, Naoto; Ishikawa, Makoto

2003-04-01

In the fast reactor development, numerical simulation using analytical codes plays an important role for complementing theory and experiment. It is necessary that the engineering models and analysis methods can be flexibly changed, because the phenomena to be investigated become more complicated due to the diversity of the needs for research. And, there are large problems in combining physical properties and engineering models in many different fields. Aiming to the realization of the next generation code system which can solve those problems, the authors adopted three methods, (1) Multi-language (SoftWIRE.NET, Visual Basic.NET and Fortran) (2) Fortran 90 and (3) Python to make a prototype of the next generation code system. As this result, the followings were confirmed. (1) It is possible to reuse a function of the existing codes written in Fortran as an object of the next generation code system by using Visual Basic.NET. (2) The maintainability of the existing code written by Fortran 77 can be improved by using the new features of Fortran 90. (3) The toolbox-type code system can be built by using Python. (author)

The FLIC1 conversion code

International Nuclear Information System (INIS)

Basher, J.C.

1964-08-01

This memorandum describes the FORTRAN II programme, FLIC1, which converts programmes written in one dialect of FORTRAN to another dialect of the same language. Particular translation processes considered are those from existing dialects (FORTRAN II and S2) to EGTRAN1 - the dialect to be used initially on the Winfrith KDF9. The basic version of the programme replaces FII or S2 statements where these are different from, but in one-to-one correspondence with, E1 statements. Other statements which need changing are flagged. (author)

The FLIC conversion codes

Energy Technology Data Exchange (ETDEWEB)

Basher, J C [General Reactor Physics Division, Atomic Energy Establishment, Winfrith, Dorchester, Dorset (United Kingdom)

1965-05-15

This report describes the FORTRAN programmes, FLIC 1 and FLIC 2. These programmes convert programmes coded in one dialect of FORTRAN to another dialect of the same language. FLIC 1 is a general pattern recognition and replacement programme whereas FLIC 2 contains extensions directed towards the conversion of FORTRAN II and S2 programmes to EGTRAN 1 - the dialect now in use on the Winfrith KDF9. FII or S2 statements are replaced where possible by their E1 equivalents; other statements which may need changing are flagged. (author)

The FLIC conversion codes

International Nuclear Information System (INIS)

Basher, J.C.

1965-05-01

This report describes the FORTRAN programmes, FLIC 1 and FLIC 2. These programmes convert programmes coded in one dialect of FORTRAN to another dialect of the same language. FLIC 1 is a general pattern recognition and replacement programme whereas FLIC 2 contains extensions directed towards the conversion of FORTRAN II and S2 programmes to EGTRAN 1 - the dialect now in use on the Winfrith KDF9. FII or S2 statements are replaced where possible by their E1 equivalents; other statements which may need changing are flagged. (author)

For Trilinos tutorial.

Energy Technology Data Exchange (ETDEWEB)

Lemaster, Michelle Nicole; Xu, Xiaofeng (City University of New York); Morris, Karla (City University of New York); Filippone, Salvatore (University of Rome); Xia, Jim (IBM); Rouson, Damian W. I.

2010-11-01

The objectives are: (1) To increase the adoption of Trilinos throughout DOE research communities that principally write Fortran, e.g. climate & combustion researchers; and (2) To maintain the OOP philosophy of the Trilinos project while using idioms that feel natural to Fortran programmers.

The FSE system for crop simulation, version 2.1

NARCIS (Netherlands)

Kraalingen, van D.W.G.

1995-01-01

A FORTRAN 77 programming environment for continuous simulation of agro-ecological processes, such as crop growth and calculation of water balances is presented. This system, called FSE (FORTRAN Simulation Environment), consists of a main program, weather data and utilities for performing specific

The comparison and selection of programming languages for high energy physics applications

International Nuclear Information System (INIS)

White, B.

1991-06-01

This paper discusses the issues surrounding the comparison and selection of a programming language to be used in high energy physics software applications. The evaluation method used was specifically devised to address the issues of particular importance to high energy physics (HEP) applications, not just the technical features of the languages considered. The method assumes a knowledge of the requirements of current HEP applications, the data-processing environments expected to support these applications and relevant non-technical issues. The languages evaluated were Ada, C, FORTRAN 77, FORTRAN 99 (formerly 8X), Pascal and PL/1. Particular emphasis is placed upon the past, present and anticipated future role of FORTRAN in HEP software applications. Upon examination of the technical and practical issues, conclusions are reached and some recommendations are made regarding the role of FORTRAN and other programming languages in the current and future development of HEP software. 54 refs

hepawk - A language for scanning high energy physics events

International Nuclear Information System (INIS)

Ohl, T.

1992-01-01

We present the programming language hepawk, designed for convenient scanning of data structures arising in the simulation of high energy physics events. The interpreter for this language has been implemented in FORTRAN-77, therefore hepawk runs on any machine with a FORTRAN-77 compiler. (orig.)

An Initial Evaluation of the NAG f90 Compiler

Directory of Open Access Journals (Sweden)

Michael Metcalf

1992-01-01

Full Text Available A few weeks before the formal publication of the ISO Fortran 90 Standard, NAG announced the world's first f90 compiler. We have evaluated the compiler by using it to assess the impact of Fortran 90 on the CERN Program Library.

ANIBAL - a Hybrid Computer Language for EAI 680-PDP 8/I, FPP 12

DEFF Research Database (Denmark)

Højberg, Kristian Søe

1974-01-01

and special hybrid computer commands. ANIBAL consists of a general-purpose analog interface subroutine ANI and the macro processor 8BAL (DECUS NO 8-497A.1). When a source program with FORTRAN and 8BAL statements is processed, the FORTRAN statements are transferred unchanged, while the 8BAL code is translated...... essentially to ANI sub-routine calls, which are defined in a macro library. The resulting code is translated by the standard FORTRAN compiler. The language is very flexible as the instructions can be changed and commands can be added to or excluded from the library ....

The Earth Resources Laboratory Applications Software (ELAS) in university research and education: An operator oriented geobased information system

Science.gov (United States)

Coker, B. L.; Kind, T. C.; Smith, W. F., Jr.; Weber, N. V.

1981-01-01

Created for analyzing and processing digital data such as that collected by multispectral scanners or digitized from maps, ELAS is designed for ease of user operation and includes its own FORTRAN operating monitor and an expandable set of application modules which are FORTRAN overlays. On those machines that do not support FORTRAN overlaying, the modules exist as subprograms. The subsystem can be implemented on most 16-bit or 32-bit machines and is capable of, but not limited to, operating on low-cost minicomputer systems. The recommended hardware configuration for ELAS and a representative listing of some operating and application modules are presented.

Library of subroutines to produce one- and two-dimensional statistical distributions on the ES-1010 computer

International Nuclear Information System (INIS)

Vzorov, I.K.; Ivanov, V.V.

1978-01-01

A library of subroutines to produce 1- and 2-dimensional distribution on the ES-1010 computer is described. 1-dimensional distribution is represented as the histogram, 2-dimensional one is represented as the table. The library provides such opportunities as booking and deleting, filling and clearing histograms (tables), arithmetic operations with them, and printing histograms (tables) on the computer printer with variable printer line. All subroutines are written in FORTRAN-4 language and can be called from the program written in FORTRAN or in ASSEMBLER. This library can be implemented on all computer systems that offer a FORTRAN-4 compiler

Numerical Schemes for Charged Particle Movement in PIC Simulations

International Nuclear Information System (INIS)

Kulhanek, P.

2001-01-01

A PIC model of plasma fibers is developed in the Department of Physics of the Czech Technical University for several years. The program code was written in FORTRAN 95, free-style (without compulsory columns). Fortran compiler and linker were used from Compaq Visual Fortran 6.1A embedded in the Microsoft Development studio GUI. Fully three-dimensional code with periodical boundary conditions was developed. Electromagnetic fields are localized on a grid and particles move freely through this grid. One of the partial problems of the PIC model is the numerical particle solver, which will be discussed in this paper. (author)

BLAS- BASIC LINEAR ALGEBRA SUBPROGRAMS

Science.gov (United States)

Krogh, F. T.

1994-01-01

The Basic Linear Algebra Subprogram (BLAS) library is a collection of FORTRAN callable routines for employing standard techniques in performing the basic operations of numerical linear algebra. The BLAS library was developed to provide a portable and efficient source of basic operations for designers of programs involving linear algebraic computations. The subprograms available in the library cover the operations of dot product, multiplication of a scalar and a vector, vector plus a scalar times a vector, Givens transformation, modified Givens transformation, copy, swap, Euclidean norm, sum of magnitudes, and location of the largest magnitude element. Since these subprograms are to be used in an ANSI FORTRAN context, the cases of single precision, double precision, and complex data are provided for. All of the subprograms have been thoroughly tested and produce consistent results even when transported from machine to machine. BLAS contains Assembler versions and FORTRAN test code for any of the following compilers: Lahey F77L, Microsoft FORTRAN, or IBM Professional FORTRAN. It requires the Microsoft Macro Assembler and a math co-processor. The PC implementation allows individual arrays of over 64K. The BLAS library was developed in 1979. The PC version was made available in 1986 and updated in 1988.

Mixed-Language High-Performance Computing for Plasma Simulations

Directory of Open Access Journals (Sweden)

Quanming Lu

2003-01-01

Full Text Available Java is receiving increasing attention as the most popular platform for distributed computing. However, programmers are still reluctant to embrace Java as a tool for writing scientific and engineering applications due to its still noticeable performance drawbacks compared with other programming languages such as Fortran or C. In this paper, we present a hybrid Java/Fortran implementation of a parallel particle-in-cell (PIC algorithm for plasma simulations. In our approach, the time-consuming components of this application are designed and implemented as Fortran subroutines, while less calculation-intensive components usually involved in building the user interface are written in Java. The two types of software modules have been glued together using the Java native interface (JNI. Our mixed-language PIC code was tested and its performance compared with pure Java and Fortran versions of the same algorithm on a Sun E6500 SMP system and a Linux cluster of Pentium~III machines.

The Julia programming language: the future of scientific computing

Science.gov (United States)

Gibson, John

2017-11-01

Julia is an innovative new open-source programming language for high-level, high-performance numerical computing. Julia combines the general-purpose breadth and extensibility of Python, the ease-of-use and numeric focus of Matlab, the speed of C and Fortran, and the metaprogramming power of Lisp. Julia uses type inference and just-in-time compilation to compile high-level user code to machine code on the fly. A rich set of numeric types and extensive numerical libraries are built-in. As a result, Julia is competitive with Matlab for interactive graphical exploration and with C and Fortran for high-performance computing. This talk interactively demonstrates Julia's numerical features and benchmarks Julia against C, C++, Fortran, Matlab, and Python on a spectral time-stepping algorithm for a 1d nonlinear partial differential equation. The Julia code is nearly as compact as Matlab and nearly as fast as Fortran. This material is based upon work supported by the National Science Foundation under Grant No. 1554149.

The programming language EFL

Science.gov (United States)

Feldman, S. I.

1978-01-01

EFL is a comprehensive language designed to make it easy to write portable, understandable programs. It provides a rich set of data types and structures, a convenient operator set, and good control flow forms. The lexical form is easy to type and to read. Whenever possible, EFL uses the same forms that Ratfor does; in this sense EFL may be viewed as a superset of Ratfor. EFL is a well-defined language; this distinguishes it from most FORTRAN preprocessors which only add simple flow of control constructs to FORTRAN. The EFL compiler generates (possibly tailored) Standard FORTRAN as its output. EFL should catch and diagnose all syntax errors.

Computer Programs in Marine Science

Science.gov (United States)

1976-04-01

Technology Room 5-207 Cambridge, HA 02139 Telephone (617) 253-5941 Currcnt Profiles from Tilt Data Language - Hardware - ,.alculate3 current profiles gene ...HORIZCNTAL FANC -E 120 FORTRAN CCC 3800 LINE FRINTER PLOTS 16 FORTRAN CDC 1800 INTERNAL GkAVITY UAVLS CISPER 186 107 FIRTRAN CDC 3800 ANNOTATED TRACK ON

Compiler issues associated with safety-related software

International Nuclear Information System (INIS)

Feinauer, L.R.

1991-01-01

A critical issue in the quality assurance of safety-related software is the ability of the software to produce identical results, independent of the host machine, operating system, or compiler version under which the software is installed. A study is performed using the VIPRE-0l, FREY-01, and RETRAN-02 safety-related codes. Results from an IBM 3083 computer are compared with results from a CYBER 860 computer. All three of the computer programs examined are written in FORTRAN; the VIPRE code uses the FORTRAN 66 compiler, whereas the FREY and RETRAN codes use the FORTRAN 77 compiler. Various compiler options are studied to determine their effect on the output between machines. Since the Control Data Corporation and IBM machines inherently represent numerical data differently, methods of producing equivalent accuracy of data representation were an important focus of the study. This paper identifies particular problems in the automatic double-precision option (AUTODBL) of the IBM FORTRAN 1.4.x series of compilers. The IBM FORTRAN version 2 compilers provide much more stable, reliable compilation for engineering software. Careful selection of compilers and compiler options can help guarantee identical results between different machines. To ensure reproducibility of results, the same compiler and compiler options should be used to install the program as were used in the development and testing of the program

User manual of FRAPCON-I computer code

International Nuclear Information System (INIS)

Chia, C.T.

1985-11-01

The manual for using the FRAPCON-I code implanted by Reactor Department of Brazilian-CNEN to convert IBM FORTRAN in FORTRAN 77 of Honeywell Bull computer is presented. The FRAPCON-I code describes the behaviour of fuel rods of PWR type reactors at stationary state during long periods of burnup. (M.C.K.)

VizieR Online Data Catalog: Habitable zones around main-sequence stars (Kopparapu+, 2014)

Science.gov (United States)

Kopparapu, R. K.; Ramirez, R. M.; Schottelkotte, J.; Kasting, J. F.; Domagal-Goldman, S.; Eymet, V.

2017-08-01

Language: Fortran 90 Code tested under the following compilers/operating systems: ifort/CentOS linux Description of input data: No input necessary. Description of output data: Output files: HZs.dat, HZ_coefficients.dat System requirements: No major system requirement. Fortran compiler necessary. Calls to external routines: None. Additional comments: None (1 data file).

Software Tools for Software Maintenance

Science.gov (United States)

1988-10-01

COMMUNICATIONS, AND COMPUTER SCIENCES I ,(AIRMICS) FO~SOFTWARE TOOLS (.o FOR SOF1 ’ARE MAINTENANCE (ASQBG-1-89-001) October, 1988 DTIC ELECTE -ifB...SUNWW~. B..c Program An~Iysw HA.c C-Tractr C Cobol Stncturing Facility VS Cobol 11 F-Scan Foctma Futbol Cobol Fortran Sltiuc Code Anaiyaer Fortran IS

Kiche: A simulation tool for kinetics of iodine chemistry in the containment of light water reactors under severe accident conditions (Contract research)

International Nuclear Information System (INIS)

Moriyama, Kiyofumi; Maruyama, Yu; Nakamura, Hideo

2011-03-01

An iodine chemistry simulation tool, Kiche, was developed for analyses of chemical kinetics relevant to iodine volatilization in the containment vessel of light water reactors (LWRs) during a severe accident. It consists of a Fortran code to solve chemical kinetics models, reaction databases written in plain text format, and peripheral tools to convert the reaction databases into Fortran codes to solve corresponding ordinary differential equation sets. Potential advantages of Kiche are the text format reaction database separated from the code that provides flexibility of the chemistry model, and, being a Fortran code which is relatively easily coupled with other Fortran codes such as severe accident analysis codes. This document describes the model, solution method, code structure, and examples of application of Kiche for simulation of experiments. The calculation results by the present model agreed well with the experimental data and it indicates the model properly includes the most important processes in the volatilization of iodine from irradiated iodide solutions with or without organic impurities. The appendixes give practical information for the usage of Kiche. (author)

Evolving impact of Ada on a production software environment

Science.gov (United States)

Mcgarry, F.; Esker, L.; Quimby, K.

1988-01-01

Many aspects of software development with Ada have evolved as our Ada development environment has matured and personnel have become more experienced in the use of Ada. The Software Engineering Laboratory (SEL) has seen differences in the areas of cost, reliability, reuse, size, and use of Ada features. A first Ada project can be expected to cost about 30 percent more than an equivalent FORTRAN project. However, the SEL has observed significant improvements over time as a development environment progresses to second and third uses of Ada. The reliability of Ada projects is initially similar to what is expected in a mature FORTRAN environment. However, with time, one can expect to gain improvements as experience with the language increases. Reuse is one of the most promising aspects of Ada. The proportion of reusable Ada software on our Ada projects exceeds the proportion of reusable FORTRAN software on our FORTRAN projects. This result was noted fairly early in our Ada projects, and experience shows an increasing trend over time.

Controlling Laboratory Processes From A Personal Computer

Science.gov (United States)

Will, H.; Mackin, M. A.

1991-01-01

Computer program provides natural-language process control from IBM PC or compatible computer. Sets up process-control system that either runs without operator or run by workers who have limited programming skills. Includes three smaller programs. Two of them, written in FORTRAN 77, record data and control research processes. Third program, written in Pascal, generates FORTRAN subroutines used by other two programs to identify user commands with device-driving routines written by user. Also includes set of input data allowing user to define user commands to be executed by computer. Requires personal computer operating under MS-DOS with suitable hardware interfaces to all controlled devices. Also requires FORTRAN 77 compiler and device drivers written by user.

Submarine Structure Modeling and Analysis for Life-Cycle Management: Phase 2

Science.gov (United States)

2008-05-01

tous les emplacements de jauges extensométriques. Un certain nombre d’autres programmes FORTRAN ont également été mis au point pour incorporer dans... jauges extensométriques. Un certain nombre d’autres programmes FORTRAN ont également été mis au point pour incorporer dans les modèles par éléments

Using Kokkos for Performant Cross-Platform Acceleration of Liquid Rocket Simulations

Science.gov (United States)

2017-05-08

defined functors (like Thrust or Intel TBB) Backends for Nvidia GPU, Intel Xeon, Xeon Phi , IBM Power8, others. “View” data structure provides optimal... Architecture of my Kokkos framework Designed for minimally-invasive operation alongside large Fortran code. Everything is controlled from Fortran through a...Controls Kokkos initialization/finalization void initialize(…); void finalize(…); TVProperties* gettvproperties(); Architecture of my Kokkos framework

Symbolic/Numeric Approaches to Scientific Computing

DEFF Research Database (Denmark)

Sinclair, Robert

1998-01-01

A course held at the University of Basel (CH) in the winter semester 1997/98. The coupling of Maple with Fortran 77 code is discussed in detail, with many mathematical applications.......A course held at the University of Basel (CH) in the winter semester 1997/98. The coupling of Maple with Fortran 77 code is discussed in detail, with many mathematical applications....

Linear-Algebra Programs

Science.gov (United States)

Lawson, C. L.; Krogh, F. T.; Gold, S. S.; Kincaid, D. R.; Sullivan, J.; Williams, E.; Hanson, R. J.; Haskell, K.; Dongarra, J.; Moler, C. B.

1982-01-01

The Basic Linear Algebra Subprograms (BLAS) library is a collection of 38 FORTRAN-callable routines for performing basic operations of numerical linear algebra. BLAS library is portable and efficient source of basic operations for designers of programs involving linear algebriac computations. BLAS library is supplied in portable FORTRAN and Assembler code versions for IBM 370, UNIVAC 1100 and CDC 6000 series computers.

Software support for irregular and loosely synchronous problems

Science.gov (United States)

Choudhary, A.; Fox, G.; Hiranandani, S.; Kennedy, K.; Koelbel, C.; Ranka, S.; Saltz, J.

1992-01-01

A large class of scientific and engineering applications may be classified as irregular and loosely synchronous from the perspective of parallel processing. We present a partial classification of such problems. This classification has motivated us to enhance FORTRAN D to provide language support for irregular, loosely synchronous problems. We present techniques for parallelization of such problems in the context of FORTRAN D.

Computer Program NIKE

DEFF Research Database (Denmark)

Spanget-Larsen, Jens

2014-01-01

FORTRAN source code for program NIKE (PC version of QCPE 343). Sample input and output for two model chemical reactions are appended: I. Three consecutive monomolecular reactions, II. A simple chain mechanism......FORTRAN source code for program NIKE (PC version of QCPE 343). Sample input and output for two model chemical reactions are appended: I. Three consecutive monomolecular reactions, II. A simple chain mechanism...

HAPS, a Handy Analog Programming System

DEFF Research Database (Denmark)

Højberg, Kristian Søe

1975-01-01

HAPS (Hybrid Analog Programming System) is an analog compiler that can be run on a minicomputer in an interactive mode. Essentially HAPS is written in FORTRAN. The equations to be programmed for an ana log computer are read in by using a FORTRAN-like notation. The input must contain maximum...... and emphasizes the limitations HAPS puts on equation structure, types of computing circuit, scaling, and static testing....

The RANDOM computer program: A linear congruential random number generator

Science.gov (United States)

Miles, R. F., Jr.

1986-01-01

The RANDOM Computer Program is a FORTRAN program for generating random number sequences and testing linear congruential random number generators (LCGs). The linear congruential form of random number generator is discussed, and the selection of parameters of an LCG for a microcomputer described. This document describes the following: (1) The RANDOM Computer Program; (2) RANDOM.MOD, the computer code needed to implement an LCG in a FORTRAN program; and (3) The RANCYCLE and the ARITH Computer Programs that provide computational assistance in the selection of parameters for an LCG. The RANDOM, RANCYCLE, and ARITH Computer Programs are written in Microsoft FORTRAN for the IBM PC microcomputer and its compatibles. With only minor modifications, the RANDOM Computer Program and its LCG can be run on most micromputers or mainframe computers.

ACCULIB, Program Library of Mathematical Routines

International Nuclear Information System (INIS)

Van Kats, J.M.; Rusman, C.J.; Van der Vorst, H.A.

1987-01-01

Description of program or function - ACCULIB is a collection of programs and subprograms for: - approximation and interpolation problems; - the evaluation of series of orthogonal polynomials; - evaluation of the complementary error function; - sorting problems and permutations; - differential equation problems; - linear algebra eigenvalue problems; - optimization problems; - fast Fourier transformations and Fourier series; - numerical quadrature of continuous functions; - linear systems and other linear algebra problems; - bit manipulation and character handling/transmission; - systems of nonlinear equations, in particular the determination of zeros of polynomials; - solution of over-complete systems; - plotting routines for contouring and surface representation; - statistical investigation of data. In addition, many utilities such as code conversion, microfiche production, disk file surveys, layout improvements for ALGOL60 and FORTRAN programs, and the conversion of IBM FORTRAN programs to CDC FORTRAN are included in the collection

PRP: a FORTRAN IV interactive plotting program

Science.gov (United States)

Andrew, A. S.; Linde, J.

A computer program, PRP, has been designed to plot any arithmetic combination selected from a set of major and trace element data on a y- x graph. y and x are defined and entered as a program string (y, x) which is interpreted sequentially. Operators ( +, -, ∗, /, ( unary) , square root, log 10, In c, antilog 10, exponential, integer, absolute value, (,),,) and integer or real numbers may be included. Axis lengths and scales are determined by the user. Five different plotting symbols are available.

GSAP: FORTRAN code for gamma-spectrum analysis

International Nuclear Information System (INIS)

Hnatowicz, V.; Kozma, P.; Ilyushchenko, V.I.

1989-01-01

The GSAP program performs fully automatic evaluation of gamma-ray energy spectra measured with semiconductor detectors. After the input data comprising experimental spectrum, energy and FWHM calibrations and parameters controlling the peak search are supplied, the program starts peak searching from the spectrum beginning. The detected peaks are arranged into multiplets which are unfolded by standard non-linear least-squares-fit assuming Gaussian peak and linear background. The program proceeds until all multiplets are processed. The determined peak parameters are printed and the result of each particular fit is shown in the graphical form. 6 refs

VENTURE-PC 1.1, Reactor Analysis System with Sensitivity and Burnup

International Nuclear Information System (INIS)

2002-01-01

1 - Description of program or function: The VENTURE program solves the usual neutronics eigenvalue, adjoint, fixed source, and criticality search problems. It treats up to three dimensions, maps power density, and does first-order perturbation analysis at the macroscopic cross section level. The BURNER code solves the nuclide chain equations to estimate the nuclide concentrations and burnup at the end of an exposure time or after a shutdown period. This package is based on the CCC-459/BOLD VENTURE IV code system developed at Oak Ridge National Laboratory. In January 1989 the University of Cincinnati contributed the first VENTURE-PC package to RSICC's collection. It was a subset of the mainframe version consisting of the VENTURE and BURNER modules plus several processing modules. VENTURE-PC was distributed as CCC-459 until July 1997 when a new version (with updated source code compatible with newer FORTRAN-77 compilers, some revisions, and extensions to solve much larger problems) was contributed by Argonne National Laboratory. The principle code modules included in the VENTURE-PC system are: VENTURE: Multigroup neutronics finite-difference diffusion theory. BURNER: Depletion calculation for reactor core analysis. Other modules within VENTURE-PC are: DVENTR: Venture input processor; DCRSPR: Neutron cross section processor; DUTLIN: Control file (CNTRL) input processor; DCMACR: Citation format cross section input processor; CRXSPR: Cross section processor; DENMAN: Fuel repositioning module. In August of 1999, Argonne again contributed an updated version of the code which overcomes problem size constraints caused by binary record length limits inherent to the Fortran 90 compiler. The need for long records is detected and avoided by sub-blocking them. Also, the latest Fortran 95 compiler offers substantial speed gains on the newest processors. The source code is updated to be compatible with either Fortran 90 or Fortran 95. In August 2002, the package was updated with

Development of Land Segmentation, Stream-Reach Network, and Watersheds in Support of Hydrological Simulation Program-Fortran (HSPF) Modeling, Chesapeake Bay Watershed, and Adjacent Parts of Maryland, Delaware, and Virginia

Science.gov (United States)

Martucci, Sarah K.; Krstolic, Jennifer L.; Raffensperger, Jeff P.; Hopkins, Katherine J.

2006-01-01

The U.S. Geological Survey, U.S. Environmental Protection Agency Chesapeake Bay Program Office, Interstate Commission on the Potomac River Basin, Maryland Department of the Environment, Virginia Department of Conservation and Recreation, Virginia Department of Environmental Quality, and the University of Maryland Center for Environmental Science are collaborating on the Chesapeake Bay Regional Watershed Model, using Hydrological Simulation Program - FORTRAN to simulate streamflow and concentrations and loads of nutrients and sediment to Chesapeake Bay. The model will be used to provide information for resource managers. In order to establish a framework for model simulation, digital spatial datasets were created defining the discretization of the model region (including the Chesapeake Bay watershed, as well as the adjacent parts of Maryland, Delaware, and Virginia outside the watershed) into land segments, a stream-reach network, and associated watersheds. Land segmentation was based on county boundaries represented by a 1:100,000-scale digital dataset. Fifty of the 254 counties and incorporated cities in the model region were divided on the basis of physiography and topography, producing a total of 309 land segments. The stream-reach network for the Chesapeake Bay watershed part of the model region was based on the U.S. Geological Survey Chesapeake Bay SPARROW (SPAtially Referenced Regressions On Watershed attributes) model stream-reach network. Because that network was created only for the Chesapeake Bay watershed, the rest of the model region uses a 1:500,000-scale stream-reach network. Streams with mean annual streamflow of less than 100 cubic feet per second were excluded based on attributes from the dataset. Additional changes were made to enhance the data and to allow for inclusion of stream reaches with monitoring data that were not part of the original network. Thirty-meter-resolution Digital Elevation Model data were used to delineate watersheds for each

WADOSE, Radiation Source in Vitrification Waste Storage Apparatus

International Nuclear Information System (INIS)

Morita, Jun-ichi; Tashiro, Shingo; Kikkawa, Shizuo; Tsuboi, Takashi

2007-01-01

1 - Description of program or function: This is a radiation shielding program which analyzes unknown dose rates using known radiation sources. It can also evaluate radiation sources from measured dose rates. For instance, dose rates measured at several points in the hot cell of WASTEF are introduced into WADOS, and as a result, Ci of radiation sources and their positions are estimated with structural arrangement data of the WASTEF cells. The later functional addition is very useful for actual operation of a hot cell and others. NEA-1142/02: The code was originally written in non standard Fortran dialect and has been fully translated into Fortran 90, Fortran 77 compatible. 2 - Method of solution: Point kernel ray tracing method (the same method as QAD code). 3 - Restrictions on the complexity of the problem: Modeling of source form for input is available for cylinder, plate, point and others which are simplified geometrically

An Evaluation of Java for Numerical Computing

Directory of Open Access Journals (Sweden)

Brian Blount

1999-01-01

Full Text Available This paper describes the design and implementation of high performance numerical software in Java. Our primary goals are to characterize the performance of object‐oriented numerical software written in Java and to investigate whether Java is a suitable language for such endeavors. We have implemented JLAPACK, a subset of the LAPACK library in Java. LAPACK is a high‐performance Fortran 77 library used to solve common linear algebra problems. JLAPACK is an object‐oriented library, using encapsulation, inheritance, and exception handling. It performs within a factor of four of the optimized Fortran version for certain platforms and test cases. When used with the native BLAS library, JLAPACK performs comparably with the Fortran version using the native BLAS library. We conclude that high‐performance numerical software could be written in Java if a handful of concerns about language features and compilation strategies are adequately addressed.

Beam dynamics calculations and particle tracking using massively parallel processors

International Nuclear Information System (INIS)

Ryne, R.D.; Habib, S.

1995-01-01

During the past decade massively parallel processors (MPPs) have slowly gained acceptance within the scientific community. At present these machines typically contain a few hundred to one thousand off-the-shelf microprocessors and a total memory of up to 32 GBytes. The potential performance of these machines is illustrated by the fact that a month long job on a high end workstation might require only a few hours on an MPP. The acceptance of MPPs has been slow for a variety of reasons. For example, some algorithms are not easily parallelizable. Also, in the past these machines were difficult to program. But in recent years the development of Fortran-like languages such as CM Fortran and High Performance Fortran have made MPPs much easier to use. In the following we will describe how MPPs can be used for beam dynamics calculations and long term particle tracking

Reactive Geochemical Transport Modeling of Concentrated AqueousSolutions: Supplement to TOUGHREACT User's Guide for the PitzerIon-Interaction Model

Energy Technology Data Exchange (ETDEWEB)

Zhang, Guoxiang; Spycher, Nicolas; Xu, Tianfu; Sonnenthal, Eric; Steefel , Carl

2006-12-15

In this report, we present: -- The Pitzer ion-interactiontheory and models -- Input file requirements for using the TOUGHREACTPitzer ion-interaction model and associated databases -- Run-time errormessages -- Verification test cases and application examples. For themain code structure, features, overall solution methods, description ofinput/output files for parameters other than those specific to theimplemented Pitzer model, and error messages, see the TOUGHREACT User'sGuide (Xu et al., 2005). The TOUGHREACT Pitzer version runs on aDEC-alpha architecture CPU, under OSF1 V5.1, with Compaq Digital FortranCompiler. The compiler run-time libraries are required for execution aswell as compilation. The code also runs on Intel Pentium IV andhigher-version CPU-based machines with Compaq Visual Fortran Compiler orIntel Fortran Compiler (integrated with the Microsoft DevelopmentEnvironment). The minimum hardware configuration should include 1 GB RAMand 1 GB (2 GB recommended) of available disk space.

GUI2QAD-3D: A graphical interface program for QAD-CGPIC program

International Nuclear Information System (INIS)

Subbaiah, K.V.; Sarangapani, R.

2006-01-01

GUI2QAD-3D is graphical user interface developed in Visual Basic (VB) version 6.0 to prepare input for the QAD-CGPIC program. QAD-CGPIC is a FORTRAN code that combines QAD-CGGP (RSICC-CCC-493, USA) and PICTURE [Irving, D.C., Morrison, G.W., 1970. PICTURE-an aid in debugging GEOM input data, ORNL-TM-2892] for neutron and gamma-ray shielding calculations by the point kernel method in a consistent fashion to utilize the capabilities of two independent codes. The FORTRAN code calculates fast neutron and gamma-ray penetration through various shield configurations defined by combinatorial geometry specifications. It has provision to estimate buildup factor either from Geometric Progression (GP) coefficients (ANS-6.4.3, 1990) or from Capos'. Capabilities of the FORTRAN code is extended by modifying it to handle off-centred multiple identical sources. Several standard tests of inputs are carried out to validate the modified code. The FORTRAN code executable is created with a Lahey compiler. The user interface facilitates interactive viewing of the geometry of the system with online context sensitive help. Inputs for several practical problems relating to nuclear fuel reprocessing labs are provided. The software runs on Pentium III computers under windows environment and is transmitted in one CD. The software can be obtained from Radiation Safety Information and Computational Centre (RSICC), ORNL, USA with code package identification number CCC-697

The JOSHUA (J80) system programmer`s manual

Energy Technology Data Exchange (ETDEWEB)

Smetana, A.O.; McCort, J.T.; Westmoreland, B.W.

1993-08-01

The JOSHUA system routines (JS routines) can be used to manage a JOSHUA data base and execute JOSHUA modules on VAX/VMS and IBM/MVS computer systems. This manual provides instructions for using the JS routines and information about the internal data structures and logic used by the routines. It is intended for use primarily by JOSHUA systems programmers, however, advanced applications programmers may also find it useful. The JS routines are, as far as possible, written in ANSI FORTRAN 77 so that they are easily maintainable and easily portable to different computer systems. Nevertheless, the JOSHUA system provides features that are not available in ANSI FORTRAN 77, notably dynamic module execution and a data base of named, variable length, unformatted records, so some parts of the routines are coded in nonstandard FORTRAN or assembler (as a last resort). In most cases, the nonstandard sections of code are different for each computer system. To make it easy for programmers using the JS routines to avoid naming conflicts, the JS routines and common block all have six character names that begin with the characters {open_quotes}JS.{close_quotes} Before using this manual, one should be familiar with the JOSHUA system as described in {open_quotes}The JOSHUA Users` Manual,{close_quotes} ANSI FORTRAN 77, and at least one of the computer systems for which the JS routines have been implemented.

Basic Finite Element Method

International Nuclear Information System (INIS)

Lee, Byeong Hae

1992-02-01

This book gives descriptions of basic finite element method, which includes basic finite element method and data, black box, writing of data, definition of VECTOR, definition of matrix, matrix and multiplication of matrix, addition of matrix, and unit matrix, conception of hardness matrix like spring power and displacement, governed equation of an elastic body, finite element method, Fortran method and programming such as composition of computer, order of programming and data card and Fortran card, finite element program and application of nonelastic problem.

Program MACAN, User's guide

International Nuclear Information System (INIS)

Pesic, M.

1992-01-01

The MACAN code was developed as an improvement of the previously written code RACAN1. The code is devoted primarily to accident analyses of RA and RB research reactors in Vinca, but could be used for analyses of research reactors with or without forced cooling as well. The code is written in FORTRAN 77 for VAX and FORTRAN V5.0 for IBM PC computer. This report contains detailed instructions for preparing rather complicated input data and running the code

Computer calculations of compressibility of natural gas

Energy Technology Data Exchange (ETDEWEB)

Abou-Kassem, J.H.; Mattar, L.; Dranchuk, P.M

An alternative method for the calculation of pseudo reduced compressibility of natural gas is presented. The method is incorporated into the routines by adding a single FORTRAN statement before the RETURN statement. The method is suitable for computer and hand-held calculator applications. It produces the same reduced compressibility as other available methods but is computationally superior. Tabular definitions of coefficients and comparisons of predicted pseudo reduced compressibility using different methods are presented, along with appended FORTRAN subroutines. 7 refs., 2 tabs.

User's Manual for FEM-BEM Method. 1.0

Science.gov (United States)

Butler, Theresa; Deshpande, M. D. (Technical Monitor)

2002-01-01

A user's manual for using FORTRAN code to perform electromagnetic analysis of arbitrarily shaped material cylinders using a hybrid method that combines the finite element method (FEM) and the boundary element method (BEM). In this method, the material cylinder is enclosed by a fictitious boundary and the Maxwell's equations are solved by FEM inside the boundary and by BEM outside the boundary. The electromagnetic scattering on several arbitrarily shaped material cylinders using this FORTRAN code is computed to as examples.

Object oriented programming in simulation of ions transport

International Nuclear Information System (INIS)

Zhang Wenyong; Wang Tongquan; Xiao Yabin; Dai Hongyi; Chen Yuzhong

2001-01-01

Using Object Oriented Programming (OOP) method can make our program more reliable and easier to read, debug, maintain and upgrade. This paper compared FORTRAN90-the language widely used in science computing with C ++ --An Object Oriented Language, and the conclusion was made that although FORTRAN90 have many deficiencies, it can be used in Object Oriented programming. Then OOP method was used in programming of Monte Carlo simulation of ions transport and the general process of OOP was given

Scripting DRAGON

International Nuclear Information System (INIS)

Hebert, A.

2002-01-01

The paper describes an user-oriented framework specifically designed to facilitate the use of legacy Fortran codes similar to Dragon. The basic idea is to use a bytecode interpreted language as a glue to link all the components required by the end user. This scripting approach is illustrated with Dragon, where we have replaced the control language CLE-2000 with a bytecode interpreted language, without having to modify Dragon. We have shown how Python or Java can be used to link the Dragon modules together and to construct an object-oriented user interface. Python or Java can also be used to construct execution procedures, calculation schemes and graphical user interfaces. Java was finally selected as the most interesting choice. This approach can be used with other legacy Fortran codes, as soon as their input/output data structures are Dragon-compatible. The only modification required on Fortran code is the replacement of some common blocks by associative tables, already available with the LCM application programming interface. (author)

Beam dynamics simulations using a parallel version of PARMILA

International Nuclear Information System (INIS)

Ryne, R.D.

1996-01-01

The computer code PARMILA has been the primary tool for the design of proton and ion linacs in the United States for nearly three decades. Previously it was sufficient to perform simulations with of order 10000 particles, but recently the need to perform high resolution halo studies for next-generation, high intensity linacs has made it necessary to perform simulations with of order 100 million particles. With the advent of massively parallel computers such simulations are now within reach. Parallel computers already make it possible, for example, to perform beam dynamics calculations with tens of millions of particles, requiring over 10 GByte of core memory, in just a few hours. Also, parallel computers are becoming easier to use thanks to the availability of mature, Fortran-like languages such as Connection Machine Fortran and High Performance Fortran. We will describe our experience developing a parallel version of PARMILA and the performance of the new code

Beam dynamics simulations using a parallel version of PARMILA

International Nuclear Information System (INIS)

Ryne, Robert

1996-01-01

The computer code PARMILA has been the primary tool for the design of proton and ion linacs in the United States for nearly three decades. Previously it was sufficient to perform simulations with of order 10000 particles, but recently the need to perform high resolution halo studies for next-generation, high intensity linacs has made it necessary to perform simulations with of order 100 million particles. With the advent of massively parallel computers such simulations are now within reach. Parallel computers already make it possible, for example, to perform beam dynamics calculations with tens of millions of particles, requiring over 10 GByte of core memory, in just a few hours. Also, parallel computers are becoming easier to use thanks to the availability of mature, Fortran-like languages such as Connection Machine Fortran and High Performance Fortran. We will describe our experience developing a parallel version of PARMILA and the performance of the new code. (author)

Robust C subroutines for non-linear optimization

DEFF Research Database (Denmark)

Brock, Pernille; Madsen, Kaj; Nielsen, Hans Bruun

2004-01-01

This report presents a package of robust and easy-to-use C subroutines for solving unconstrained and constrained non-linear optimization problems. The intention is that the routines should use the currently best algorithms available. All routines have standardized calls, and the user does not have...... by changing 1 to 0. The present report is a new and updated version of a previous report NI-91-03 with the same title, [16]. Both the previous and the present report describe a collection of subroutines, which have been translated from Fortran to C. The reason for writing the present report is that some...... of the C subroutines have been replaced by more effective and robust versions translated from the original Fortran subroutines to C by the Bandler Group, see [1]. Also the test examples have been modi ed to some extent. For a description of the original Fortran subroutines see the report [17]. The software...

Objective Oriented Design of System Thermal Hydraulic Analysis Program and Verification of Feasibility

International Nuclear Information System (INIS)

Chung, Bub Dong; Jeong, Jae Jun; Hwang, Moon Kyu

2008-01-01

The system safety analysis code, such as RELAP5, TRAC, CATHARE etc. have been developed based on Fortran language during the past few decades. Refactoring of conventional codes has been also performed to improve code readability and maintenance. TRACE, RELAP5-3D and MARS codes are examples of these activities. The codes were redesigned to have modular structures utilizing Fortran 90 features. However the programming paradigm in software technology has been changed to use objects oriented programming (OOP), which is based on several techniques, including encapsulation, modularity, polymorphism, and inheritance. It was not commonly used in mainstream software application development until the early 1990s. Many modern programming languages now support OOP. Although the recent Fortran language also support the OOP, it is considered to have limited functions compared to the modern software features. In this work, objective oriented program for system safety analysis code has been tried utilizing modern C language feature. The advantage of OOP has been discussed after verification of design feasibility

Extending OpenMP for NUMA Machines

Directory of Open Access Journals (Sweden)

John Bircsak

2000-01-01

Full Text Available This paper describes extensions to OpenMP that implement data placement features needed for NUMA architectures. OpenMP is a collection of compiler directives and library routines used to write portable parallel programs for shared-memory architectures. Writing efficient parallel programs for NUMA architectures, which have characteristics of both shared-memory and distributed-memory architectures, requires that a programmer control the placement of data in memory and the placement of computations that operate on that data. Optimal performance is obtained when computations occur on processors that have fast access to the data needed by those computations. OpenMP -- designed for shared-memory architectures -- does not by itself address these issues. The extensions to OpenMP Fortran presented here have been mainly taken from High Performance Fortran. The paper describes some of the techniques that the Compaq Fortran compiler uses to generate efficient code based on these extensions. It also describes some additional compiler optimizations, and concludes with some preliminary results.

Program Package for 3d PIC Model of Plasma Fiber

Science.gov (United States)

Kulhánek, Petr; Břeň, David

2007-08-01

A fully three dimensional Particle in Cell model of the plasma fiber had been developed. The code is written in FORTRAN 95, implementation CVF (Compaq Visual Fortran) under Microsoft Visual Studio user interface. Five particle solvers and two field solvers are included in the model. The solvers have relativistic and non-relativistic variants. The model can deal both with periodical and non-periodical boundary conditions. The mechanism of the surface turbulences generation in the plasma fiber was successfully simulated with the PIC program package.

Numerical Recipes in C++: The Art of Scientific Computing (2nd edn). Numerical Recipes Example Book (C++) (2nd edn). Numerical Recipes Multi-Language Code CD ROM with LINUX or UNIX Single-Screen License Revised Version

International Nuclear Information System (INIS)

Borcherds, P

2003-01-01

The two Numerical Recipes books are marvellous. The principal book, The Art of Scientific Computing, contains program listings for almost every conceivable requirement, and it also contains a well written discussion of the algorithms and the numerical methods involved. The Example Book provides a complete driving program, with helpful notes, for nearly all the routines in the principal book. The first edition of Numerical Recipes: The Art of Scientific Computing was published in 1986 in two versions, one with programs in Fortran, the other with programs in Pascal. There were subsequent versions with programs in BASIC and in C. The second, enlarged edition was published in 1992, again in two versions, one with programs in Fortran (NR(F)), the other with programs in C (NR(C)). In 1996 the authors produced Numerical Recipes in Fortran 90: The Art of Parallel Scientific Computing as a supplement, called Volume 2, with the original (Fortran) version referred to as Volume 1. Numerical Recipes in C++ (NR(C++)) is another version of the 1992 edition. The numerical recipes are also available on a CD ROM: if you want to use any of the recipes, I would strongly advise you to buy the CD ROM. The CD ROM contains the programs in all the languages. When the first edition was published I bought it, and have also bought copies of the other editions as they have appeared. Anyone involved in scientific computing ought to have a copy of at least one version of Numerical Recipes, and there also ought to be copies in every library. If you already have NR(F), should you buy the NR(C++) and, if not, which version should you buy? In the preface to Volume 2 of NR(F), the authors say 'C and C++ programmers have not been far from our minds as we have written this volume, and we think that you will find that time spent in absorbing its principal lessons will be amply repaid in the future as C and C++ eventually develop standard parallel extensions'. In the preface and introduction to NR

A visual Fortran user interface for CITATION code

International Nuclear Information System (INIS)

Albarhoum, M.; Zaidan, N.

2006-11-01

A user interface is designed to enable running the CITATION code under Windows. Four sections of CITATION input file are arranged in the form of 4 interfaces, in which all the parameters of the section can be modified dynamically. The help for each parameter (item) can be read from a general help for the section which, in turn, can be visualized upon selecting the section from the program general menu. (author)

Vienna Fortran - A Language Specification. Version 1.1

Science.gov (United States)

1992-03-01

these include critical sections, events and locks. New instructions for node I/O are provided. In addition, there are a number of intrinsic functions to...form SELECT DCASE (Al,..,,Ar) capl,..., capm END SELECT where * r > 1 and all Ai, 1 < i < r, are array names. The Ai are called selectors. At the time of

Object-Oriented Implementation of Adaptive Mesh Refinement Algorithms

Directory of Open Access Journals (Sweden)

William Y. Crutchfield

1993-01-01

Full Text Available We describe C++ classes that simplify development of adaptive mesh refinement (AMR algorithms. The classes divide into two groups, generic classes that are broadly useful in adaptive algorithms, and application-specific classes that are the basis for our AMR algorithm. We employ two languages, with C++ responsible for the high-level data structures, and Fortran responsible for low-level numerics. The C++ implementation is as fast as the original Fortran implementation. Use of inheritance has allowed us to extend the original AMR algorithm to other problems with greatly reduced development time.

FLOWNET: A Computer Program for Calculating Secondary Flow Conditions in a Network of Turbomachinery

Science.gov (United States)

Rose, J. R.

1978-01-01

The program requires the network parameters, the flow component parameters, the reservoir conditions, and the gas properties as input. It will then calculate all unknown pressures and the mass flow rate in each flow component in the network. The program can treat networks containing up to fifty flow components and twenty-five unknown network pressures. The types of flow components that can be treated are face seals, narrow slots, and pipes. The program is written in both structured FORTRAN (SFTRAN) and FORTRAN 4. The program must be run in an interactive (conversational) mode.

Application Portable Parallel Library

Science.gov (United States)

Cole, Gary L.; Blech, Richard A.; Quealy, Angela; Townsend, Scott

1995-01-01

Application Portable Parallel Library (APPL) computer program is subroutine-based message-passing software library intended to provide consistent interface to variety of multiprocessor computers on market today. Minimizes effort needed to move application program from one computer to another. User develops application program once and then easily moves application program from parallel computer on which created to another parallel computer. ("Parallel computer" also include heterogeneous collection of networked computers). Written in C language with one FORTRAN 77 subroutine for UNIX-based computers and callable from application programs written in C language or FORTRAN 77.

A language for image processing HILLS and its supporting system SDIP

International Nuclear Information System (INIS)

Suzuki, H.; Toriwaki, J.

1984-01-01

This paper presents a language HILLS and its supporting system SDIP for image processing. HILLS is a key-word type language for describing image processing procedures by using subroutine packages SLIP and SPIDER. SDIP, written in FORTRAN to keep portability, supports programming by HILLS in interactive mode including functions such as editing, translating HILLS into FORTRAN, error detection, and providing manual information. Results of preliminary experiments suggest that HILLS and SDIP are very useful tools for beginners and researchers in application fields of image processing to develop desired image analysis procedures

The introspective may achieve more: Enhancing existing Geoscientific models with native-language emulated structural reflection

Science.gov (United States)

Ji, Xinye; Shen, Chaopeng

2018-01-01

Geoscientific models manage myriad and increasingly complex data structures as trans-disciplinary models are integrated. They often incur significant redundancy with cross-cutting tasks. Reflection, the ability of a program to inspect and modify its structure and behavior at runtime, is known as a powerful tool to improve code reusability, abstraction, and separation of concerns. Reflection is rarely adopted in high-performance Geoscientific models, especially with Fortran, where it was previously deemed implausible. Practical constraints of language and legacy often limit us to feather-weight, native-language solutions. We demonstrate the usefulness of a structural-reflection-emulating, dynamically-linked metaObjects, gd. We show real-world examples including data structure self-assembly, effortless input/output (IO) and upgrade to parallel I/O, recursive actions and batch operations. We share gd and a derived module that reproduces MATLAB-like structure in Fortran and C++. We suggest that both a gd representation and a Fortran-native representation are maintained to access the data, each for separate purposes. Embracing emulated reflection allows generically-written codes that are highly re-usable across projects.

Hybrid expert system implementation to determine core reload patterns

International Nuclear Information System (INIS)

Greek, K.J.; Robinson, A.H.

1989-01-01

Determining reactor reload fuel patterns is a computationally intensive problem solving process for which automation can be of significant benefit. Often much effort is expended in the search for an optimal loading. While any modern programming language could be used to automate solution, the specialized tools of artificial intelligence (AI) are the most efficient means of introducing the fuel management expert's knowledge into the search for an optimum reload pattern. Prior research in pressurized water reactor refueling strategies developed FORTRAN programs that automated an expert's basic knowledge to direct a search for an acceptable minimum peak power loading. The dissatisfaction with maintenance of compiled knowledge in FORTRAN programs has served as the motivation for the development of the SHUFFLE expert system. SHUFFLE is written in Smalltalk, an object-oriented programming language, and evaluates loadings as it generates them using a two-group, two-dimensional nodal power calculation compiled in a personal computer-based FORTRAN. This paper reviews the object-oriented representation developed to solve the core reload problem with an expert system tool and its operating prototype, SHUFFLE

Version 1.00 programmer's tools used in constructing the INEL RML/analytical radiochemistry sample tracking database and its user interface

International Nuclear Information System (INIS)

Femec, D.A.

1995-09-01

This report describes two code-generating tools used to speed design and implementation of relational databases and user interfaces: CREATE-SCHEMA and BUILD-SCREEN. CREATE-SCHEMA produces the SQL commands that actually create and define the database. BUILD-SCREEN takes templates for data entry screens and generates the screen management system routine calls to display the desired screen. Both tools also generate the related FORTRAN declaration statements and precompiled SQL calls. Included with this report is the source code for a number of FORTRAN routines and functions used by the user interface. This code is broadly applicable to a number of different databases

A fast random number generator for the Intel Paragon supercomputer

Science.gov (United States)

Gutbrod, F.

1995-06-01

A pseudo-random number generator is presented which makes optimal use of the architecture of the i860-microprocessor and which is expected to have a very long period. It is therefore a good candidate for use on the parallel supercomputer Paragon XP. In the assembler version, it needs 6.4 cycles for a real∗4 random number. There is a FORTRAN routine which yields identical numbers up to rare and minor rounding discrepancies, and it needs 28 cycles. The FORTRAN performance on other microprocessors is somewhat better. Arguments for the quality of the generator and some numerical tests are given.

PDDP, A Data Parallel Programming Model

Directory of Open Access Journals (Sweden)

Karen H. Warren

1996-01-01

Full Text Available PDDP, the parallel data distribution preprocessor, is a data parallel programming model for distributed memory parallel computers. PDDP implements high-performance Fortran-compatible data distribution directives and parallelism expressed by the use of Fortran 90 array syntax, the FORALL statement, and the WHERE construct. Distributed data objects belong to a global name space; other data objects are treated as local and replicated on each processor. PDDP allows the user to program in a shared memory style and generates codes that are portable to a variety of parallel machines. For interprocessor communication, PDDP uses the fastest communication primitives on each platform.

Development of INFRA graphic user interface

International Nuclear Information System (INIS)

Yang, Y. S.; Lee, C. B.; Kim, Y. M.; Kim, D. H.; Kim, S. K.

2004-01-01

GUI(Graphic User Interface) has been developed for high burnup fuel performance code INFRA. Based upon FORTRAN program language, INFRA was developed by COMPAQ Visual FORTRAN 6.5. Graphic user input and output interface have been developed by using Visual Basic and MDB which are the most widely used program language and database for windows application development. Various input parameters, which are required for INFRA calculation, can be input more conveniently by newly developed input interface. Without any additional data handling, INFRA calculation results can be investigated intuitively by 2D or 3D graphs on screen and animation function

Single Particle energy levels in ODD-A Nuclei

International Nuclear Information System (INIS)

Lasijo, R.S.

1997-01-01

Singe particle energies for atomic nuclei with odd-A number of nucleons, i.e. nuclei possessing odd number of protons or odd number of neutrons, were calculated based on Nilsson's theory, and then the diagrams were made. the energy diagram is in the from of plot of energies as function of deformations, entities identifying the deviations from the spherical shape. The energy calculations were done using FORTRAN 77 language of PC (Personal Computer) version with Microsoft Fortran Power Station compiler, which was then combined with WORD version 6.0 and EXCEL version 5.0 of WINDOWS WORKGROUP to make the plot

PASC-1, Petten AMPX-II/SCALE-3 Code System for Reactor Neutronics Calculation

International Nuclear Information System (INIS)

Yaoqing, W.; Oppe, J.; Haas, J.B.M. de; Gruppelaar, H.; Slobben, J.

1995-01-01

1 - Description of program or function: The Petten AMPX-II/SCALE-3 Code System PASC-1 is a reactor neutronics calculation programme system consisting of well known IBM-oriented codes, that have been translated into FORTRAN-77, for calculations on a CDC-CYBER computer. Thus, the portability of these codes has been increased. In this system, some AMPX-II and SCALE-3 modules, the one-dimensional transport code ANISN and the 1 to 3-dimensional diffusion code CITATION are linked together on the CDC-CYBER/855 computer. The new cell code XSDRNPM-S and the old XSDRN code are included in the system. Starting from an AMPX fine group library up to CITATION, calculations can be performed for each individual module. Existing AMPX master interface format libraries, such as CSRL-IV, JEF-1, IRI and SCALE-45, and the old XSDRN-formatted libraries such as the COBB library can be used for the calculations. The code system contains the following modules and codes at present: AIM, AJAX, MALOCS, NITAWL-S, REVERT-I, ICE-2, CONVERT, JUAN, OCTAGN, XSDRNPM-S, XSDRN, ANISN and CITATION. The system will be extended with other SCALE modules and transport codes. 2 - Method of solution: The PASC-1 system is based on AMPX-II/SCALE-3 modules. Except for some SCALE-3 modules taken from the SCALIAS package, the original AMPX-II modules were IBM versions written in FORTRAN IV. These modules have been translated into CDC FORTRAN V. In order to test these modules and link them with some codes, some of the sample problem calculations have been performed for the whole PASC-1 system. During these calculations, some FORTRAN-77 errors were found in MALOCS, REVERT, CONVERT and some subroutines of SUBLIB (FORTRAN-77 subroutine library). These errors have been corrected. Because many corrections were made for the REVERT module, it is renamed as REVERT-I (improved version of REVERT). After these corrections, the whole system is running on a CDC-CYBER Computer (NOS-BE operating system). 3 - Restrictions on the

PetClaw: Parallelization and Performance Optimization of a Python-Based Nonlinear Wave Propagation Solver Using PETSc

KAUST Repository

Alghamdi, Amal Mohammed

2012-04-01

Clawpack, a conservation laws package implemented in Fortran, and its Python-based version, PyClaw, are existing tools providing nonlinear wave propagation solvers that use state of the art finite volume methods. Simulations using those tools can have extensive computational requirements to provide accurate results. Therefore, a number of tools, such as BearClaw and MPIClaw, have been developed based on Clawpack to achieve significant speedup by exploiting parallel architectures. However, none of them has been shown to scale on a large number of cores. Furthermore, these tools, implemented in Fortran, achieve parallelization by inserting parallelization logic and MPI standard routines throughout the serial code in a non modular manner. Our contribution in this thesis research is three-fold. First, we demonstrate an advantageous use case of Python in implementing easy-to-use modular extensible scalable scientific software tools by developing an implementation of a parallelization framework, PetClaw, for PyClaw using the well-known Portable Extensible Toolkit for Scientific Computation, PETSc, through its Python wrapper petsc4py. Second, we demonstrate the possibility of getting acceptable Python code performance when compared to Fortran performance after introducing a number of serial optimizations to the Python code including integrating Clawpack Fortran kernels into PyClaw for low-level computationally intensive parts of the code. As a result of those optimizations, the Python overhead in PetClaw for a shallow water application is only 12 percent when compared to the corresponding Fortran Clawpack application. Third, we provide a demonstration of PetClaw scalability on up to the entirety of Shaheen; a 16-rack Blue Gene/P IBM supercomputer that comprises 65,536 cores and located at King Abdullah University of Science and Technology (KAUST). The PetClaw solver achieved above 0.98 weak scaling efficiency for an Euler application on the whole machine excluding the

JAKEF, Gradient or Jacobian Function from Objective Function or Vector Function

International Nuclear Information System (INIS)

Hillstrom, K.E.

1988-01-01

1 - Description of program or function: JAKEF is a language processor that accepts as input a single- or double-precision ANSI standard 1977 FORTRAN subroutine defining an objective function f(x), or a vector function F(x), and produces as output a single- or double- precision ANSI standard 1977 FORTRAN subroutine defining the gradient of f(x), or the Jacobian of F(x). 2 - Method of solution: JAKEF is a four-pass compiler consisting of a lexical preprocessor, a parser, a tree-building and flow analysis pass, and a differentiator and output construction pass. The lexical preprocessor reworks the input FORTRAN program to give it a recognizable lexical structure. The parser transforms the pre-processed input into a string of tokens in a post-fix representation of the program tree. The tree-building and flow analysis pass constructs a tree out of the post-fix token string. The differentiator identifies relevant assignment statements; then, if necessary, it analyzes them into component statements governed by a single differentiation rule and augments each of these statements with a call to a member of the run-time support package which implements the differentiation rule. After completing the construction of the main body of the routine, JAKEF inserts calls to support package routines that complete the differentiation. This results in a modified program tree in a form compatible with FORTRAN rules. 3 - Restrictions on the complexity of the problem: Statement functions and Equivalence's that involve the independent variables are not handled correctly. Variables, constants, or functions of type COMPLEX are not recognized. Character sub-string expressions and alternate returns are not permitted

Numerical performance and throughput benchmark for electronic structure calculations in PC-Linux systems with new architectures, updated compilers, and libraries.

Science.gov (United States)

Yu, Jen-Shiang K; Hwang, Jenn-Kang; Tang, Chuan Yi; Yu, Chin-Hui

2004-01-01

A number of recently released numerical libraries including Automatically Tuned Linear Algebra Subroutines (ATLAS) library, Intel Math Kernel Library (MKL), GOTO numerical library, and AMD Core Math Library (ACML) for AMD Opteron processors, are linked against the executables of the Gaussian 98 electronic structure calculation package, which is compiled by updated versions of Fortran compilers such as Intel Fortran compiler (ifc/efc) 7.1 and PGI Fortran compiler (pgf77/pgf90) 5.0. The ifc 7.1 delivers about 3% of improvement on 32-bit machines compared to the former version 6.0. Performance improved from pgf77 3.3 to 5.0 is also around 3% when utilizing the original unmodified optimization options of the compiler enclosed in the software. Nevertheless, if extensive compiler tuning options are used, the speed can be further accelerated to about 25%. The performances of these fully optimized numerical libraries are similar. The double-precision floating-point (FP) instruction sets (SSE2) are also functional on AMD Opteron processors operated in 32-bit compilation, and Intel Fortran compiler has performed better optimization. Hardware-level tuning is able to improve memory bandwidth by adjusting the DRAM timing, and the efficiency in the CL2 mode is further accelerated by 2.6% compared to that of the CL2.5 mode. The FP throughput is measured by simultaneous execution of two identical copies of each of the test jobs. Resultant performance impact suggests that IA64 and AMD64 architectures are able to fulfill significantly higher throughput than the IA32, which is consistent with the SpecFPrate2000 benchmarks.

Conceptual OOP design of Pilot Code for Two-Fluid, Three-field Model with C++ 6.0

Energy Technology Data Exchange (ETDEWEB)

Chung, B. D.; Lee, Y. J

2006-09-15

To establish the concept of the objective oriented program (OOP) design for reactor safety analysis code, the preliminary OOP design for PILOT code, which based on one dimensional two fluid three filed model, has been attempted with C++ language feature. Microsoft C++ language has been used since it is available as groupware utilization in KAERI. The language has can be merged with Compac Visual Fortran 6.6 in Visual Studio platform. In the development platform, C++ has been used as main language and Fortran has been used as mixed language in connection with C++ main drive program. The mixed language environment is a specific feature provided in visual studio. Existing Fortran source was utilized for input routine of reading steam table from generated file and routine of steam property calculation. The calling convention and passing argument from C++ driver was corrected. The mathematical routine, such as inverse matrix conversion and tridiagonal matrix solver, has been used as PILOT Fortran routines. Simple volume and junction utilized in PILOT code can be treated as objects, since they are the basic construction elements of code system. Other routines for overall solution scheme have been realized as procedure C functions. The conceptual design which consists of hydraulic loop, component, volume, and junction class has been described in the appendix in order to give the essential OOP structure of system safety analysis code. The attempt shows that many part of system analysis code can be expressed as objects, although the overall structure should be maintained as procedure functions. The encapsulation of data and functions within an object can provide many beneficial aspects in programming of system code.

Conceptual OOP design of Pilot Code for Two-Fluid, Three-field Model with C++ 6.0

International Nuclear Information System (INIS)

Chung, B. D.; Lee, Y. J.

2006-09-01

To establish the concept of the objective oriented program (OOP) design for reactor safety analysis code, the preliminary OOP design for PILOT code, which based on one dimensional two fluid three filed model, has been attempted with C++ language feature. Microsoft C++ language has been used since it is available as groupware utilization in KAERI. The language has can be merged with Compac Visual Fortran 6.6 in Visual Studio platform. In the development platform, C++ has been used as main language and Fortran has been used as mixed language in connection with C++ main drive program. The mixed language environment is a specific feature provided in visual studio. Existing Fortran source was utilized for input routine of reading steam table from generated file and routine of steam property calculation. The calling convention and passing argument from C++ driver was corrected. The mathematical routine, such as inverse matrix conversion and tridiagonal matrix solver, has been used as PILOT Fortran routines. Simple volume and junction utilized in PILOT code can be treated as objects, since they are the basic construction elements of code system. Other routines for overall solution scheme have been realized as procedure C functions. The conceptual design which consists of hydraulic loop, component, volume, and junction class has been described in the appendix in order to give the essential OOP structure of system safety analysis code. The attempt shows that many part of system analysis code can be expressed as objects, although the overall structure should be maintained as procedure functions. The encapsulation of data and functions within an object can provide many beneficial aspects in programming of system code

Output formatting in Apple-Soft Basic

International Nuclear Information System (INIS)

Navale, A.S.

1987-01-01

Personal computers are being used extensively in various fields. BASIC is a very popular and widely used language in personal computers. Apple computer is one of the popular machines used for scientific and engineering applications. Presenting output from computers in a neat and easy to read form is very important. Languages like FORTRAN have utility command 'FORMAT' which takes care of the formatting of the output in user-defined form. In some versions of BASIC a PRINT USING facility is available but it is not as powerful as the FORTRAN statement 'FORMAT'. Applesoft basic does not have even this PRINT USING command. Programmers have to write their own program segments to handle output formatting in Applesoft BASIC. Generally, such user written programs are of limited use as they cannot be used easily with other programs. A general purpose and easily transportable subroutine in Applesoft BASIC is presented here for handling output formatting in user-defined structure. The subroutine is nearly as powerful as the FORMAT statement in FORTRAN. It can also be used in other versions of BASIC with very little modifications. 3 tables, 4 refs. (author)

NINJA: Java for High Performance Numerical Computing

Directory of Open Access Journals (Sweden)

José E. Moreira

2002-01-01

Full Text Available When Java was first introduced, there was a perception that its many benefits came at a significant performance cost. In the particularly performance-sensitive field of numerical computing, initial measurements indicated a hundred-fold performance disadvantage between Java and more established languages such as Fortran and C. Although much progress has been made, and Java now can be competitive with C/C++ in many important situations, significant performance challenges remain. Existing Java virtual machines are not yet capable of performing the advanced loop transformations and automatic parallelization that are now common in state-of-the-art Fortran compilers. Java also has difficulties in implementing complex arithmetic efficiently. These performance deficiencies can be attacked with a combination of class libraries (packages, in Java that implement truly multidimensional arrays and complex numbers, and new compiler techniques that exploit the properties of these class libraries to enable other, more conventional, optimizations. Two compiler techniques, versioning and semantic expansion, can be leveraged to allow fully automatic optimization and parallelization of Java code. Our measurements with the NINJA prototype Java environment show that Java can be competitive in performance with highly optimized and tuned Fortran code.

A Real-Time Data Monitoring and Accumulation System for Dynamic Studies with Radionuclides

Energy Technology Data Exchange (ETDEWEB)

Ammann, W.; Doll, J.; Lorenz, W. J.; Ostertag, H.; Adam, W. E.; Scheer, K. E. [German Cancer Research Centre, Institute of Nuclear Medicine, Heidelberg, Federal Republic of Germany (Germany)

1971-02-15

A multipurpose digital data monitoring and accumulation system is described. The central unit of the system is a PDP-8 computer with a 12K memory. The system contains furthermore a multipurpose digital input/output register for low data rates, a fourfold and a twofold ADC connected to the high-speed multiplexor unit of the PDP-8 and a digital timet. Data from various process peripheries are recorded on a nine-track IBM compatible Ampex tape recorder. When two co-ordinates are recorded the system is used in the ''add-one-to-storage'' mode. In the case of more than two co-ordinates the data are stored in the sequential mode, event by event. A dialogue real-time monitor program in assembler language was developed to control the process peripheries. The 4K-Fortran operating system was modified in such a way that monitor subroutines were called into the Fortran program without loss of the real-time properties of the monitor system during a Fortran run. The use of the system for lung function studies with an Anger-type scintillation camera and {sup 133}Xe is discussed as an example of the application of the system. (author)

Language interoperability for high-performance parallel scientific components

International Nuclear Information System (INIS)

Elliot, N; Kohn, S; Smolinski, B

1999-01-01

With the increasing complexity and interdisciplinary nature of scientific applications, code reuse is becoming increasingly important in scientific computing. One method for facilitating code reuse is the use of components technologies, which have been used widely in industry. However, components have only recently worked their way into scientific computing. Language interoperability is an important underlying technology for these component architectures. In this paper, we present an approach to language interoperability for a high-performance parallel, component architecture being developed by the Common Component Architecture (CCA) group. Our approach is based on Interface Definition Language (IDL) techniques. We have developed a Scientific Interface Definition Language (SIDL), as well as bindings to C and Fortran. We have also developed a SIDL compiler and run-time library support for reference counting, reflection, object management, and exception handling (Babel). Results from using Babel to call a standard numerical solver library (written in C) from C and Fortran show that the cost of using Babel is minimal, where as the savings in development time and the benefits of object-oriented development support for C and Fortran far outweigh the costs

Multi-language Struct Support in Babel

Energy Technology Data Exchange (ETDEWEB)

Ebner, D; Prantl, A; Epperly, T W

2011-03-22

Babel is an open-source language interoperability framework tailored to the needs of high-performance scientific computing. As an integral element of the Common Component Architecture (CCA) it is used in a wide range of research projects. In this paper we describe how we extended Babel to support interoperable tuple data types (structs). Structs are a common idiom in scientific APIs; they are an efficient way to pass tuples of nonuniform data between functions, and are supported natively by most programming languages. Using our extended version of Babel, developers of scientific code can now pass structs as arguments between functions implemented in any of the supported languages. In C, C++ and Fortran 2003, structs can be passed without the overhead of data marshaling or copying, providing language interoperability at minimal cost. Other supported languages are Fortran 77, Fortran 90, Java and Python. We will show how we designed a struct implementation that is interoperable with all of the supported languages and present benchmark data compare the performance of all language bindings, highlighting the differences between languages that offer native struct support and an object-oriented interface with getter/setter methods.

FORSIM, Solution of Ordinary or Partial Differential Equation with Initial Conditions

International Nuclear Information System (INIS)

Carver, M.B.

1985-01-01

1 - Description of problem or function: FORSIM is a FORTRAN oriented simulation program which automates the continuous transient solution of systems of ordinary and/or partial differential equations. The user writes his equations in a FORTRAN subroutine, following prescribed rules, and loads this routine along with the executive routines. The executive routines then read in initial data supplied by the user and proceed with the integration. 2 - Method of solution: Partial differential equations are converted to coupled ordinary differential equations by suitable discretization formulae. Integration is done by variable order, variable step-size error controlled algorithms. 3 - Restrictions on the complexity of the problem - Maximum of: 1000 ordinary differential equations

Use of Wingz spreadsheet as an interface to total-system performance assessment

International Nuclear Information System (INIS)

Chambers, W.F.; Treadway, A.H.

1992-01-01

A commercial spreadsheet has been used as an interface to a set of simple models to simulate possible nominal flow and failure scenarios at the potential high-level nuclear waste repository at Yucca Mountain, Nevada. Individual models coded in FORTRAN are linked to the spreadsheet. Complementary cumulative probability distribution functions resulting from the models are plotted through scripts associated with the spreadsheet. All codes are maintained under a source code control system for quality assurance. The spreadsheet and the simple models can be run on workstations, PCs, and Macintoshes. The software system is designed so that the FORTRAN codes can be run on several machines if a network environment is available

GOC: General Orbit Code. [In FORTRAN for IBM 360

Energy Technology Data Exchange (ETDEWEB)

Maddox, L.B.; McNeilly, G.S.

1979-08-01

GOC (General Orbit Code) is a versatile program which will perform a variety of calculations relevant to isochronous cyclotron design studies. In addition to the usual calculations of interest (e.g., equilibrium and accelerated orbits, focusing frequencies, field isochronization, etc.), GOC has a number of options to calculate injections with a charge change. GOC provides both printed and plotted output, and will follow groups of particles to allow determination of finite-beam properties. An interactive PDP-10 program called GIP, which prepares input data for GOC, is available. GIP is a very easy and convenient way to prepare complicated input data for GOC. Enclosed with this report are several microfiche containing source listings of GOC and other related routines and the printed output from a multiple-option GOC run.

An empirical comparison of Qbasic, FORTRAN, C, Pascal, C ++ ...

African Journals Online (AJOL)

The software development process involves the development, coding and running of programs in a chosen programming language. There are thousands of programming languages in existence and selecting a suitable one is never an easy task. Over the years, several attempts have been made to evaluate programming ...

TelluSim: A Python Plug-in Based Computational Framework for Spatially Distributed Environmental and Earth Sciences Modelling

Science.gov (United States)

Willgoose, G. R.

2008-12-01

TelluSim is a python-based computational framework for integrating and manipulating modules written in a variety of computer languages. TelluSim consists of a main program that dynamically, at run time, assembles a series of modules. These modules can be written in any language that can be accessed by Python. Currently we have modules in Fortran and Python, with C to be supported soon. New modules are incorporated as plug-ins like done for a browser or Photoshop, simply by copying the module binary into a plug-in directory. TelluSim automatically generates a GUI for parameter and state I/O, and automatically creates the intermodule communication mechanisms needed for the computations. A decision to use Python was arrived at after detailed trials using other languages including C, Tcl/Tk and Fortran. An important aspect of the design of TelluSim was to minimise the overhead in interfacing the modules with TelluSim, and minimise any requirement for recoding of existing software, so eliminating a major disadvantage of more complex frameworks (e.g. JAMS, openMI). Several significant Fortran codes developed by the author have been incorporated as part of the design process and as proof of concept. In particular the SIBERIA landform evolution code (a high performance F90 code, including parallel capability) has been broken up into a series of TelluSim modules, so that the SIBERIA now consists of a Python script of 20 lines. These 20 lines assemble and run the underlying modules (about 50,000 lines of Fortran code). The presentation will discuss in more detail the design of TelluSim, and our experiences of the advantages and disadvantages of using Python relative to other approaches.

STOMP Subsurface Transport Over Multiple Phases, Version 4.0, User’s Guide

Energy Technology Data Exchange (ETDEWEB)

White, Mark D.; Oostrom, Martinus

2006-06-09

This guide describes the general use, input file formatting, compilation and execution of the STOMP (Subsurface Transport Over Multiple Phases) simulator, a scientific tool for analyzing single and multiple phase subsurface flow and transport. A description of the simulator’s governing equations, constitutive functions and numerical solution algorithms are provided in a companion theory guide. In writing these guides for the STOMP simulator, the authors have assumed that the reader comprehends concepts and theories associated with multiple-phase hydrology, heat transfer, thermodynamics, radioactive chain decay, and relative permeability-saturation-capillary pressure constitutive relations. The authors further assume that the reader is familiar with the computing environment on which they plan to compile and execute the STOMP simulator. Source codes for the sequential versions of the simulator are available in pure FORTRAN 77 or mixed FORTRAN 77/90 forms. The pure FORTRAN 77 source code form requires a parameters file to define the memory requirements for the array elements. The mixed FORTRAN 77/90 form of the source code uses dynamic memory allocation to define memory requirements, based on a FORTRAN 90 preprocessor STEP, that reads the input files. The simulator utilizes a variable source code configuration, which allows the execution memory and speed to be tailored to the problem specifics, and essentially requires that the source code be assembled and compiled through a software maintenance utility. The memory requirements for executing the simulator are dependent on the complexity of physical system to be modeled and the size and dimensionality of the computational domain. Likewise execution speed depends on the problem complexity, size and dimensionality of the computational domain, and computer performance. Selected operational modes of the STOMP simulator are available for scalable execution on multiple processor (i.e., parallel) computers. These versions

PySSM: A Python Module for Bayesian Inference of Linear Gaussian State Space Models

Directory of Open Access Journals (Sweden)

Christopher Strickland

2014-04-01

Full Text Available PySSM is a Python package that has been developed for the analysis of time series using linear Gaussian state space models. PySSM is easy to use; models can be set up quickly and efficiently and a variety of different settings are available to the user. It also takes advantage of scientific libraries NumPy and SciPy and other high level features of the Python language. PySSM is also used as a platform for interfacing between optimized and parallelized Fortran routines. These Fortran routines heavily utilize basic linear algebra and linear algebra Package functions for maximum performance. PySSM contains classes for filtering, classical smoothing as well as simulation smoothing.

User's guide to MARINRAD: model for assessing the consequences of release of radioactive material into the oceans

International Nuclear Information System (INIS)

Koplik, C.M.; Kaplan, M.F.; Nalbandian, J.Y.; Simonson, J.H.; Clark, P.G.

1984-05-01

Marine Radionuclide Transport and Dose (MARINRAD) is a system of the computer programs designed to evaluate the consequences from release of radioactive waste into the ocean. The FORTRAN program MARRAD, which is part of the MARINRAD software, computes nuclide concentration caused by ocean transport and generates food chain concentration factors. The FORTRAN program MAROUT, which is also part of MARINRAD, evaluates a pathways-to-man dose model, generates print reports, and produces graphic plots. MARINRAD's top-down modular design provides flexible software that can be easily modified for a user's specific problem. MARINRAD was developed under contract with the Sandia National Laboratories in Albuquerque, New Mexico. 18 references, 23 figures, 42 tables

Shared Variable Oriented Parallel Precompiler for SPMD Model

Institute of Scientific and Technical Information of China (English)

无

1995-01-01

For the moment,commercial parallel computer systems with distributed memory architecture are usually provided with parallel FORTRAN or parallel C compliers,which are just traditional sequential FORTRAN or C compilers expanded with communication statements.Programmers suffer from writing parallel programs with communication statements. The Shared Variable Oriented Parallel Precompiler (SVOPP) proposed in this paper can automatically generate appropriate communication statements based on shared variables for SPMD(Single Program Multiple Data) computation model and greatly ease the parallel programming with high communication efficiency.The core function of parallel C precompiler has been successfully verified on a transputer-based parallel computer.Its prominent performance shows that SVOPP is probably a break-through in parallel programming technique.

Generalized Portable SHMEM Library for High Performance Computing

Energy Technology Data Exchange (ETDEWEB)

Parzyszek, Krzysztof [Iowa State Univ., Ames, IA (United States)

2003-01-01

This dissertation describes the efforts to design and implement the Generalized Portable SHMEM library, GPSHMEM, as well as supplementary tools. There are two major components of the GPSHMEM project: the GPSHMEM library itself and the Fortran 77 source-to-source translator. The rest of this thesis is divided into two parts. Part I introduces the shared memory model and the distributed shared memory model. It explains the motivation behind GPSHMEM and presents its functionality and performance results. Part II is entirely devoted to the Fortran 77 translator call fgpp. The need for such a tool is demonstrated, functionality goals are stated, and the design issues are presented along with the development of the solutions.

Program auto

International Nuclear Information System (INIS)

Rawool-Sullivan, M.W.; Plagnol, E.

1990-01-01

The program AUTO was developed to be used in the analysis of dE vs E type spectra. This program is written in FORTRAN and calculates dE vs E lines in MeV. The provision is also made in the program to convert these lines from MeV to ADC channel numbers to facilitate the comparison with the raw data from the experiments. Currently the output of this program can be plotted with the display program, called VISU, but it can also be used independent of the program VISU, with little or no modification in the actual fortran code. The program AUTO has many useful applications. In this article the program AUTO is described along with its applications

ZLIB++: Object-oriented numerical library for differential algebra

International Nuclear Information System (INIS)

Malitsky, N.; Reshetov, A.; Yan, Y.

1994-01-01

New software engineering tools and object-oriented design have a great impact on the software development process. But in high energy physics all major packages were implemented in FORTRAN and porting of these codes to another language is rather complicated, primarily because of their huge size and heavy use of FORTRAN mathematical libraries. But some intrinsic accelerator concepts, such as nested structure of modern accelerators, look very pretty when implemented with the object-oriented approach. In this paper we present the object-oriented version of ZLIB, numerical library for differential algebra and show how the modern approaches can simplify the development and support of accelerator codes, decrease code size, and allow description of complex mathematical transformations by simple language

Development of a conversational text editor on MITRA 125 used with a TEKTRONIX 4014 display console

International Nuclear Information System (INIS)

Siffre, Evelyne.

1980-06-01

The purpose of this study, which falls within the purview of a nuclear physics research laboratory, is the development of a simple to use conversational text editor to mitigate the defects of the MMT2 monitor. The operations to be executed are: - creation of a source file written in FORTRAN - concatenation of the various stages to obtain a workable program: FORTRAN compilation, edition of links, group generation; - execution of this program. These operations are performed in two different ways: 1) by using the system controls as from the teleprinter (this corresponds to the previous use). The sequence of controls to be effected is described; 2) by using the EDI 125 conversational editor [fr

PyClaw: Accessible, Extensible, Scalable Tools for Wave Propagation Problems

KAUST Repository

Ketcheson, David I.; Mandli, Kyle; Ahmadia, Aron; Alghamdi, Amal; de Luna, Manuel Quezada; Parsani, Matteo; Knepley, Matthew G.; Emmett, Matthew

2012-01-01

Development of scientific software involves tradeoffs between ease of use, generality, and performance. We describe the design of a general hyperbolic PDE solver that can be operated with the convenience of MATLAB yet achieves efficiency near that of hand-coded Fortran and scales to the largest supercomputers. This is achieved by using Python for most of the code while employing automatically wrapped Fortran kernels for computationally intensive routines, and using Python bindings to interface with a parallel computing library and other numerical packages. The software described here is PyClaw, a Python-based structured grid solver for general systems of hyperbolic PDEs [K. T. Mandli et al., PyClaw Software, Version 1.0, http://numerics.kaust.edu.sa/pyclaw/ (2011)]. PyClaw provides a powerful and intuitive interface to the algorithms of the existing Fortran codes Clawpack and SharpClaw, simplifying code development and use while providing massive parallelism and scalable solvers via the PETSc library. The package is further augmented by use of PyWENO for generation of efficient high-order weighted essentially nonoscillatory reconstruction code. The simplicity, capability, and performance of this approach are demonstrated through application to example problems in shallow water flow, compressible flow, and elasticity.

PyClaw: Accessible, Extensible, Scalable Tools for Wave Propagation Problems

KAUST Repository

Ketcheson, David I.

2012-08-15

Development of scientific software involves tradeoffs between ease of use, generality, and performance. We describe the design of a general hyperbolic PDE solver that can be operated with the convenience of MATLAB yet achieves efficiency near that of hand-coded Fortran and scales to the largest supercomputers. This is achieved by using Python for most of the code while employing automatically wrapped Fortran kernels for computationally intensive routines, and using Python bindings to interface with a parallel computing library and other numerical packages. The software described here is PyClaw, a Python-based structured grid solver for general systems of hyperbolic PDEs [K. T. Mandli et al., PyClaw Software, Version 1.0, http://numerics.kaust.edu.sa/pyclaw/ (2011)]. PyClaw provides a powerful and intuitive interface to the algorithms of the existing Fortran codes Clawpack and SharpClaw, simplifying code development and use while providing massive parallelism and scalable solvers via the PETSc library. The package is further augmented by use of PyWENO for generation of efficient high-order weighted essentially nonoscillatory reconstruction code. The simplicity, capability, and performance of this approach are demonstrated through application to example problems in shallow water flow, compressible flow, and elasticity.

A Python Implementation of an Intermediate-Level Tropical Circulation Model and Implications for How Modeling Science is Done

Science.gov (United States)

Lin, J. W. B.

2015-12-01

Historically, climate models have been developed incrementally and in compiled languages like Fortran. While the use of legacy compiledlanguages results in fast, time-tested code, the resulting model is limited in its modularity and cannot take advantage of functionalityavailable with modern computer languages. Here we describe an effort at using the open-source, object-oriented language Pythonto create more flexible climate models: the package qtcm, a Python implementation of the intermediate-level Neelin-Zeng Quasi-Equilibrium Tropical Circulation model (QTCM1) of the atmosphere. The qtcm package retains the core numerics of QTCM1, written in Fortran, to optimize model performance but uses Python structures and utilities to wrap the QTCM1 Fortran routines and manage model execution. The resulting "mixed language" modeling package allows order and choice of subroutine execution to be altered at run time, and model analysis and visualization to be integrated in interactively with model execution at run time. This flexibility facilitates more complex scientific analysis using less complex code than would be possible using traditional languages alone and provides tools to transform the traditional "formulate hypothesis → write and test code → run model → analyze results" sequence into a feedback loop that can be executed automatically by the computer.

LOADING SIMULATION PROGRAM C

Data.gov (United States)

U.S. Environmental Protection Agency — LSPC is the Loading Simulation Program in C++, a watershed modeling system that includes streamlined Hydrologic Simulation Program Fortran (HSPF) algorithms for...

COLLAGE: a numerical code for radionuclide migration through a fractured geosphere in aqueous and colloidal phases

Energy Technology Data Exchange (ETDEWEB)

Grindrod, P.; Brown, R.C.; Nicholas, D.G. [Intera Information Technologies, Henley-on-Thames, Oxfordshire (United Kingdom)

1992-06-01

Describes the COLLAGE model for radionuclide migration. COLLAGE models a one dimensional breakthrough problem for radionuclides in groundwater containing natural colloids. The program is written in FORTRAN 77.

COLLAGE: a numerical code for radionuclide migration through a fractured geosphere in aqueous and colloidal phases

International Nuclear Information System (INIS)

Grindrod, P.; Brown, R.C.; Nicholas, D.G.

1992-06-01

Describes the COLLAGE model for radionuclide migration. COLLAGE models a one dimensional breakthrough problem for radionuclides in groundwater containing natural colloids. The program is written in FORTRAN 77

Computer program for buckling loads of orthotropic laminated stiffened panels subjected to biaxial in-place loads (BUCLASP 2)

Science.gov (United States)

Viswanathan, A. V.; Tamekuni, M.

1974-01-01

General-purpose program performs exact instability analyses for structures such as unidirectionally-stiffened, rectangular composite panels. Program was written in FORTRAN IV and COMPASS for CDC-series computers.

Chiemeke, SC

African Journals Online (AJOL)

The Information Technologist. ... An empirical comparison of Qbasic, FORTRAN, C, Pascal, C++, Visual Basic and Visual C ... Labour market expectation of Nigerian computer science / Information Communication Technology (ICT) graduates

LOADING SIMULATION PROGRAM C

Science.gov (United States)

LSPC is the Loading Simulation Program in C++, a watershed modeling system that includes streamlined Hydrologic Simulation Program Fortran (HSPF) algorithms for simulating hydrology, sediment, and general water quality

Information Technologist (The) - Vol 3, No 1 (2006)

African Journals Online (AJOL)

The Information Technologist. ... Labour market expectation of Nigerian computer science / Information Communication Technology (ICT) graduates · EMAIL ... An empirical comparison of Qbasic, FORTRAN, C, Pascal, C, Visual Basic and ...

JAVA-Based Implementation of Monterey-Miami Parabolic Equation (MMPE) Model with Enhanced Visualization and Improved Method of Environmental Definition

National Research Council Canada - National Science Library

Ha, Yonghoon

2000-01-01

.... This approach requires the user to have installed both Matlab and Fortran compilers. The MMPE model and associated acoustic processing tools are now rewritten in the object-oriented language Java...

Structured Design Language for Computer Programs

Science.gov (United States)

Pace, Walter H., Jr.

1986-01-01

Box language used at all stages of program development. Developed to provide improved productivity in designing, coding, and maintaining computer programs. BOX system written in FORTRAN 77 for batch execution.

A study of low-cost reliable actuators for light aircraft. Part B: Appendices

Science.gov (United States)

Eijsink, H.; Rice, M.

1978-01-01

Computer programs written in FORTRAN are given for time response calculations on pneumatic and linear hydraulic actuators. The programs are self-explanatory with comment statements. Program output is also included.

Cascade-probabilistic functions for protons and α-particles. Chapter 2

International Nuclear Information System (INIS)

1998-01-01

Cascade-probabilistic function (CPF) for protons and α-particles with taking into account of energy losses is developed. CPF calculation on computer are given. Application package for CPF calculation and selection of theoretical curves are realized on BEhSM-6 and EhS-1045 on Fortran-Dubna and Fortran-4 languages. Calculations for protons and α-particles in Al, Si, Ti, Cu, Mo under E 0 =1-50 MeV are carried out. Calculation results for protons shows that CPF behavior is analogous to case with electrons. Some peculiarities of calculation of CPF are emphasized. Energy losses contribution into CPF and radiation defects concentration are estimated. Radiation defect generation under proton and α-irradiation with use CPF with taking into account energy losses is considered

Modification V to the computer code, STRETCH, for predicting coated-particle behavior

International Nuclear Information System (INIS)

Valentine, K.H.

1975-04-01

Several modifications have been made to the stress analysis code, STRETCH, in an attempt to improve agreement between the calculated and observed behavior of pyrocarbon-coated fuel particles during irradiation in a reactor environment. Specific areas of the code that have been modified are the neutron-induced densification model and the neutron-induced creep calculation. Also, the capability for modeling surface temperature variations has been added. HFIR Target experiments HT-12 through HT-15 have been simulated with the modified code, and the neutron-fluence vs particle-failure predictions compare favorably with the experimental results. Listings of the modified FORTRAN IV main source program and additional FORTRAN IV functions are provided along with instructions for supplying the additional input data. (U.S.)

Fitting of two and three variant polynomials from experimental data through the least squares method. (Using of the codes AJUS-2D, AJUS-3D and LEGENDRE-2D)

International Nuclear Information System (INIS)

Sanchez Miro, J. J.; Sanz Martin, J. C.

1994-01-01

Obtaining polynomial fittings from observational data in two and three dimensions is an interesting and practical task. Such an arduous problem suggests the development of an automatic code. The main novelty we provide lies in the generalization of the classical least squares method in three FORTRAN 77 programs usable in any sampling problem. Furthermore, we introduce the orthogonal 2D-Legendre function in the fitting process. These FORTRAN 77 programs are equipped with the options to calculate the approximation quality standard indicators, obviously generalized to two and three dimensions (correlation nonlinear factor, confidence intervals, cuadratic mean error, and so on). The aim of this paper is to rectify the absence of fitting algorithms for more than one independent variable in mathematical libraries. (Author) 10 refs

Fitting of two and three variate polynomials from experimental data through the least squares method

International Nuclear Information System (INIS)

Sanchez-Miro, J.J.; Sanz-Martin, J.C.

1994-01-01

Obtaining polynomial fittings from observational data in two and three dimensions is an interesting and practical task. Such an arduous problem suggests the development of an automatic code. The main novelty we provide lies in the generalization of the classical least squares method in three FORTRAN 77 programs usable in any sampling problem. Furthermore, we introduce the orthogonal 2D-Legendre function in the fitting process. These FORTRAN 77 programs are equipped with the options to calculate the approximation quality standard indicators, obviously generalized to two and three dimensions (correlation nonlinear factor, confidence intervals, cuadratic mean error, and so on). The aim of this paper is to rectify the absence of fitting algorithms for more than one independent variable in mathematical libraries

Fitting of two and three variant polynomials from experimental data through the least squares method. (Using of the codes AJUS-2D, AJUS-3D and LEGENDRE-2D); Ajuste de polinomios en dos y tres variables independientes por el metodo de minimos cuadrados. (Desarrollo de los codigos AJUS-2D, AJUS-3D y LEGENDRE-2D)

Energy Technology Data Exchange (ETDEWEB)

Sanchez Miro, J J; Sanz Martin, J C

1994-07-01

Obtaining polynomial fittings from observational data in two and three dimensions is an interesting and practical task. Such an arduous problem suggests the development of an automatic code. The main novelty we provide lies in the generalization of the classical least squares method in three FORTRAN 77 programs usable in any sampling problem. Furthermore, we introduce the orthogonal 2D-Legendre function in the fitting process. These FORTRAN 77 programs are equipped with the options to calculate the approximation quality standard indicators, obviously generalized to two and three dimensions (correlation nonlinear factor, confidence intervals, cuadratic mean error, and so on). The aim of this paper is to rectify the absence of fitting algorithms for more than one independent variable in mathematical libraries. (Author) 10 refs.

Crystallographic and general use programs for the XDS Sigma 5 computer

Science.gov (United States)

Snyder, R. L.

1973-01-01

Programs in basic FORTRAN 4 are described, which fall into three catagories: (1) interactive programs to be executed under time sharing (BTM); (2) non interactive programs which are executed in batch processing mode (BPM); and (3) large non interactive programs which require more memory than is available in the normal BPM/BTM operating system and must be run overnight on a special system called XRAY which releases about 45,000 words of memory to the user. Programs in catagories (1) and (2) are stored as FORTRAN source files in the account FSNYDER. Programs in catagory (3) are stored in the XRAY system as load modules. The type of file in account FSNYDER is identified by the first two letters in the name.

Automated mixed traffic transit vehicle microprocessor controller

Science.gov (United States)

Marks, R. A.; Cassell, P.; Johnston, A. R.

1981-01-01

An improved Automated Mixed Traffic Vehicle (AMTV) speed control system employing a microprocessor and transistor chopper motor current controller is described and its performance is presented in terms of velocity versus time curves. The on board computer hardware and software systems are described as is the software development system. All of the programming used in this controller was implemented using FORTRAN. This microprocessor controller made possible a number of safety features and improved the comfort associated with starting and shopping. In addition, most of the vehicle's performance characteristics can be altered by simple program parameter changes. A failure analysis of the microprocessor controller was generated and the results are included. Flow diagrams for the speed control algorithms and complete FORTRAN code listings are also included.

On-line computer system applied in a nuclear chemistry laboratory

International Nuclear Information System (INIS)

Banasik, Z.; Kierzek, J.; Parus, J.; Zoltowski, T.; Zalewski, J.

1980-01-01

A PDP-11/45 based computer system used in a radioanalytical chemical laboratory is described. It is mainly concerned with spectrometry of ionizing radiation and remote measurement of physico-chemical properties. The objectives in mind when constructing the hardware inter-connections and developing the software of the system were to minimize the work of the electronics and computer personnel and to provide maximum flexibility for the users. For the hardware interfacing, 3 categories of equipment are used: - LPS-11 Laboratory Peripheral System - CAMAC system with CA11F-P controller - interfaces from instrument manufacturers. Flexible operation has been achieved by using a 3-level programming structure: - data transfer by assembly language programs - data formatting using bit operations in FORTRAN - data evaluation by procedures written in FORTRAN. (Auth.)

ZLIB++: Object Oriented Numerical Library for Differential Algebra

International Nuclear Information System (INIS)

Yan, Yiton T

2003-01-01

New software engineering tools and object-oriented design have a great impact on the software development process. but in high energy physics all major packages were implemented in FORTRAN and porting of these codes to another language is rather complicated, primarily because of their huge size and heavy use of FORTRAN mathematical libraries. But some intrinsic accelerator concepts, such as nested structure of modern accelerators, look very pretty when implemented with the object-oriented approach. In this paper the authors present the object-oriented version of ZLIB, numerical library for differential algebra, and show how the modern approaches can simplify the development and support of accelerator codes, decrease code size, and allow description of complex mathematical transformations by simple language

GPU Computing in Bayesian Inference of Realized Stochastic Volatility Model

International Nuclear Information System (INIS)

Takaishi, Tetsuya

2015-01-01

The realized stochastic volatility (RSV) model that utilizes the realized volatility as additional information has been proposed to infer volatility of financial time series. We consider the Bayesian inference of the RSV model by the Hybrid Monte Carlo (HMC) algorithm. The HMC algorithm can be parallelized and thus performed on the GPU for speedup. The GPU code is developed with CUDA Fortran. We compare the computational time in performing the HMC algorithm on GPU (GTX 760) and CPU (Intel i7-4770 3.4GHz) and find that the GPU can be up to 17 times faster than the CPU. We also code the program with OpenACC and find that appropriate coding can achieve the similar speedup with CUDA Fortran

A user interface for the Kansas Geological Survey slug test model.

Science.gov (United States)

Esling, Steven P; Keller, John E

2009-01-01

The Kansas Geological Survey (KGS) developed a semianalytical solution for slug tests that incorporates the effects of partial penetration, anisotropy, and the presence of variable conductivity well skins. The solution can simulate either confined or unconfined conditions. The original model, written in FORTRAN, has a text-based interface with rigid input requirements and limited output options. We re-created the main routine for the KGS model as a Visual Basic macro that runs in most versions of Microsoft Excel and built a simple-to-use Excel spreadsheet interface that automatically displays the graphical results of the test. A comparison of the output from the original FORTRAN code to that of the new Excel spreadsheet version for three cases produced identical results.

Modelling and analysis of radial thermal stresses and temperature ...

African Journals Online (AJOL)

user

The temperature field, heat transfer rate and thermal stresses were investigated with numerical simulation models using FORTRAN FE (finite element) software. ...... specific heats, International Communications in Heat and Mass Transfer, Vol.

Model Performance Evaluation and Scenario Analysis (MPESA)

Science.gov (United States)

Model Performance Evaluation and Scenario Analysis (MPESA) assesses the performance with which models predict time series data. The tool was developed Hydrological Simulation Program-Fortran (HSPF) and the Stormwater Management Model (SWMM)

Marshall information retrieval and display system (MIRADS)

Science.gov (United States)

Groover, J. L.; Jones, S. C.; King, W. L.

1974-01-01

Program for data management system allows sophisticated inquiries while utilizing simplified language. Online system is composed of several programs. System is written primarily in COBOL with routines in ASSEMBLER and FORTRAN V.

Computer Program For Linear Algebra

Science.gov (United States)

Krogh, F. T.; Hanson, R. J.

1987-01-01

Collection of routines provided for basic vector operations. Basic Linear Algebra Subprogram (BLAS) library is collection from FORTRAN-callable routines for employing standard techniques to perform basic operations of numerical linear algebra.

Computer program for afterheat temperature distribution for mobile nuclear power plant

Science.gov (United States)

Parker, W. G.; Vanbibber, L. E.

1972-01-01

ESATA computer program was developed to analyze thermal safety aspects of post-impacted mobile nuclear power plants. Program is written in FORTRAN 4 and designed for IBM 7094/7044 direct coupled system.

DOWNER (version 79-1): group collapse cross section and transfer matrices

International Nuclear Information System (INIS)

Cullen, D.E.

1979-01-01

FORTRAN-callable subroutines are provided to allow a user to group-collapse cross sections and/or transfer matrices from any arbitrary initial group structure to any arbitrary final group structure. 3 figures

Cross-language Babel structs—making scientific interfaces more efficient

International Nuclear Information System (INIS)

Prantl, Adrian; Epperly, Thomas G W; Ebner, Dietmar

2013-01-01

Babel is an open-source language interoperability framework tailored to the needs of high-performance scientific computing. As an integral element of the Common Component Architecture, it is employed in a wide range of scientific applications where it is used to connect components written in different programming languages. In this paper we describe how we extended Babel to support interoperable tuple data types (structs). Structs are a common idiom in (mono-lingual) scientific application programming interfaces (APIs); they are an efficient way to pass tuples of nonuniform data between functions, and are supported natively by most programming languages. Using our extended version of Babel, developers of scientific codes can now pass structs as arguments between functions implemented in any of the supported languages. In C, C++, Fortran 2003/2008 and Chapel, structs can be passed without the overhead of data marshaling or copying, providing language interoperability at minimal cost. Other supported languages are Fortran 77, Fortran 90/95, Java and Python. We will show how we designed a struct implementation that is interoperable with all of the supported languages and present benchmark data to compare the performance of all language bindings, highlighting the differences between languages that offer native struct support and an object-oriented interface with getter/setter methods. A case study shows how structs can help simplify the interfaces of scientific codes significantly. (paper)

Recent advances in PC-Linux systems for electronic structure computations by optimized compilers and numerical libraries.

Science.gov (United States)

Yu, Jen-Shiang K; Yu, Chin-Hui

2002-01-01

One of the most frequently used packages for electronic structure research, GAUSSIAN 98, is compiled on Linux systems with various hardware configurations, including AMD Athlon (with the "Thunderbird" core), AthlonMP, and AthlonXP (with the "Palomino" core) systems as well as the Intel Pentium 4 (with the "Willamette" core) machines. The default PGI FORTRAN compiler (pgf77) and the Intel FORTRAN compiler (ifc) are respectively employed with different architectural optimization options to compile GAUSSIAN 98 and test the performance improvement. In addition to the BLAS library included in revision A.11 of this package, the Automatically Tuned Linear Algebra Software (ATLAS) library is linked against the binary executables to improve the performance. Various Hartree-Fock, density-functional theories, and the MP2 calculations are done for benchmarking purposes. It is found that the combination of ifc with ATLAS library gives the best performance for GAUSSIAN 98 on all of these PC-Linux computers, including AMD and Intel CPUs. Even on AMD systems, the Intel FORTRAN compiler invariably produces binaries with better performance than pgf77. The enhancement provided by the ATLAS library is more significant for post-Hartree-Fock calculations. The performance on one single CPU is potentially as good as that on an Alpha 21264A workstation or an SGI supercomputer. The floating-point marks by SpecFP2000 have similar trends to the results of GAUSSIAN 98 package.

Generation of a command language for nuclear signal and image processing on the basis of a general interactive system

International Nuclear Information System (INIS)

Pretschner, D.P.; Pfeiffer, G.; Deutsches Elektronen-Sychnchrotron

1981-01-01

In the field of nuclear medicine, BASIC and FORTRAN are currently being favoured as higher-level programming languages for computer-aided signal processing, and most operating systems of so-called ''freely programmable analyzers'' in nuclear wards have compilers for this purpose. However, FORTRAN is not an interactive language and thus not suited for conversational computing as a man-machine interface. BASIC, on the other hand, although a useful starting language for beginners, is not sufficiently sophisticated for complex nuclear medicine problems involving detailed calculations. Integration of new methods of signal acquisition, processing and presentation into an existing system or generation of new systems is difficult in FORTRAN, BASIC or ASSEMBLER and can only be done by system specialists, not by nuclear physicians. This problem may be solved by suitable interactive systems that are easy to learn, flexible, transparent and user-friendly. An interactive system of this type, XDS, was developed in the course of a project on evaluation of radiological image sequences. An XDS-generated command processing system for signal and image processing in nuclear medicine is described. The system is characterized by interactive program development and execution, problem-relevant data types, a flexible procedure concept and an integrated system implementation language for modern image processing algorithms. The advantages of the interactive system are illustrated by an example of diagnosis by nuclear methods. (orig.) [de

The Cost of being Object-Oriented: A Preliminary Study

Directory of Open Access Journals (Sweden)

Zoran Budimlić

1999-01-01

Full Text Available Since the introduction of the Java programming language, there has been widespread interest in the use Java for the high performance scientific computing. One major impediment to such use is the performance penalty paid relative to Fortran. To support our research on overcoming this penalty through compiler technology, we have developed a benchmark suite, called OwlPack, which is based on the popular LINPACK library. Although there are existing implementations of LINPACK in Java, most of these are produced by direct translation from Fortran. As such they do not reflect the style of programming that a good object‐oriented programmer would use in Java. Our goal is to investigate how to make object‐oriented scientific programming practical. Therefore we developed two object‐oriented versions of LINPACK in Java, a true polymorphic version and a “Lite” version designed for higher performance. We used these libraries to perform a detailed performance analysis using several leading Java compilers and virtual machines, comparing the performance of the object‐oriented versions of the benchmark with a version produced by direct translation from Fortran. Although Java implementations have been made great strides, they still fall short on programs that use the full power of Java’s object‐oriented features. Our ultimate goal is to drive research on compiler technology that will reward, rather than penalize good object‐oriented programming practice.

ARC Code TI: CFD Utility Software Library

Data.gov (United States)

National Aeronautics and Space Administration — The CFD Utility Software Library consists of nearly 30 libraries of Fortran 90 and 77 subroutines and almost 100 applications built on those libraries. Many of the...

Large-Signal Code TESLA: Improvements in the Implementation and in the Model

National Research Council Canada - National Science Library

Chernyavskiy, Igor A; Vlasov, Alexander N; Anderson, Jr., Thomas M; Cooke, Simon J; Levush, Baruch; Nguyen, Khanh T

2006-01-01

We describe the latest improvements made in the large-signal code TESLA, which include transformation of the code to a Fortran-90/95 version with dynamical memory allocation and extension of the model...

A package of Linux scripts for the parallelization of Monte Carlo simulations

Science.gov (United States)

Badal, Andreu; Sempau, Josep

2006-09-01

sequential code. Program summary 1Title of program:clonEasy Catalogue identifier:ADYD_v1_0 Program summary URL:http://cpc.cs.qub.ac.uk/summaries/ADYD_v1_0 Program obtainable from:CPC Program Library, Queen's University of Belfast, Northern Ireland Computer for which the program is designed and others in which it is operable:Any computer with a Unix style shell (bash), support for the Secure Shell protocol and a FORTRAN compiler Operating systems under which the program has been tested:Linux (RedHat 8.0, SuSe 8.1, Debian Woody 3.1) Compilers:GNU FORTRAN g77 (Linux); g95 (Linux); Intel Fortran Compiler 7.1 (Linux) Programming language used:Linux shell (bash) script, FORTRAN 77 No. of bits in a word:32 No. of lines in distributed program, including test data, etc.:1916 No. of bytes in distributed program, including test data, etc.:18 202 Distribution format:tar.gz Nature of the physical problem:There are many situations where a Monte Carlo simulation involves a huge amount of CPU time. The parallelization of such calculations is a simple way of obtaining a relatively low statistical uncertainty using a reasonable amount of time. Method of solution:The presented collection of Linux scripts and auxiliary FORTRAN programs implement Secure Shell-based communication between a "master" computer and a set of "clones". The aim of this communication is to execute a code that performs a Monte Carlo simulation on all the clones simultaneously. The code is unique, but each clone is fed with a different set of random seeds. Hence, clonEasy effectively permits the parallelization of the calculation. Restrictions on the complexity of the program:clonEasy can only be used with programs that produce statistically independent results using the same code, but with a different sequence of random numbers. Users must choose the initialization values for the random number generator on each computer and combine the output from the different executions. A FORTRAN program to combine the final results is

On the Automatic Parallelization of Sparse and Irregular Fortran Programs

Directory of Open Access Journals (Sweden)

Yuan Lin

1999-01-01

Full Text Available Automatic parallelization is usually believed to be less effective at exploiting implicit parallelism in sparse/irregular programs than in their dense/regular counterparts. However, not much is really known because there have been few research reports on this topic. In this work, we have studied the possibility of using an automatic parallelizing compiler to detect the parallelism in sparse/irregular programs. The study with a collection of sparse/irregular programs led us to some common loop patterns. Based on these patterns new techniques were derived that produced good speedups when manually applied to our benchmark codes. More importantly, these parallelization methods can be implemented in a parallelizing compiler and can be applied automatically.

Automatic Migration from PARMACS to MPI in Parallel Fortran Applications

Directory of Open Access Journals (Sweden)

Rolf Hempel

1999-01-01

Full Text Available The PARMACS message passing interface has been in widespread use by application projects, especially in Europe. With the new MPI standard for message passing, many projects face the problem of replacing PARMACS with MPI. An automatic translation tool has been developed which replaces all PARMACS 6.0 calls in an application program with their corresponding MPI calls. In this paper we describe the mapping of the PARMACS programming model onto MPI. We then present some implementation details of the converter tool.

Red's natural editor, a program designed to edit FORTRAN programs

International Nuclear Information System (INIS)

Cullen, D.E.

1993-01-01

An EDITOR code is documented which supplements the 1994 ENDF Pre-processing Code Package which is available from the IAEA Nuclear Data Section for the processing of ENDF formatted nuclear data libraries. (author)

Development of the FIFI digital simulation language and an up-to-date users guide

International Nuclear Information System (INIS)

Hopkinson, A.

1976-03-01

The report describes some recent improvements to the FIFI digital simulation language following its conversion to FORTRAN IV for use on ICL 4-70 computers and including a stand alone guide for users. (author)

A Computer-Assisted Laboratory Sequence for Petroleum Geology.

Science.gov (United States)

Lumsden, David N.

1979-01-01

Describes a competitive oil-play game for petroleum geology students. It is accompanied by a computer program written in interactive Fortran. The program, however, is not essential, but useful for adding more interest. (SA)

A comparison of data management systems used in high energy physics

International Nuclear Information System (INIS)

Hansl-Kozanecka, T.

1992-04-01

Data-management systems for defining data and manipulating them with FORTRAN programs have become increasingly important. We compare three systems that were developed within the high-energy physics community: BOS, JAZELLE and ZEBRA. (orig.)

Open-Source Development of the Petascale Reactive Flow and Transport Code PFLOTRAN

Science.gov (United States)

Hammond, G. E.; Andre, B.; Bisht, G.; Johnson, T.; Karra, S.; Lichtner, P. C.; Mills, R. T.

2013-12-01

Open-source software development has become increasingly popular in recent years. Open-source encourages collaborative and transparent software development and promotes unlimited free redistribution of source code to the public. Open-source development is good for science as it reveals implementation details that are critical to scientific reproducibility, but generally excluded from journal publications. In addition, research funds that would have been spent on licensing fees can be redirected to code development that benefits more scientists. In 2006, the developers of PFLOTRAN open-sourced their code under the U.S. Department of Energy SciDAC-II program. Since that time, the code has gained popularity among code developers and users from around the world seeking to employ PFLOTRAN to simulate thermal, hydraulic, mechanical and biogeochemical processes in the Earth's surface/subsurface environment. PFLOTRAN is a massively-parallel subsurface reactive multiphase flow and transport simulator designed from the ground up to run efficiently on computing platforms ranging from the laptop to leadership-class supercomputers, all from a single code base. The code employs domain decomposition for parallelism and is founded upon the well-established and open-source parallel PETSc and HDF5 frameworks. PFLOTRAN leverages modern Fortran (i.e. Fortran 2003-2008) in its extensible object-oriented design. The use of this progressive, yet domain-friendly programming language has greatly facilitated collaboration in the code's software development. Over the past year, PFLOTRAN's top-level data structures were refactored as Fortran classes (i.e. extendible derived types) to improve the flexibility of the code, ease the addition of new process models, and enable coupling to external simulators. For instance, PFLOTRAN has been coupled to the parallel electrical resistivity tomography code E4D to enable hydrogeophysical inversion while the same code base can be used as a third

LRSYS, PASCAL LR(1) Parser Generator System

International Nuclear Information System (INIS)

O'Hair, K.

1991-01-01

Description of program or function: LRSYS is a complete LR(1) parser generator system written entirely in a portable subset of Pascal. The system, LRSYS, includes a grammar analyzer program (LR) which reads a context-free (BNF) grammar as input and produces LR(1) parsing tables as output, a lexical analyzer generator (LEX) which reads regular expressions created by the REG process as input and produces lexical tables as output, and various parser skeletons that get merged with the tables to produce complete parsers (SMAKE). Current parser skeletons include Pascal, FORTRAN 77, and C. In addition, the CRAY1, DEC VAX11 version contains LRLTRAN and CFT- FORTRAN 77 skeletons. Other language skeletons can easily be added to the system. LRSYS is based on the LR program (NESC Abstract 822)

Use of the ADAMO data management system within ALEPH

International Nuclear Information System (INIS)

Qian, Z.; Tang, S.; Zhao, W.; Brazioli, R.; Putzer, A.; Fantechi, R.

1987-01-01

ADAMO is a data management system for defining data and manipulating them from FORTRAN programs. A form of the Entity-Relationship (ER) model and the data flow diagrams of structured analysis have been combined to provide a system suited to algorithmic work. The FORTRAN interface consists of calls to a subroutine package with a few data manipulation primitives. Data items are visible in variables carrying meaningful names; the code is compact and readable. The ER data structures, mapped onto tables, are compatible with a relational data base management system. Tools have been written to copy tables to and from a relational data base. The system has been used for several applications in the fields of event simulations and reconstruction, online systems, detector description, support tools and packages. (orig.)

The application package DeCA for calculating cyclic accelerators

International Nuclear Information System (INIS)

Gladkikh, P.I.; Zelinsky, A.Yu.; Strelkov, M.A.

1993-01-01

The application Package DeCA (Design Cyclic Accelerator) is offered to solve a set of problem which arise on designing electron storage rings. The package is based on the block principle. This makes it extremely flexible in designing storage rings and investigating beam dynamics in them. The package is intended for a user not familiar with programming languages, it is arranged so that the user familiar with FORTRAN-77 can easily extend the package functions. This is of particular interest, when the input data are the storage ring or electron bunch parameters. The code allows operation in both the batch and interactive modes. The programming language is FORTRAN-77. The capacity of the total package is 40,000 code lines. The necessary main storage capacity for the total version is 4 Mbytes

A CAMAC system for nuclear spectroscopy

International Nuclear Information System (INIS)

EL Araby, S.M.S.

1983-01-01

The thesis describes a computer based multichannel pulse height analyzer for acquiring, processing and displaying random signals coming from a nuclear detector for on - line γ- ray spectroscopy. The system is built around a Pdp - 11/ 04 Computer. Interfacing to the computer is carried out by CAMAC modules. The necessary hard- were required to interface the nuclear detector system to the computer- CAMAC system is developed together with the associated circuits needed to measure the dead time of the whole system. The software has been written Macro,FORTRAN and CATY languages. emphasis was placed on execution speed and it was found that accumulating a large number of data for later processing could improve the execution speed considerably thereby minimizing dead time fast FORTRAN - CAMAC callable subroutine have been developed and used in the software

LAURA Users Manual: 5.2-43231

Science.gov (United States)

Mazaheri, Alireza; Gnoffo, Peter A.; Johnston, Christopher O.; Kleb, Bil

2009-01-01

This users manual provides in-depth information concerning installation and execution of LAURA, version 5. LAURA is a structured, multi-block, computational aerothermodynamic simulation code. Version 5 represents a major refactoring of the original Fortran 77 LAURA code toward a modular structure afforded by Fortran 95. The refactoring improved usability and maintainability by eliminating the requirement for problem-dependent re-compilations, providing more intuitive distribution of functionality, and simplifying interfaces required for multiphysics coupling. As a result, LAURA now shares gas-physics modules, MPI modules, and other low-level modules with the FUN3D unstructured-grid code. In addition to internal refactoring, several new features and capabilities have been added, e.g., a GNU-standard installation process, parallel load balancing, automatic trajectory point sequencing, free-energy minimization, and coupled ablation and flowfield radiation.

Laura Users Manual: 5.1-41601

Science.gov (United States)

Mazaheri, Alireza; Gnoffo, Peter A.; Johnston, Christopher O.; Kleb, Bil

2009-01-01

This users manual provides in-depth information concerning installation and execution of LAURA, version 5. LAURA is a structured, multi-block, computational aerothermodynamic simulation code. Version 5 represents a major refactoring of the original Fortran 77 LAURA code toward a modular structure afforded by Fortran 95. The refactoring improved usability and maintainability by eliminating the requirement for problem-dependent re-compilations, providing more intuitive distribution of functionality, and simplifying interfaces required for multiphysics coupling. As a result, LAURA now shares gas-physics modules, MPI modules, and other low-level modules with the FUN3D unstructured-grid code. In addition to internal refactoring, several new features and capabilities have been added, e.g., a GNU-standard installation process, parallel load balancing, automatic trajectory point sequencing, free-energy minimization, and coupled ablation and flowfield radiation.

LAURA Users Manual: 5.3-48528

Science.gov (United States)

Mazaheri, Alireza; Gnoffo, Peter A.; Johnston, Chirstopher O.; Kleb, Bil

2010-01-01

This users manual provides in-depth information concerning installation and execution of LAURA, version 5. LAURA is a structured, multi-block, computational aerothermodynamic simulation code. Version 5 represents a major refactoring of the original Fortran 77 LAURA code toward a modular structure afforded by Fortran 95. The refactoring improved usability and maintainability by eliminating the requirement for problem-dependent re-compilations, providing more intuitive distribution of functionality, and simplifying interfaces required for multi-physics coupling. As a result, LAURA now shares gas-physics modules, MPI modules, and other low-level modules with the FUN3D unstructured-grid code. In addition to internal refactoring, several new features and capabilities have been added, e.g., a GNU-standard installation process, parallel load balancing, automatic trajectory point sequencing, free-energy minimization, and coupled ablation and flowfield radiation.

LAURA Users Manual: 5.5-64987

Science.gov (United States)

Mazaheri, Alireza; Gnoffo, Peter A.; Johnston, Christopher O.; Kleb, William L.

2013-01-01

This users manual provides in-depth information concerning installation and execution of LAURA, version 5. LAURA is a structured, multi-block, computational aerothermodynamic simulation code. Version 5 represents a major refactoring of the original Fortran 77 LAURA code toward a modular structure afforded by Fortran 95. The refactoring improved usability and maintain ability by eliminating the requirement for problem dependent recompilations, providing more intuitive distribution of functionality, and simplifying interfaces required for multi-physics coupling. As a result, LAURA now shares gas-physics modules, MPI modules, and other low-level modules with the Fun3D unstructured-grid code. In addition to internal refactoring, several new features and capabilities have been added, e.g., a GNU standard installation process, parallel load balancing, automatic trajectory point sequencing, free-energy minimization, and coupled ablation and flowfield radiation.

LAURA Users Manual: 5.4-54166

Science.gov (United States)

Mazaheri, Alireza; Gnoffo, Peter A.; Johnston, Christopher O.; Kleb, Bil

2011-01-01

This users manual provides in-depth information concerning installation and execution of Laura, version 5. Laura is a structured, multi-block, computational aerothermodynamic simulation code. Version 5 represents a major refactoring of the original Fortran 77 Laura code toward a modular structure afforded by Fortran 95. The refactoring improved usability and maintainability by eliminating the requirement for problem dependent re-compilations, providing more intuitive distribution of functionality, and simplifying interfaces required for multi-physics coupling. As a result, Laura now shares gas-physics modules, MPI modules, and other low-level modules with the Fun3D unstructured-grid code. In addition to internal refactoring, several new features and capabilities have been added, e.g., a GNU-standard installation process, parallel load balancing, automatic trajectory point sequencing, free-energy minimization, and coupled ablation and flowfield radiation.

Peregrine Software Toolchains | High-Performance Computing | NREL

Science.gov (United States)

Group (PGI) C/C++ and Fortran (partially supported) The PGI Accelerator compilers include NVIDIA GPU support via the directive-based OpenACC 2.5 programming model, as well as full support for NVIDIA CUDA C

Fulltext PDF

Indian Academy of Sciences (India)

2Department of Metallurgical and Materials Engineering, Indian Institute of ... an analysis of the dynamics of dilute suspensions of periodically forced prolate ..... We developed software using Numerical Recipes in FORTRAN 77 (Press et al ...

ORBITALES. A program for the calculation of wave functions with an analytical central potential

International Nuclear Information System (INIS)

Yunta Carretero; Rodriguez Mayquez, E.

1974-01-01

In this paper is described the objective, basis, carrying out in FORTRAN language and use of the program ORBITALES. This program calculate atomic wave function in the case of ths analytical central potential (Author) 8 refs

Multi-pressure boiler thermodynamics analysis code

International Nuclear Information System (INIS)

Lorenzoni, G.

1992-01-01

A new method and the relative FORTRAN program for the thermodynamics design analysis of a multipressure boiler are reported. This method permits the thermodynamics design optimization with regard to total exergy production and a preliminary costs

Theoretical science and the future of large scale computing

International Nuclear Information System (INIS)

Wilson, K.G.

1983-01-01

The author describes the application of computer simulation to physical problems. In this connection the FORTRAN language is considered. Furthermore the application of computer networks is described whereby the processing of experimental data is considered. (HSI).

ORBITALES. A program for the calculation of wave functions with an analytical central potential; ORBITALES. Programa de calculo de Funciones de Onda para una Potencial Central Analitico

Energy Technology Data Exchange (ETDEWEB)

Carretero, Yunta; Rodriguez Mayquez, E

1974-07-01

In this paper is described the objective, basis, carrying out in FORTRAN language and use of the program ORBITALES. This program calculate atomic wave function in the case of ths analytical central potential (Author) 8 refs.

BUILDING MODEL ANALYSIS APPLICATIONS WITH THE JOINT UNIVERSAL PARAMETER IDENTIFICATION AND EVALUATION OF RELIABILITY (JUPITER) API

Science.gov (United States)

The open-source, public domain JUPITER (Joint Universal Parameter IdenTification and Evaluation of Reliability) API (Application Programming Interface) provides conventions and Fortran-90 modules to develop applications (computer programs) for analyzing process models. The input ...

A random number generator for continuous random variables

Science.gov (United States)

Guerra, V. M.; Tapia, R. A.; Thompson, J. R.

1972-01-01

A FORTRAN 4 routine is given which may be used to generate random observations of a continuous real valued random variable. Normal distribution of F(x), X, E(akimas), and E(linear) is presented in tabular form.

77 FR 11394 - Transportation Conformity Rule: MOVES Regional Grace Period Extension

Science.gov (United States)

2012-02-27

... written in FORTRAN and used simple text files for data input and output, MOVES is written in JAVA and uses a relational database structure in MYSQL to handle input and output as data tables.\\13\\ \\13\\ Some...

Simulation calculations for a catalytic exchange/cryogenic distillation hydrogen isotope separation process

International Nuclear Information System (INIS)

Rodman, M.; Howard, D.W.

1984-01-01

Some of the aspects of the optimization and simulation calculations for the Moderator Detritiation Plant thay may be applicable to other processes are described. The FORTRAN optimization program and the CPES and PROCESS distillation calculation are covered

Fulltext PDF

Indian Academy of Sciences (India)

Operations on arrays may be performed without using explicit. DO loops ... Use of IMPLICIT NONE statement forces all variables to be declared thereby providing better security to ... There are several new intrinsic functions in Fortran 90 which.

Non-uniform Solar Temperature Field on Large Aperture, Fully ...

Indian Academy of Sciences (India)

states for the telescope structure during its operation process, and the .... 4.1 Finite element model (FEM) in solar thermal analysis. Figure 4 ... ysis established in ANSYS, MATLAB and FORTRAN; it was built with specific ... Simulation element.

Flexible climate modeling systems: Lessons from Snowball Earth, Titan and Mars

Science.gov (United States)

Pierrehumbert, R. T.

2007-12-01

Climate models are only useful to the extent that real understanding can be extracted from them. Most leading- edge problems in climate change, paleoclimate and planetary climate require a high degree of flexibility in terms of incorporating model physics -- for example in allowing methane or CO2 to be a condensible substance instead of water vapor. This puts a premium on model design that allows easy modification, and on physical parameterizations that are close to fundamentals with as little empirical ad-hoc formulation as possible. I will provide examples from two approaches to this problem we have been using at the University of Chicago. The first is the FOAM general circulation model, which is a clean single-executable Fortran-77/c code supported by auxiliary applications in Python and Java. The second is a new approach based on using Python as a shell for assembling building blocks in compiled-code into full models. Applications to Snowball Earth, Titan and Mars, as well as pedagogical uses, will be discussed. One painful lesson we have learned is that Fortran-95 is a major impediment to portability and cross-language interoperability; in this light the trend toward Fortran-95 in major modelling groups is seen as a significant step backwards. In this talk, I will focus on modeling projects employing a full representation of atmospheric fluid dynamics, rather than "intermediate complexity" models in which the associated transports are parameterized.

76 FR 63554 - Transportation Conformity Rule: MOVES Regional Grace Period Extension

Science.gov (United States)

2011-10-13

... written in FORTRAN and used simple text files for data input and output, MOVES2010a is written in JAVA and uses a relational database structure in MYSQL to handle input and output as data tables. These changes...

76 FR 63575 - Transportation Conformity Rule: MOVES Regional Grace Period Extension

Science.gov (United States)

2011-10-13

... written in FORTRAN and used simple text files for data input and output, MOVES2010a is written in JAVA and uses a relational database structure in MYSQL to handle input and output as data tables. These changes...

FEMME, a flexible environment for mathematically modelling the environment

NARCIS (Netherlands)

Soetaert, K.E.R.; DeClippele, V.; Herman, P.M.J.

2002-01-01

A new, FORTRAN-based, simulation environment called FEMME (Flexible Environment for Mathematically Modelling the Environment), designed for implementing, solving and analysing mathematical models in ecology is presented. Three separate phases in ecological modelling are distinguished: (1) the model

Toepassing van finite difference- en finite element methoden voor het oplossen van een aantal stationaire grondwaterstromingsproblemen

NARCIS (Netherlands)

Wesseling, J.G.

1977-01-01

In dit verslag worden de oplossingsmethoden met de bijbehorende zelfontwikkelde FORTRAN computerprogramma's van de volgende stationaire grondwaterstromingsgevallen gegeven: - Analyse van de grondwaterstroming in een horizontaal vlak over een gedeelte van de Astense Aa, waar van plaats tot plaats

Pascal for Ingeniører

DEFF Research Database (Denmark)

Hellesen, Bjarne; Johansen, Gunnar

1998-01-01

Applications, software and hardware. Introduction to Pascal. Selection. Loop. Subprograms I. Arrays. Realtime programming. Records. Binary files. Text files. Pointers. Pretty program. Big program. The Turbo Pascal system. A FORTRAN program. Methods in programming. A BASIC program. Conversion...

Code Betal to calculation Alpha/Beta activities in environmental samples; Programa de ordenador Betal para el calculo de la actividad Beta/Alfa de muestras ambientales

Energy Technology Data Exchange (ETDEWEB)

Romero, L.; Travesi, A.

1983-07-01

A codes, BETAL, was developed, written in FORTRAN IV, to automatize calculations and presentations of the result of the total alpha-beta activities measurements in environmental samples. This code performs the necessary calculations for transformation the activities measured in total counts, to pCi/1., bearing in mind the efficiency of the detector used and the other necessary parameters. Further more, it appraise the standard deviation of the result, and calculus the Lower limit of detection for each measurement. This code is written in iterative way by screen-operator dialogue, and asking the necessary data to perform the calculation of the activity in each case by a screen label. The code could be executed through any screen and keyboard terminal, (whose computer accepts Fortran IV) with a printer connected to the said computer. (Author) 5 refs.

Two BASIC computer programs for the determination of in situ stresses using the CSIRO hollow inclusion stress cell and the USBM borehole deformation gage

Science.gov (United States)

Smith, W.K.

1982-01-01

The mathematical method of determining in-situ stresses by overcoring, using either the U.S. Bureau of Mines Borehole Deformation Gage or the Commonwealth Scientific and Industrial Research Organisation Hollow Inclusion Stress Cell, is summarized, and data reduction programs for each type of instrument, written in BASIC, are presented. The BASIC programs offer several advantages over previously available FORTRAN programs. They can be executed on a desk-top microcomputer at or near the field site, allowing the investigator to assess the quality of the data and make decisions on the need for additional testing while the crew is still in the field. Also, data input is much simpler than with currently available FORTRAN programs; either English or SI units can be used; and standard deviations of the principal stresses are computed as well as those of the geographic components.

General productivity code: productivity optimization of gaseous diffusion cascades. The programmer's guide

International Nuclear Information System (INIS)

Tunstall, J.N.

1975-05-01

The General Productivity Code is a FORTRAN IV computer program for the IBM System 360. With its model of the productivity of gaseous diffusion cascades, the program is used to determine optimum cascade performance based on specified operating conditions and to aid in the calculation of optimum operating conditions for a complex of diffusion cascades. This documentation of the program is directed primarily to programmers who will be responsible for updating the code as requested by the users. It is also intended to be an aid in training new Productivity Code users and to serve as a general reference manual. Elements of the mathematical model, the input data requirements, the definitions of the various tasks (Instructions) that can be performed, and a detailed description of most FORTRAN variables and program subroutines are presented. A sample problem is also included. (auth)

Four-fluid description of turbulent plasma focus dynamics

International Nuclear Information System (INIS)

Hayd, A.; Maurer, M.; Meinke, P.; Kaeppeler, H.J.

1984-06-01

The dynamic phenomena in the compression, pinch and late phases of the plasma focus experiment POSEIDON in its operational mode at 60 kV, 280 kJ, were previously calculated from a two-fluid theory using the new hybrid code REDUCE/FORTRAN. Two important results were found: the neutron production already in the pinch phase for currents larger than 500 kA and filamentary structures on and around the pinch axis. In a continuation of this work, a four-fluid system of dynamical equations was formulated and programmed with the REDUCE/FORTRAN code. Besides macro-turbulence, the new four-fluid theory includes micro-instabilities and anomalous transport properties, as well as the runaway effect for electrons and ions. First results from calculations with this new theory are presented and are compared with previous calculations and with recent experimental observations. (orig.)

COSINE software development based on code generation technology

International Nuclear Information System (INIS)

Ren Hao; Mo Wentao; Liu Shuo; Zhao Guang

2013-01-01

The code generation technology can significantly improve the quality and productivity of software development and reduce software development risk. At present, the code generator is usually based on UML model-driven technology, which can not satisfy the development demand of nuclear power calculation software. The feature of scientific computing program was analyzed and the FORTRAN code generator (FCG) based on C# was developed in this paper. FCG can generate module variable definition FORTRAN code automatically according to input metadata. FCG also can generate memory allocation interface for dynamic variables as well as data access interface. FCG was applied to the core and system integrated engine for design and analysis (COSINE) software development. The result shows that FCG can greatly improve the development efficiency of nuclear power calculation software, and reduce the defect rate of software development. (authors)

Code Betal to calculation Alpha/Beta activities in environmental samples

International Nuclear Information System (INIS)

Romero, L.; Travesi, A.

1983-01-01

A codes, BETAL, was developed, written in FORTRAN IV, to automatize calculations and presentations of the result of the total alpha-beta activities measurements in environmental samples. This code performs the necessary calculations for transformation the activities measured in total counts, to pCi/1., bearing in mind the efficiency of the detector used and the other necessary parameters. Further more, it appraise the standard deviation of the result, and calculus the Lower limit of detection for each measurement. This code is written in iterative way by screen-operator dialogue, and asking the necessary data to perform the calculation of the activity in each case by a screen label. The code could be executed through any screen and keyboard terminal, (whose computer accepts Fortran IV) with a printer connected to the said computer. (Author) 5 refs

TMAP4 User`s Manual

Energy Technology Data Exchange (ETDEWEB)

Longhurst, G.R.; Holland, D.F.; Jones, J.L.; Merrill, B.J.

1992-06-12

The Tritium Migration Analysis Program, Version 4 (TMAP4) has been developed by the Fusion Safety Program at the Idaho National Engineering Laboratory (INEL) as a safety analysis code, mainly to analyze tritium retention and loss in fusion reactor structures and systems during normal operation and accident conditions. TMAP4 incorporates one-dimensional thermal- and mass-diffusive transport and trapping calculations through structures and zero dimensional fluid transport between enclosures and across the interface between enclosures and structures. A key feature is the ability to input problem definition parameters as constants, interpolation tables, or FORTRAN equations. The code is specifically intended for use under a DOS operating system on PC-type mini-computers, but it has also been run successfully on workstations and mainframe computer systems. Use of the equation-input feature requires access to a FORTRAN-77 compiler and a linker program.

TMAP4 User's Manual

Energy Technology Data Exchange (ETDEWEB)

Longhurst, G.R.; Holland, D.F.; Jones, J.L.; Merrill, B.J.

1992-06-12

The Tritium Migration Analysis Program, Version 4 (TMAP4) has been developed by the Fusion Safety Program at the Idaho National Engineering Laboratory (INEL) as a safety analysis code, mainly to analyze tritium retention and loss in fusion reactor structures and systems during normal operation and accident conditions. TMAP4 incorporates one-dimensional thermal- and mass-diffusive transport and trapping calculations through structures and zero dimensional fluid transport between enclosures and across the interface between enclosures and structures. A key feature is the ability to input problem definition parameters as constants, interpolation tables, or FORTRAN equations. The code is specifically intended for use under a DOS operating system on PC-type mini-computers, but it has also been run successfully on workstations and mainframe computer systems. Use of the equation-input feature requires access to a FORTRAN-77 compiler and a linker program.

Simulation model for man-machine systems in nuclear power plants. Vol. 4

Energy Technology Data Exchange (ETDEWEB)

Falk, A

1981-01-01

At first, volume 4 was to describe the EDP-bound simulation model in the final programme version. This problem was tackled as a development project, however, it could not be solved because of the difficult time schedule and the commissioning of the new computing centre at the Fachhochschule Flensburg. The assignment described in volume 3, chapter 2, already contains the optimization stages planned for 1981 but still uses a special programming language 'Prozess-FORTRAN' for older digital computers. That is why the development of a new version of the programming system in Standard-FORTRAN should be postponed. It should also include a more comprehensive practical data bank for nuclear power plants. The present short report as well as the following more comprehensive final report lay more emphasis on the presentation of a functional range of application of the simulation model.

Calculation of inelastic mean free path and stopping power for electrons in solids from an optical-data model

International Nuclear Information System (INIS)

Fernandez-Varea, J.M.; Mayol, R.; Salvat, F.; Liljequist, D.

1992-11-01

The numerical calculation of electron inelastic mean free path and stopping power from an optical-data model recently proposed by Fernandez-Varea et al. is described in detail. Explicit expressions for the one-electron total cross sections of the two-modes model of the free-electron gas and the δ-oscillator are derived. The inelastic mean free path and the stopping power are obtained as integrals of these one-electron total cross sections weighted by the optical as integrals of these one-electron total cross sections weighted by the optical oscillator strength. The integrals can be easily evaluated, with a selected accuracy, by using the FORTRAN 77 subroutine GABQ described here, which implements a 20-points Gauss adaptive bipartition quadrature method. Source listings of FORTRAN 77 subroutines to compute the one-electron total cross sections are also given

VACTIV-DELPHI graphical dialog based program for the analysis of gamma-ray spectra

International Nuclear Information System (INIS)

Zlokazov, V.B.

2002-01-01

The program VACTIV - Visual ACTIV - has been developed for the analysis of gamma-ray spectra and is a standard graphical dialog based Windows XX application, driven by a menu, mouse and keyboard. On the one hand, it is a conversion of an existing Fortran program ACTIV to the DELPHI-5 language; on the other hand, it is a transformation of the sequential syntax of Fortran programming to a new object-oriented style, based on the organization of event interaction. Since VACTIV is seemingly the first attempt of applying the newest programming languages and styles to systems of spectrum analysis, the goal of its creation was both getting a convenient and efficient technique for data processing, their methods and events. Now the program is widely used for the processing of gamma-ray spectra in experiments on activation analysis

pFUnit 3.0 Tutorial Advanced

Science.gov (United States)

Clune, Tom

2014-01-01

This tutorial will introduce Fortran developers to unit-testing and test-driven development (TDD) using pFUnit. As with other unit-testing frameworks, pFUnit, simplifies the process of writing, collecting, and executing tests while providing clear diagnostic messages for failing tests. pFUnit specifically targets the development of scientific-technical software written in Fortran and includes customized features such as: assertions for multi-dimensional arrays, distributed (MPI) and thread-based (OpenMP) parallellism, and flexible parameterized tests.These sessions will include numerous examples and hands-on exercises that gradually build in complexity. Attendees are expected to have working knowledge of F90, but familiarity with object-oriented syntax in F2003 and MPI will be of benefit for the more advanced examples. By the end of the tutorial the audience should feel comfortable in applying pFUnit within their own development environment.

User's Manual for FEMOM3DS. Version 1.0

Science.gov (United States)

Reddy, C.J.; Deshpande, M. D.

1997-01-01

FEMOM3DS is a computer code written in FORTRAN 77 to compute electromagnetic(EM) scattering characteristics of a three dimensional object with complex materials using combined Finite Element Method (FEM)/Method of Moments (MoM) technique. This code uses the tetrahedral elements, with vector edge basis functions for FEM in the volume of the cavity and the triangular elements with the basis functions similar to that described for MoM at the outer boundary. By virtue of FEM, this code can handle any arbitrarily shaped three-dimensional cavities filled with inhomogeneous lossy materials. The User's Manual is written to make the user acquainted with the operation of the code. The user is assumed to be familiar with the FORTRAN 77 language and the operating environment of the computers on which the code is intended to run.

User manual for Blossom statistical package for R

Science.gov (United States)

Talbert, Marian; Cade, Brian S.

2005-01-01

Blossom is an R package with functions for making statistical comparisons with distance-function based permutation tests developed by P.W. Mielke, Jr. and colleagues at Colorado State University (Mielke and Berry, 2001) and for testing parameters estimated in linear models with permutation procedures developed by B. S. Cade and colleagues at the Fort Collins Science Center, U.S. Geological Survey. This manual is intended to provide identical documentation of the statistical methods and interpretations as the manual by Cade and Richards (2005) does for the original Fortran program, but with changes made with respect to command inputs and outputs to reflect the new implementation as a package for R (R Development Core Team, 2012). This implementation in R has allowed for numerous improvements not supported by the Cade and Richards (2005) Fortran implementation, including use of categorical predictor variables in most routines.

A Walsh Function Module Users' Manual

Science.gov (United States)

Gnoffo, Peter A.

2014-01-01

The solution of partial differential equations (PDEs) with Walsh functions offers new opportunities to simulate many challenging problems in mathematical physics. The approach was developed to better simulate hypersonic flows with shocks on unstructured grids. It is unique in that integrals and derivatives are computed using simple matrix multiplication of series representations of functions without the need for divided differences. The product of any two Walsh functions is another Walsh function - a feature that radically changes an algorithm for solving PDEs. A FORTRAN module for supporting Walsh function simulations is documented. A FORTRAN code is also documented with options for solving time-dependent problems: an advection equation, a Burgers equation, and a Riemann problem. The sample problems demonstrate the usage of the Walsh function module including such features as operator overloading, Fast Walsh Transforms in multi-dimensions, and a Fast Walsh reciprocal.

NUCCON

International Nuclear Information System (INIS)

Gruber, J.; Lehmann, B.; Schneider, J.

1979-09-01

A FORTRAN program for the calculation of the time dependent nuclide concentrations, the activity, the gamma-ray dose rate and the biological hazard potential of fusion reactor materials due to neutron irradiation. (orig.) 891 HP/orig. 892 AMO [de

NLOM - a program for nonlocal optical model calculations

International Nuclear Information System (INIS)

Kim, B.T.; Kyum, M.C.; Hong, S.W.; Park, M.H.; Udagawa, T.

1992-01-01

A FORTRAN program NLOM for nonlocal optical model calculations is described. It is based on a method recently developed by Kim and Udagawa, which utilizes the Lanczos technique for solving integral equations derived from the nonlocal Schroedinger equation. (orig.)

TableSim--A program for analysis of small-sample categorical data.

Science.gov (United States)

David J. Rugg

2003-01-01

Documents a computer program for calculating correct P-values of 1-way and 2-way tables when sample sizes are small. The program is written in Fortran 90; the executable code runs in 32-bit Microsoft-- command line environments.

Description and manual for the use of DRIVER - an interactive modelling aid

CSIR Research Space (South Africa)

Furniss, PR

1977-09-01

Full Text Available The modelling aid DRIVER is described. It permits the interactive manipulation of the parameters and variables of difference models which are implemented as FORTRAN subroutines. Relationships in the model can be expressed as arbitrary functions. A...

Determination of wave direction using an orbital following buoy

Digital Repository Service at National Institute of Oceanography (India)

Fernandes, A.A.; Almeida, A.M.; Vaithiyanathan, R.; Vethamony, P.

Software has been developed in FORTRAN language using a personal computer for the determination of wave direction from time series measurements of heave, pitch and roll of an orbital following buoy. The method of digital band pass filtering describ...

European Scientific Notes. Volume 38, Number 5.

Science.gov (United States)

1984-05-01

clinical implications of certain pharma - system to assist molecular biologists is cogenetic diseases, different in approach from similar Department of...grade, theoretical subsequent problems if needed. computing problems are solved. All Graduates of School 444 tutored students learn FORTRAN; other

A rigid-body least-squares program with angular and translation scan facilities

CERN Document Server

Kutschabsky, L

1981-01-01

The described computer program, written in CERN Fortran, is designed to enlarge the convergence radius of the rigid-body least-squares method by allowing a stepwise change of the angular and/or translational parameters within a chosen range. (6 refs).

Object-oriented accelerator design with HPF

International Nuclear Information System (INIS)

Ji Qiang; Ryne, R.D.; Habib, S.

1998-01-01

In this paper, object-oriented design is applied to codes for beam dynamics simulations in accelerators using High Performance Fortran (HPF). This results in good maintainability, reusability, and extensibility of software, combined with the ease of parallel programming provided by HPF

CTD: a computer program to solve the three dimensional multi-group diffusion equation in X, Y, Z, and triangular Z geometries

Energy Technology Data Exchange (ETDEWEB)

Fletcher, J K

1973-05-01

CTD is a computer program written in Fortran 4 to solve the multi-group diffusion theory equations in X, Y, Z and triangular Z geometries. A power print- out neutron balance and breeding gain are also produced. 4 references. (auth)

Precision Glass Molding: Validation of an FE Model for Thermo-Mechanical Simulation

DEFF Research Database (Denmark)

Sarhadi, Ali; Hattel, Jesper Henri; Hansen, Hans Nørgaard

2014-01-01

glass molding process including heating, pressing, and cooling stages. Temperature- dependent viscoelastic and structural relaxation behavior of the glass material are implemented through a FORTRAN material subroutine (UMAT) into the commercial FEM program ABAQUS, and the FE model is validated...

Computer program modifications for lung microdosimetry

International Nuclear Information System (INIS)

Harty, R.; Hadley, R.T.

1983-01-01

A lung model based on statistical studies of beagle dog lung microstructure was incorporated to describe the distributions of tissue, air space, and cell nuclei in pulmonary lung tissue was modified from basic to FORTRAN to shorten time and increase flexibility

The Ångström Exponent and Turbidity of Soot Component in the ...

African Journals Online (AJOL)

OPAC) using FORTRAN program to model the effect of soot on optical depth, scattering coefficient, absorption coefficient, single scattering albedo, extinction coefficient and asymmetry parameter at spectral range of 0.25 to 1.00 ƒÝm for eight ...

Computer program for calculation of ideal gas thermodynamic data

Science.gov (United States)

Gordon, S.; Mc Bride, B. J.

1968-01-01

Computer program calculates ideal gas thermodynamic properties for any species for which molecular constant data is available. Partial functions and derivatives from formulas based on statistical mechanics are provided by the program which is written in FORTRAN 4 and MAP.

ADGEN: An automated adjoint code generator for large-scale sensitivity analysis

International Nuclear Information System (INIS)

Pin, F.G.; Oblow, E.M.; Horwedel, J.E.; Lucius, J.L.

1987-01-01

This paper describes a new automated system, named ADGEN, which makes use of the strengths of computer calculus to automate the costly and time-consuming calculation of derivatives in FORTRAN computer codes, and automatically generate adjoint solutions of computer codes

Factor analysis of multivariate data

Digital Repository Service at National Institute of Oceanography (India)

Fernandes, A.A.; Mahadevan, R.

A brief introduction to factor analysis is presented. A FORTRAN program, which can perform the Q-mode and R-mode factor analysis and the singular value decomposition of a given data matrix is presented in Appendix B. This computer program, uses...

Object-oriented accelerator design with HPF

Energy Technology Data Exchange (ETDEWEB)

Ji Qiang; Ryne, R.D.; Habib, S.

1998-12-31

In this paper, object-oriented design is applied to codes for beam dynamics simulations in accelerators using High Performance Fortran (HPF). This results in good maintainability, reusability, and extensibility of software, combined with the ease of parallel programming provided by HPF.

User Delay Cost Model and Facilities Maintenance Cost Model for a Terminal Control Area : Volume 3. User's Manual and Program Documentation for the Facilities Maintenance Cost Model

Science.gov (United States)

1978-05-01

The Facilities Maintenance Cost Model (FMCM) is an analytic model designed to calculate expected annual labor costs of maintenance within a given FAA maintenance sector. The model is programmed in FORTRAN IV and has been demonstrated on the CDC Krono...

BIOACCUMULATION AND AQUATIC SYSTEM SIMULATOR (BASS) USER'S MANUAL BETA TEST VERSION 2.1

Science.gov (United States)

BASS (Bioaccumulation and Aquatic System Simulator) is a Fortran 95 simulation program that predicts the population and bioaccumulation dynamics of age-structured fish assemblages that are exposed to hydrophobic organic pollutants and class B and borderline metals that complex wi...

Optimization of Particle-in-Cell Codes on RISC Processors

Science.gov (United States)

Decyk, Viktor K.; Karmesin, Steve Roy; Boer, Aeint de; Liewer, Paulette C.

1996-01-01

General strategies are developed to optimize particle-cell-codes written in Fortran for RISC processors which are commonly used on massively parallel computers. These strategies include data reorganization to improve cache utilization and code reorganization to improve efficiency of arithmetic pipelines.

DET/MPS - THE GSFC ENERGY BALANCE PROGRAM, DIRECT ENERGY TRANSFER/MULTIMISSION SPACECRAFT MODULAR POWER SYSTEM (UNIX VERSION)

Science.gov (United States)

Jagielski, J. M.

1994-01-01

The DET/MPS programs model and simulate the Direct Energy Transfer and Multimission Spacecraft Modular Power System in order to aid both in design and in analysis of orbital energy balance. Typically, the DET power system has the solar array directly to the spacecraft bus, and the central building block of MPS is the Standard Power Regulator Unit. DET/MPS allows a minute-by-minute simulation of the power system's performance as it responds to various orbital parameters, focusing its output on solar array output and battery characteristics. While this package is limited in terms of orbital mechanics, it is sufficient to calculate eclipse and solar array data for circular or non-circular orbits. DET/MPS can be adjusted to run one or sequential orbits up to about one week, simulated time. These programs have been used on a variety of Goddard Space Flight Center spacecraft projects. DET/MPS is written in FORTRAN 77 with some VAX-type extensions. Any FORTRAN 77 compiler that includes VAX extensions should be able to compile and run the program with little or no modifications. The compiler must at least support free-form (or tab-delineated) source format and 'do do-while end-do' control structures. DET/MPS is available for three platforms: GSC-13374, for DEC VAX series computers running VMS, is available in DEC VAX Backup format on a 9-track 1600 BPI tape (standard distribution) or TK50 tape cartridge; GSC-13443, for UNIX-based computers, is available on a .25 inch streaming magnetic tape cartridge in UNIX tar format; and GSC-13444, for Macintosh computers running AU/X with either the NKR FORTRAN or AbSoft MacFORTRAN II compilers, is available on a 3.5 inch 800K Macintosh format diskette. Source code and test data are supplied. The UNIX version of DET requires 90K of main memory for execution. DET/MPS was developed in 1990. A/UX and Macintosh are registered trademarks of Apple Computer, Inc. VMS, DEC VAX and TK50 are trademarks of Digital Equipment Corporation. UNIX is a

DET/MPS - THE GSFC ENERGY BALANCE PROGRAM, DIRECT ENERGY TRANSFER/MULTIMISSION SPACECRAFT MODULAR POWER SYSTEM (MACINTOSH A/UX VERSION)

Science.gov (United States)

Jagielski, J. M.

1994-01-01

The DET/MPS programs model and simulate the Direct Energy Transfer and Multimission Spacecraft Modular Power System in order to aid both in design and in analysis of orbital energy balance. Typically, the DET power system has the solar array directly to the spacecraft bus, and the central building block of MPS is the Standard Power Regulator Unit. DET/MPS allows a minute-by-minute simulation of the power system's performance as it responds to various orbital parameters, focusing its output on solar array output and battery characteristics. While this package is limited in terms of orbital mechanics, it is sufficient to calculate eclipse and solar array data for circular or non-circular orbits. DET/MPS can be adjusted to run one or sequential orbits up to about one week, simulated time. These programs have been used on a variety of Goddard Space Flight Center spacecraft projects. DET/MPS is written in FORTRAN 77 with some VAX-type extensions. Any FORTRAN 77 compiler that includes VAX extensions should be able to compile and run the program with little or no modifications. The compiler must at least support free-form (or tab-delineated) source format and 'do do-while end-do' control structures. DET/MPS is available for three platforms: GSC-13374, for DEC VAX series computers running VMS, is available in DEC VAX Backup format on a 9-track 1600 BPI tape (standard distribution) or TK50 tape cartridge; GSC-13443, for UNIX-based computers, is available on a .25 inch streaming magnetic tape cartridge in UNIX tar format; and GSC-13444, for Macintosh computers running AU/X with either the NKR FORTRAN or AbSoft MacFORTRAN II compilers, is available on a 3.5 inch 800K Macintosh format diskette. Source code and test data are supplied. The UNIX version of DET requires 90K of main memory for execution. DET/MPS was developed in 1990. A/UX and Macintosh are registered trademarks of Apple Computer, Inc. VMS, DEC VAX and TK50 are trademarks of Digital Equipment Corporation. UNIX is a

DET/MPS - THE GSFC ENERGY BALANCE PROGRAM, DIRECT ENERGY TRANSFER/MULTIMISSION SPACECRAFT MODULAR POWER SYSTEM (DEC VAX VMS VERSION)

Science.gov (United States)

Jagielski, J. M.

1994-01-01

The DET/MPS programs model and simulate the Direct Energy Transfer and Multimission Spacecraft Modular Power System in order to aid both in design and in analysis of orbital energy balance. Typically, the DET power system has the solar array directly to the spacecraft bus, and the central building block of MPS is the Standard Power Regulator Unit. DET/MPS allows a minute-by-minute simulation of the power system's performance as it responds to various orbital parameters, focusing its output on solar array output and battery characteristics. While this package is limited in terms of orbital mechanics, it is sufficient to calculate eclipse and solar array data for circular or non-circular orbits. DET/MPS can be adjusted to run one or sequential orbits up to about one week, simulated time. These programs have been used on a variety of Goddard Space Flight Center spacecraft projects. DET/MPS is written in FORTRAN 77 with some VAX-type extensions. Any FORTRAN 77 compiler that includes VAX extensions should be able to compile and run the program with little or no modifications. The compiler must at least support free-form (or tab-delineated) source format and 'do do-while end-do' control structures. DET/MPS is available for three platforms: GSC-13374, for DEC VAX series computers running VMS, is available in DEC VAX Backup format on a 9-track 1600 BPI tape (standard distribution) or TK50 tape cartridge; GSC-13443, for UNIX-based computers, is available on a .25 inch streaming magnetic tape cartridge in UNIX tar format; and GSC-13444, for Macintosh computers running AU/X with either the NKR FORTRAN or AbSoft MacFORTRAN II compilers, is available on a 3.5 inch 800K Macintosh format diskette. Source code and test data are supplied. The UNIX version of DET requires 90K of main memory for execution. DET/MPS was developed in 1990. A/UX and Macintosh are registered trademarks of Apple Computer, Inc. VMS, DEC VAX and TK50 are trademarks of Digital Equipment Corporation. UNIX is a

HYDROLOGY AND SEDIMENT MODELING USING THE BASINS NON-POINT SOURCE MODEL

Science.gov (United States)

The Non-Point Source Model (Hydrologic Simulation Program-Fortran, or HSPF) within the EPA Office of Water's BASINS watershed modeling system was used to simulate streamflow and total suspended solids within Contentnea Creek, North Carolina, which is a tributary of the Neuse Rive...

Computer Simulation of Mutagenesis.

Science.gov (United States)

North, J. C.; Dent, M. T.

1978-01-01

A FORTRAN program is described which simulates point-substitution mutations in the DNA strands of typical organisms. Its objective is to help students to understand the significance and structure of the genetic code, and the mechanisms and effect of mutagenesis. (Author/BB)

User's guide for SLWDN9, a code for calculating flux-surfaced-averaging of alpha densities, currents, and heating in non-circular tokamaks

International Nuclear Information System (INIS)

Hively, L.M.; Miley, G.M.

1980-03-01

The code calculates flux-surfaced-averaged values of alpha density, current, and electron/ion heating profiles in realistic, non-circular tokamak plasmas. The code is written in FORTRAN and execute on the CRAY-1 machine at the Magnetic Fusion Energy Computer Center

GRADSPH: A parallel smoothed particle hydrodynamics code for self-gravitating astrophysical fluid dynamics

NARCIS (Netherlands)

Vanaverbeke, S.; Keppens, R.; Poedts, S.; Boffin, H.

2009-01-01

We describe the algorithms implemented in the first version of GRADSPH, a parallel, tree-based, smoothed particle hydrodynamics code for simulating self-gravitating astrophysical systems written in FORTRAN 90. The paper presents details on the implementation of the Smoothed Particle Hydro (SPH)

Using Peephole Optimization on Intermediate Code

NARCIS (Netherlands)

Tanenbaum, A.S.; van Staveren, H.; Stevenson, J.W.

1982-01-01

Many portable compilers generate an intermediate code that is subsequently translated into the target machine's assembly language. In this paper a stack-machine-based intermediate code suitable for algebraic languages (e.g., PASCAL, C, FORTRAN) and most byte-addressed mini- and microcomputers is

The Resource constrained shortest path problem implemented in a lazy functional language

NARCIS (Netherlands)

Hartel, Pieter H.; Glaser, Hugh

The resource constrained shortest path problem is an NP-hard problem for which many ingenious algorithms have been developed. These algorithms are usually implemented in Fortran or another imperative programming language. We have implemented some of the simpler algorithms in a lazy functional

GammaCHI: a package for the inversion and computation of the gamma and chi-square cumulative distribution functions (central and noncentral)

NARCIS (Netherlands)

A. Gil (Amparo); J. Segura (Javier); N.M. Temme (Nico)

2015-01-01

textabstractA Fortran 90 module GammaCHI for computing and inverting the gamma and chi-square cumulative distribution functions (central and noncentral) is presented. The main novelty of this package is the reliable and accurate inversion routines for the noncentral cumulative distribution

The Variation Theorem Applied to H-2+: A Simple Quantum Chemistry Computer Project

Science.gov (United States)

Robiette, Alan G.

1975-01-01

Describes a student project which requires limited knowledge of Fortran and only minimal computing resources. The results illustrate such important principles of quantum mechanics as the variation theorem and the virial theorem. Presents sample calculations and the subprogram for energy calculations. (GS)

Doppler broadening of cross sections

International Nuclear Information System (INIS)

Buckler, P.A.C.; Pull, I.C.

1962-12-01

Expressions for temperature dependent cross-sections in terms of resonance parameters are obtained, involving generalisations of the conventional Doppler functions, ψ and φ. Descriptions of Fortran sub-routines, which calculate broadened cross-sections in accordance with the derived formulae, are included. (author)

Code modernization and modularization of APEX and SWAT watershed simulation models

Science.gov (United States)

SWAT (Soil and Water Assessment Tool) and APEX (Agricultural Policy / Environmental eXtender) are respectively large and small watershed simulation models derived from EPIC Environmental Policy Integrated Climate), a field-scale agroecology simulation model. All three models are coded in FORTRAN an...

Fast algorithm of track detection

International Nuclear Information System (INIS)

Nehrguj, B.

1980-01-01

A fast algorithm of variable-slope histograms is proposed, which allows a considerable reduction of computer memory size and is quite simple to carry out. Corresponding FORTRAN subprograms given a triple speed gain have been included in spiral reader data handling software

Universal algorithms and programs for calculating the motion parameters in the two-body problem

Science.gov (United States)

Bakhshiyan, B. T.; Sukhanov, A. A.

1979-01-01

The algorithms and FORTRAN programs for computing positions and velocities, orbital elements and first and second partial derivatives in the two-body problem are presented. The algorithms are applicable for any value of eccentricity and are convenient for computing various navigation parameters.

Slide layout and integrated design (SLIDE) program

International Nuclear Information System (INIS)

Roberts, S.G.

1975-01-01

SLIDE is a FORTRAN IV program for producing 35 mm color slides on the Control Data CYBER-74. SLIDE interfaces with the graphics package, DISSPLA, on the CYBER-74. It was designed so that persons with no previous computer experience can easily and quickly generate their own textual 35 mm color slides for verbal presentations. SLIDE's features include seven different colors, five text sizes, ten tab positions, and two page sizes. As many slides as desired may be produced during any one run of the program. Each slide is designed to represent an 8 1 / 2 in. x 11 in. or an 11 in. x 8 1 / 2 in. page. The input data cards required to run the SLIDE program and the program output are described. Appendixes contain a sample program run showing input, output, and the resulting slides produced and a FORTRAN listing of the SLIDE program. (U.S.)

Multimegawatt dynamic NEP PMAD study

International Nuclear Information System (INIS)

Metcalf, K.J.

1993-01-01

The National Aeronautics and Space Administration Lewis Research Center (NASA LeRC) is developing a Fortran--based model of a complete nuclear electric propulsion (NEP) vehicle to be used for piloted or cargo missions to the Moon or Mars. The proposed vehicle will use either a Brayton or K-Rankine power conversion cycle, and either ion or magnetoplasmadynamic (MPD) thrusters. In support of this effort, Rocketdyne evaluated various power management and distribution (PMAD) approaches and selected a low-frequency design that is based on the direct use of the alternator voltage and frequency for power transmission. This approach was compared with dc and high-frequency ac designs, and selected on the basis of mass, efficiency, and qualitative assessments of power quality, reliability and development costs. This low-frequency architecture will be used as the reference in future NEP PMAD studies and for the subsequent Fortran model development

A tool model for predicting atmospheric kinetics with sensitivity analysis

Institute of Scientific and Technical Information of China (English)

无

2001-01-01

A package( a tool model) for program of predicting atmospheric chemical kinetics with sensitivity analysis is presented. The new direct method of calculating the first order sensitivity coefficients using sparse matrix technology to chemical kinetics is included in the tool model, it is only necessary to triangularize the matrix related to the Jacobian matrix of the model equation. The Gear type procedure is used to integrate amodel equation and its coupled auxiliary sensitivity coefficient equations. The FORTRAN subroutines of the model equation, the sensitivity coefficient equations, and their Jacobian analytical expressions are generated automatically from a chemical mechanism. The kinetic representation for the model equation and its sensitivity coefficient equations, and their Jacobian matrix is presented. Various FORTRAN subroutines in packages, such as SLODE, modified MA28, Gear package, with which the program runs in conjunction are recommended.The photo-oxidation of dimethyl disulfide is used for illustration.

Implementing O(N N-Body Algorithms Efficiently in Data-Parallel Languages

Directory of Open Access Journals (Sweden)

Yu Hu

1996-01-01

Full Text Available The optimization techniques for hierarchical O(N N-body algorithms described here focus on managing the data distribution and the data references, both between the memories of different nodes and within the memory hierarchy of each node. We show how the techniques can be expressed in data-parallel languages, such as High Performance Fortran (HPF and Connection Machine Fortran (CMF. The effectiveness of our techniques is demonstrated on an implementation of Anderson's hierarchical O(N N-body method for the Connection Machine system CM-5/5E. Of the total execution time, communication accounts for about 10–20% of the total time, with the average efficiency for arithmetic operations being about 40% and the total efficiency (including communication being about 35%. For the CM-5E, a performance in excess of 60 Mflop/s per node (peak 160 Mflop/s per node has been measured.

AMPX-77: A modular code system for generating coupled multigroup neutron-gamma cross-section libraries from ENDF/B-IV and/or ENDF/B-V

Energy Technology Data Exchange (ETDEWEB)

Greene, N.M.; Ford, W.E. III; Petrie, L.M.; Arwood, J.W.

1992-10-01

AMPX-77 is a modular system of computer programs that pertain to nuclear analyses, with a primary emphasis on tasks associated with the production and use of multigroup cross sections. AH basic cross-section data are to be input in the formats used by the Evaluated Nuclear Data Files (ENDF/B), and output can be obtained in a variety of formats, including its own internal and very general formats, along with a variety of other useful formats used by major transport, diffusion theory, and Monte Carlo codes. Processing is provided for both neutron and gamma-my data. The present release contains codes all written in the FORTRAN-77 dialect of FORTRAN and wig process ENDF/B-V and earlier evaluations, though major modules are being upgraded in order to process ENDF/B-VI and will be released when a complete collection of usable routines is available.

Coarse-grain parallelism using remote method invocation

Energy Technology Data Exchange (ETDEWEB)

Hebert, A. [Ecole Polytechnique de Montreal, Qc. (Canada)

2003-07-01

The paper describes a user-oriented framework specifically designed to facilitate the development and supervision of coarse-grain parallel applications in reactor physics. The proposed user-oriented framework was designed and implemented in Java, in such a way to obtain a simple and robust application. The proposed approach is based on Java Native Interface(JNI) for integrating the Fortran legacy code and on Remote Method Invocation (RMI) for distributing the calculation load over the farm of processors. Dynamic code downloading over the network is possible. We are presenting the application of this approach to supervision of lattice calculations using the open source Dragon code. The Java layer surrounding Dragon can also be used to construct execution procedures, computational schemes and graphical user interfaces. This approach can be used with any existing legacy Fortran code, as soon as its input/output data structures are Dragon-compatible. (author)

Differential algebras without differentials: An easy C++ implementation

International Nuclear Information System (INIS)

Michelotti, L.

1989-03-01

Automated differentiation can be motivated and explained rather plainly without any reference to infinitesimals or differentials whatsoever. We shall describe one possible approach in this paper. The method which we shall use will suggest its own implementation. However, FORTRAN is not the most natural language in which to carry it out. In the second section we shall describe an almost trivial implementation using C++. (Indeed, one of the motivations for writing this paper is to persuade militant FORTRAN extremists to invest the four or five days necessary to learn this powerful and easy language.) Take heed, however, that what we describe below is only a stripped-down implementation, written in three days, of differential algebra's most essential features; it is not as robust as and does not contain the battery of tools available in Berz's DA package, the product of a significant amount of work. 10 refs

Differential algebras without differentials: An easy C++ implementation

Energy Technology Data Exchange (ETDEWEB)

Michelotti, L.

1989-03-01

Automated differentiation can be motivated and explained rather plainly without any reference to infinitesimals or differentials whatsoever. We shall describe one possible approach in this paper. The method which we shall use will suggest its own implementation. However, FORTRAN is not the most natural language in which to carry it out. In the second section we shall describe an almost trivial implementation using C++. (Indeed, one of the motivations for writing this paper is to persuade militant FORTRAN extremists to invest the four or five days necessary to learn this powerful and easy language.) Take heed, however, that what we describe below is only a stripped-down implementation, written in three days, of differential algebra's most essential features; it is not as robust as and does not contain the battery of tools available in Berz's DA package, the product of a significant amount of work. 10 refs.

Coarse-grain parallelism using remote method invocation

International Nuclear Information System (INIS)

Hebert, A.

2003-01-01

The paper describes a user-oriented framework specifically designed to facilitate the development and supervision of coarse-grain parallel applications in reactor physics. The proposed user-oriented framework was designed and implemented in Java, in such a way to obtain a simple and robust application. The proposed approach is based on Java Native Interface(JNI) for integrating the Fortran legacy code and on Remote Method Invocation (RMI) for distributing the calculation load over the farm of processors. Dynamic code downloading over the network is possible. We are presenting the application of this approach to supervision of lattice calculations using the open source Dragon code. The Java layer surrounding Dragon can also be used to construct execution procedures, computational schemes and graphical user interfaces. This approach can be used with any existing legacy Fortran code, as soon as its input/output data structures are Dragon-compatible. (author)

AMPX-77: A modular code system for generating coupled multigroup neutron-gamma cross-section libraries from ENDF/B-IV and/or ENDF/B-V

International Nuclear Information System (INIS)

Greene, N.M.; Ford, W.E. III; Petrie, L.M.; Arwood, J.W.

1992-10-01

AMPX-77 is a modular system of computer programs that pertain to nuclear analyses, with a primary emphasis on tasks associated with the production and use of multigroup cross sections. AH basic cross-section data are to be input in the formats used by the Evaluated Nuclear Data Files (ENDF/B), and output can be obtained in a variety of formats, including its own internal and very general formats, along with a variety of other useful formats used by major transport, diffusion theory, and Monte Carlo codes. Processing is provided for both neutron and gamma-my data. The present release contains codes all written in the FORTRAN-77 dialect of FORTRAN and wig process ENDF/B-V and earlier evaluations, though major modules are being upgraded in order to process ENDF/B-VI and will be released when a complete collection of usable routines is available

Robust non-gradient C subroutines for non-linear optimization

DEFF Research Database (Denmark)

Brock, Pernille; Madsen, Kaj; Nielsen, Hans Bruun

2004-01-01

This report presents a package of robust and easy-to-use C subroutines for solving unconstrained and constrained non-linear optimization problems, where gradient information is not required. The intention is that the routines should use the currently best algorithms available. All routines have...... subroutines are obtained by changing 0 to 1. The present report is a new and updated version of a previous report NI-91-04 with the title Non-gradient c Subroutines for Non- Linear Optimization, [16]. Both the previous and the present report describe a collection of subroutines, which have been translated...... from Fortran to C. The reason for writing the present report is that some of the C subroutines have been replaced by more e ective and robust versions translated from the original Fortran subroutines to C by the Bandler Group, see [1]. Also the test examples have been modified to some extent...

Rotor calculations for neutron spectroscopy; Calculs des rotors de spectrometres a neutrons

Energy Technology Data Exchange (ETDEWEB)

Gobert, G [Commissariat a l' Energie Atomique, Saclay (France). Centre d' Etudes Nucleaires

1968-07-01

The determination of stress in a rotating disk plane of symmetry normal to the axis of rotation has been studied by a number of investigators. In a recent paper Reich gives an operating process for an analytical solution in an asymmetric rotating disk. In the report we give the calculation of finite difference stress solutions applicable to the two rotating disks. The equations are then programmed for the 360.75 computer by Fortran methods concerning the rotors of choppers. (author) [French] La determination des contraintes dans les disques symetriques, en rotation a ete etudiee par de nombreux auteurs. Dans un recent rapport, Reich donne une solution pour le calcul des disques asymetriques. Ce rapport concerne l'application du calcul des contraintes par differences finies aux deux types de rotors. Les equations ecrites en langage Fortran pour l'ordinateur 360.75 concerne les rotors de choppers. (auteur)

User's Manual for FEMOM3DR. Version 1.0

Science.gov (United States)

Reddy, C. J.

1998-01-01

FEMoM3DR is a computer code written in FORTRAN 77 to compute radiation characteristics of antennas on 3D body using combined Finite Element Method (FEM)/Method of Moments (MoM) technique. The code is written to handle different feeding structures like coaxial line, rectangular waveguide, and circular waveguide. This code uses the tetrahedral elements, with vector edge basis functions for FEM and triangular elements with roof-top basis functions for MoM. By virtue of FEM, this code can handle any arbitrary shaped three dimensional bodies with inhomogeneous lossy materials; and due to MoM the computational domain can be terminated in any arbitrary shape. The User's Manual is written to make the user acquainted with the operation of the code. The user is assumed to be familiar with the FORTRAN 77 language and the operating environment of the computers on which the code is intended to run.

Distribution load forecast with interactive correction of horizon loads

International Nuclear Information System (INIS)

Glamochanin, V.; Andonov, D.; Gagovski, I.

1994-01-01

This paper presents the interactive distribution load forecast application that performs the distribution load forecast with interactive correction of horizon loads. It consists of two major parts implemented in Fortran and Visual Basic. The Fortran part is used for the forecasts computations. It consists of two methods: Load Transfer Coupling Curve Fitting (LTCCF) and load Forecast Using Curve Shape Clustering (FUCSC). LTCCF is used to 'correct' the contaminated data because of load transfer among neighboring distribution areas. FUCSC uses curve shape clustering to forecast the distribution loads of small areas. The forecast for each small area is achieved by using the shape of corresponding cluster curve. The comparison of forecasted loads of the area with historical data will be used as a tool for the correction of the estimated horizon load. The Visual Basic part is used to provide flexible interactive user-friendly environment. (author). 5 refs., 3 figs

Parametric Engineering System Definition Model. Volume II. Appendix C. FORTRAN Listings

Science.gov (United States)

1979-08-01

x ý_ .V L , x 0w X: U Aw a U= U2 LL (A9 > cAL .D- 3: w.. = L I- ;< c Q 4 -- uj- 2: UZLL - ccZ4 .W - U. C ~ U- FLJ LLt- CLL>JuU. j Z Xf jZ x V- *O L...ý - P- u Z.." - S.. = 2- U :- - - - LUý zz w z c IN.U 4( 4 U.-JC uI. 0 > u .C Cj ’t a. u c , L0> V)QV)e in G.t O~ .0 P- ct tD ~ *-cMc" -t m C c...7 0 7; n, C-1600 z c t= orw > w I Z z z. z Z tn - w 1 t CU Z ": < - z -a>- C- LL Z = z - , - a I-. LU * C-161 0X w -U. c td , Ln U-lU_ U. LL.- Wj~ W z

Validation of FORTRAN emulators for the G2 varian control programs

International Nuclear Information System (INIS)

Delorme, G.

1996-01-01

The extensive use of the Gentilly full scope simulator for training and verification of plant procedures, forced the development of a reliable desktop simulator for software maintenance purposes. For that we needed emulators for the control programs which run on the DCC Varian computers in the full scope simulator. This paper presents the validation results for the Reactor Regulating System (RRS) program. This emulator was programmed in a modular fashion providing ease of maintenance and of transportation to another environment. The results obtained with specific tests or with integrated testing involving complex control rule interactions, compared favorably with the ones obtained using the actual plant control programs running on the full scope simulator, which constitutes an irrefutable validation procedure. This RRS package along with the other emulators being validated In this manner could be used in safety codes with confidence. (author)

A portable approach for PIC on emerging architectures

Science.gov (United States)

Decyk, Viktor

2016-03-01

A portable approach for designing Particle-in-Cell (PIC) algorithms on emerging exascale computers, is based on the recognition that 3 distinct programming paradigms are needed. They are: low level vector (SIMD) processing, middle level shared memory parallel programing, and high level distributed memory programming. In addition, there is a memory hierarchy associated with each level. Such algorithms can be initially developed using vectorizing compilers, OpenMP, and MPI. This is the approach recommended by Intel for the Phi processor. These algorithms can then be translated and possibly specialized to other programming models and languages, as needed. For example, the vector processing and shared memory programming might be done with CUDA instead of vectorizing compilers and OpenMP, but generally the algorithm itself is not greatly changed. The UCLA PICKSC web site at http://www.idre.ucla.edu/ contains example open source skeleton codes (mini-apps) illustrating each of these three programming models, individually and in combination. Fortran2003 now supports abstract data types, and design patterns can be used to support a variety of implementations within the same code base. Fortran2003 also supports interoperability with C so that implementations in C languages are also easy to use. Finally, main codes can be translated into dynamic environments such as Python, while still taking advantage of high performing compiled languages. Parallel languages are still evolving with interesting developments in co-Array Fortran, UPC, and OpenACC, among others, and these can also be supported within the same software architecture. Work supported by NSF and DOE Grants.

WASTES: Wastes system transportation and economic simulation: Version 2, Programmer's reference manual

International Nuclear Information System (INIS)

Buxbaum, M.E.; Shay, M.R.

1986-11-01

The WASTES Version II (WASTES II) Programmer's Reference Manual was written to document code development activities performed under the Monitored Retrievable Storage (MRS) Program at Pacific Northwest Laboratory (PNL). The manual will also serve as a valuable tool for programmers involved in maintenance of and updates to the WASTES II code. The intended audience for this manual are experienced FORTRAN programmers who have only a limited knowledge of nuclear reactor operation, the nuclear fuel cycle, or nuclear waste management practices. It is assumed that the readers of this manual have previously reviewed the WASTES II Users Guide published as PNL Report 5714. The WASTES II code is written in FORTRAN 77 as an extension to the SLAM commercial simulation package. The model is predominately a FORTRAN based model that makes extensive use of the SLAM file maintenance and time management routines. This manual documents the general manner in which the code is constructed and the interactions between SLAM and the WASTES subroutines. The functionality of each of the major WASTES subroutines is illustrated with ''block flow'' diagrams. The basic function of each of these subroutines, the algorithms used in them, and a discussion of items of particular note in the subroutine are reviewed in this manual. The items of note may include an assumption, a coding practice that particularly applies to a subroutine, or sections of the code that are particularly intricate or whose mastery may be difficult. The appendices to the manual provide extensive detail on the use of arrays, subroutines, included common blocks, parameters, variables, and files

RELIEVE: A FORTRAN 77 program for numerical and graphical processing of digital topographic maps; RELIEVE: Un programa FORTRAN para procesamiento numerico y grafico de mapas topograficos digitalizados

Energy Technology Data Exchange (ETDEWEB)

Sanchez, J.J.; Gorostiza, C.

1995-07-01

The RELIEVE program was developed in order to its integration with the expert system SIRENAS, in the frame of the Industrial Risks Programme, within the CIEMAT center. For accomplishing this mentioned system, arose the necessity of an additional component enabled for analyzing the topography (relieve) of the territory in which the focused site is located. That is just the mission of the RELIEVE program. Basically RELIEVE analyses the digitalized data points of a determinate topographic area, around a location of interest. The program allows us estimation by numerical techniques, using IMSL library, of the deep width, and other geometrical characteristics of the valley that is involved in. Optionally RELIEVE produces also graphical outputs concerning 3D representation of topographical map, level curves, sections of interest considered in the valley, etc., by means of the DISSPLA II library, running in the IBM system of the CIEMAT. (Author) 5 refs.

RELIEVE: A FORTRAN 77 program for numerical and graphical processing of digital topographic maps; RELIEVE: Un programa FORTRAN para procesamiento numerico y grafico de mapas topograficos digitalizados

Energy Technology Data Exchange (ETDEWEB)

Sanchez, J.J.; Gorostiza, C.

1995-12-01

The RELIEVE program was developed in order to its integration with the expert system SIRENAS, in the frame of the Industrial Risks Programme, within the CIEMAT center. For accomplishing this mentioned system, arose the necessity of an additional component unable for analyzing the topography (relieve) of the territory in which the focused site is located. That one is just the mission of the RELIEVE program. Basically RELIEVE analyses the digitalized data points of a determined topographic area, around a location of interest. The program allows us estimation by numerical techniques, using IMSL library, of the deep width, and other geometrical characteristics of the valley that are involved in. Optionally RELIEVE produces also graphical outputs concerning 3D representation of topographical map, level curves, sections of interest considered in the valley, etc., by means of the DISSPLA II library, running in the IBM system of the CIEMAT. (Author)

Calculation of the effective D-d neutron energy distribution incident on a cylindrical shell sample

International Nuclear Information System (INIS)

Gotoh, Hiroshi

1977-07-01

A method is proposed to calculate the effective energy distribution of neutrons incident on a cylindrical shell sample placed perpendicularly to the direction of the deuteron beam bombarding a deuterium metal target. The Monte Carlo method is used and the Fortran program is contained. (auth.)

Event reconstruction with MarlinReco at the International Linear ...

Indian Academy of Sciences (India)

event reconstruction system, based on the particle flow concept. Version 00-02 contains the following processors: Tracker hit digitisation: For the vertex system there are two different digitisers available. A simple digitiser translates simulated .... of showers in the calorimeter. The Fortran-based simulation and reconstruction.

Column Reduction of Polynomial Matrices; Some Remarks on the Algorithm of Wolovich

NARCIS (Netherlands)

Praagman, C.

1996-01-01

Recently an algorithm has been developed for column reduction of polynomial matrices. In a previous report the authors described a Fortran implementation of this algorithm. In this paper we compare the results of that implementation with an implementation of the algorithm originally developed by

Nonclassical Orthogonal Polynomials and Corresponding Quadratures

CERN Document Server

Fukuda, H; Alt, E O; Matveenko, A V

2004-01-01

We construct nonclassical orthogonal polynomials and calculate abscissas and weights of Gaussian quadrature for arbitrary weight and interval. The program is written by Mathematica and it works if moment integrals are given analytically. The result is a FORTRAN subroutine ready to utilize the quadrature.

Evaluation of the discrete vortex wake cross flow model using vector computers. Part 2: User's manual for DIVORCE

Science.gov (United States)

Deffenbaugh, F. D.; Vitz, J. F.

1979-01-01

The users manual for the Discrete Vortex Cross flow Evaluator (DIVORCE) computer program is presented. DIVORCE was developed in FORTRAN 4 for the DCD 6600 and CDC 7600 machines. Optimal calls to a NASA vector subroutine package are provided for use with the CDC 7600.

Powderspec, a program for the efficient simulation of spectra of electron paramagnetic resonance of powders with orthorhombic symmetry

International Nuclear Information System (INIS)

Gonzalez T, L.; Beltran L, V.

1991-09-01

In this report a FORTRAN source program which simulates the second order powder pattern and spectrum of electron paramagnetic resonance (EPR) in crystal fields with orthorhombic symmetry using Gauss-Legendre quadratures is given. Also the commentaries which describe each step in detail are presented. (Author)

The package PAKPDF 1.1 of parameterizations of parton distribution functions in the proton

International Nuclear Information System (INIS)

Charchula, K.

1992-01-01

A FORTRAN package containing parameterizations of parton distribution functions (PDFs) in the proton is described, allows an easy access to PDFs provided by several recent parameterizations and to some parameters characterizing particular parameterization. Some comments about the use of various parameterizations are also included. (orig.)

The Winfrith DSN programme

Energy Technology Data Exchange (ETDEWEB)

Francescon, S [General Reactor Physics Division, Atomic Energy Establishment, Winfrith, Dorchester, Dorset (United Kingdom)

1963-05-15

The programme, which is written in the Fortran language, solves the Carlson discrete S{sub n} approximation to the Boltzmann transport equation in cylindrical geometry. This report describes the input and output facilities of the WINFRITH DSN programme and the associated editing programme WED. (author)

Computing Thermal Imbalance Forces On Satellites

Science.gov (United States)

Vigue, Yvonne; Schutz, Robert E.; Sewell, Granville; Abusali, Pothai A. M.

1994-01-01

HEAT.PRO computer program calculates imbalance force caused by heating of surfaces of satellite. Calculates thermal imbalance force and determines its effect on orbit of satellite, especially where shadow cast by Earth Causes periodic changes in thermal environment around satellite. Written in FORTRAN 77.

Computational Simulation of a Water-Cooled Heat Pump

Science.gov (United States)

Bozarth, Duane

2008-01-01

A Fortran-language computer program for simulating the operation of a water-cooled vapor-compression heat pump in any orientation with respect to gravity has been developed by modifying a prior general-purpose heat-pump design code used at Oak Ridge National Laboratory (ORNL).

The Winfrith DSN programme

International Nuclear Information System (INIS)

Francescon, S.

1963-05-01

The programme, which is written in the Fortran language, solves the Carlson discrete S n approximation to the Boltzmann transport equation in cylindrical geometry. This report describes the input and output facilities of the WINFRITH DSN programme and the associated editing programme WED. (author)

Efficient computation of Laguerre polynomials

NARCIS (Netherlands)

A. Gil (Amparo); J. Segura (Javier); N.M. Temme (Nico)

2017-01-01

textabstractAn efficient algorithm and a Fortran 90 module (LaguerrePol) for computing Laguerre polynomials . Ln(α)(z) are presented. The standard three-term recurrence relation satisfied by the polynomials and different types of asymptotic expansions valid for . n large and . α small, are used

Description of the DLL regulation interface in HAWC

DEFF Research Database (Denmark)

Larsen, Torben J.

2001-01-01

This report contains a description of the external regulation interface between the aeroelastic code HAWC and a separate regulation unit programmed as a DLL (Dynamic Link Library). Specific HAWC commands used with the regulation as well as simple DLLexamples written in Delphi, Fortran and C...

Airport Network Flow Simulator

Science.gov (United States)

1978-10-01

The Airport Network Flow Simulator is a FORTRAN IV simulation of the flow of air traffic in the nation's 600 commercial airports. It calculates for any group of selected airports: (a) the landing and take-off (Type A) delays; and (b) the gate departu...

A Computer Program to Evaluate Timber Production Investments Under Uncertainty

Science.gov (United States)

Dennis L. Schweitzer

1968-01-01

A computer program has been written in Fortran IV to calculate probability distributions of present worths of investments in timber production. Inputs can include both point and probabilistic estimates of future costs, prices, and yields. Distributions of rates of return can also be constructed.

Distributed multiscale computing with MUSCLE 2, the Multiscale Coupling Library and Environment

NARCIS (Netherlands)

Borgdorff, J.; Mamonski, M.; Bosak, B.; Kurowski, K.; Ben Belgacem, M.; Chopard, B.; Groen, D.; Coveney, P.V.; Hoekstra, A.G.

2014-01-01

We present the Multiscale Coupling Library and Environment: MUSCLE 2. This multiscale component-based execution environment has a simple to use Java, C++, C, Python and Fortran API, compatible with MPI, OpenMP and threading codes. We demonstrate its local and distributed computing capabilities and

Interactive Graphics Analysis for Aircraft Design

Science.gov (United States)

Townsend, J. C.

1983-01-01

Program uses higher-order far field drag minimization. Computer program WDES WDEM preliminary aerodynamic design tool for one or two interacting, subsonic lifting surfaces. Subcritical wing design code employs higher-order far-field drag minimization technique. Linearized aerodynamic theory used. Program written in FORTRAN IV.

ANIMAL code

International Nuclear Information System (INIS)

Lindemuth, I.R.

1979-01-01

This report describes ANIMAL, a two-dimensional Eulerian magnetohydrodynamic computer code. ANIMAL's physical model also appears. Formulated are temporal and spatial finite-difference equations in a manner that facilitates implementation of the algorithm. Outlined are the functions of the algorithm's FORTRAN subroutines and variables

Powderspec, a program for the efficient simulation of spectra of electron paramagnetic resonance of powders with orthorhombic symmetry; Powderspec, un programa para la simulacion eficiente de espectros de resonancia paramagnetica electronica de polvos con simetria ortorrombica

Energy Technology Data Exchange (ETDEWEB)

Gonzalez T, L.; Beltran L, V

1991-09-15

In this report a FORTRAN source program which simulates the second order powder pattern and spectrum of electron paramagnetic resonance (EPR) in crystal fields with orthorhombic symmetry using Gauss-Legendre quadratures is given. Also the commentaries which describe each step in detail are presented. (Author)

Scilab and MATLAB Interfaces to MUMPS (version 4.6 or greater)

OpenAIRE

Fèvre , Aurélia; Pralet , Stéphane; L'Excellent , Jean-Yves

2006-01-01

This document describes the Scilab and MATLAB interfaces to MUMPS version 4.6. We describe the differences and similarities between usual Fortran/C MUMPS interfaces and its Scilab/MATLAB interfaces, the calling sequences and functionalities. Examples of use and experimental results are also provided.

Beach Profile Analysis System (BPAS). Volume III. BPAS User’s Guide: Analysis Module SURVY1.

Science.gov (United States)

1982-06-01

extrapolated using the two seawardmost points. Before computing volume changes, common bonds are established relative to the landward and seawsrd extent...Cyber 176 or equivalent computer. Such features include the 10- character, 60-bit word size, the FORTRAN- callable sort routine (interfacing with the NOS

Beach Profile Analysis System (BPAS). Volume IV. BPAS User’s Guide: Analysis Module SURVY2.

Science.gov (United States)

1982-06-01

feet NSL), the shoreline position can be extrapolated using the two sawardmost points. Before computing volume changes, comon bonds are established...computer. Such features include the 10- character, 60-bit word size, the FORTRAN- callable sort routine (interfacing with the NOS or NOS/BE operating

Computer Series, 115.

Science.gov (United States)

Birk, James P., Ed.

1990-01-01

Reviewed are six computer programs which may be useful in teaching college level chemistry. Topics include dynamic data storage in FORTRAN, "KC?DISCOVERER," pH of acids and bases, calculating percent boundary surfaces for orbitals, and laboratory interfacing with PT Nomograph for the Macintosh. (CW)

DYSIM - A Modular Simulation System for Continuous Dynamic Processes

DEFF Research Database (Denmark)

Christensen, P. la Cour; Kofoed, J. E.; Larsen, N.

1986-01-01

The report describes a revised version of a simulation system for continuous processes, DYSIM. In relation to the previous version, which was developed in 1981, the main changes are conversion to Fortran 77 and introduction of a modular structure. The latter feature gives the user a possibility...

Application of HPCN to direct numerical simulation of turbulent flow

NARCIS (Netherlands)

Verstappen, RWCP; Veldman, AEP; van Waveren, GM; Hertzberger, B; Sloot, P

1997-01-01

This poster shows how HPCN can be used as a path-finding tool for turbulence research. The parallelization of direct numerical simulation of turbulent flow using the data-parallel model and Fortran 95 constructs is treated, both on a shared memory and a distributed memory computer.

The package PAKPDF ver. 1.1 of parametrizations of parton distribution functions in the proton

International Nuclear Information System (INIS)

Charchula, K.

1991-08-01

A FORTRAN package containing parametrizations of parton distribution functions (PDFS) in the proton is described. It allows an easy access to PDFS provided by several recent parametrizations and to some parameters characterizing particular parametrization. Some comments about the use of various parametrizations are also included. (orig.)

TJ-II Library Manual

International Nuclear Information System (INIS)

Tribaldos, V.; Milligen, B.Ph., van; Lopez-Fraguas, A.

1996-01-01

This report contains a detailed description of the TJ-II library and its routines. The library is written in FORTRAN 77 language and is available in the CRAY J916 and DEC Alpha 8400 computers at CIEMAT. This document also contains some examples of its use. (Author)

Upper limit for Poisson variable incorporating systematic uncertainties by Bayesian approach

International Nuclear Information System (INIS)

Zhu, Yongsheng

2007-01-01

To calculate the upper limit for the Poisson observable at given confidence level with inclusion of systematic uncertainties in background expectation and signal efficiency, formulations have been established along the line of Bayesian approach. A FORTRAN program, BPULE, has been developed to implement the upper limit calculation

XRAY applied program package for calculation of electron-photon fields in the energy range of 1-1000 keV

International Nuclear Information System (INIS)

Lappa, A.V.; Khadyeva, Z.M.; Burmistrov, D.S.; Vasil'ev, O.N.

1990-01-01

The package of applied XRAY programs is intended for calculating the linear and fluctuation characteristics of photon and electron radiation fields in heterogeneous medium within 1-1000 keV energy range. The XRAY program package consists of moduli written in FORTRAN-IV and data files. 9 refs

Programming Models for Three-Dimensional Hydrodynamics on the CM-5 (Part II)

International Nuclear Information System (INIS)

Amala, P.A.K.; Rodrigue, G.H.

1994-01-01

This is a two-part presentation of a timing study on the Thinking Machines CORP. CM-5 computer. Part II is given in this study and represents domain-decomposition and message-passing models. Part I described computational problems using a SIMD model and connection machine FORTRAN (CMF)

Computer program determines chemical composition of physical system at equilibrium

Science.gov (United States)

Kwong, S. S.

1966-01-01

FORTRAN 4 digital computer program calculates equilibrium composition of complex, multiphase chemical systems. This is a free energy minimization method with solution of the problem reduced to mathematical operations, without concern for the chemistry involved. Also certain thermodynamic properties are determined as byproducts of the main calculations.

Beach Profile Analysis Systems (BPAS). Volume VI. BPAS User’s Guide: Analysis Module VOLCTR.

Science.gov (United States)

1982-06-01

the two seawardmost points. Before computing volume changes, common bonds are established relative to the landward and seaward extent of the surveys on...bit word size, the FORTRAN- callable sort routine (interfacing with the NOS or NOSME operating system SORTMRG utility), and the utility subroutines and

Yes! The Business Department Teaches Data Processing

Science.gov (United States)

Nord, Daryl; Seymour, Tom

1978-01-01

After a brief discussion of the history and current status of business data processing versus computer science, this article focuses on the characteristics of a business data processing curriculum as compared to a computer science curriculum, including distinctions between the FORTRAN and COBOL programming languages. (SH)

AELIB user's manual

International Nuclear Information System (INIS)

Evans, L.E.; Klawitter, G.L.

1981-05-01

This report is an updatable manual for users of AELIB, the AECL Library of FORTRAN-callable routines for the CRNL CDC 6600/CYBER 170 system. It provides general advice on the use of this library and detailed information on the selection and usage of particular library routines

A manual to the MAXRAY program library for reflective and dispersive ray tracing

International Nuclear Information System (INIS)

Svensson, S.; Nyholm, R.

1985-07-01

A general ray tracing program package for reflective and dispersive X-ray optics is described. The package consists of a number of subroutines written in FORTRAN 77 code giving the necessary tools for ray tracing. The program package is available on request from the authors. (authors)

Chemical Equation Balancing.

Science.gov (United States)

Blakley, G. R.

1982-01-01

Reviews mathematical techniques for solving systems of homogeneous linear equations and demonstrates that the algebraic method of balancing chemical equations is a matter of solving a system of homogeneous linear equations. FORTRAN programs using this matrix method to chemical equation balancing are available from the author. (JN)

Implementation and adaption of the Computer Code ECOSYS/EXCEL for Austria as OECOSYS/EXCEL

International Nuclear Information System (INIS)

Hick, H.; Suda, M.; Mueck, K.

1998-03-01

During 1989, under contract to the Austrian Chamber of the Federal Chancellor, department VII, the radioecological forecast model OECOSYS was implemented by the Austrian Research Centre Seibersdorf on a VAX computer using VAX Fortran. OECOSYS allows the prediction of the consequences after a large scale contamination event. During 1992, under contract to the Austrian Federal Ministry of Health, Sports and Consumer Protection, department III OECOSYS - in the version of 1989 - was implemented on PC's in Seibersdorf and the Ministry using OS/2 and Microsoft -Fortran. In March 1993, the Ministry ordered an update which had become necessary and the evaluation of two exercise scenarios. Since that time the prognosis model with its auxiliary program and communication facilities is kept on stand-by and yearly exercises are performed to maintain its readiness. The current report describes the implementation and adaption to Austrian conditions of the newly available EXCEL version of the German ECOSYS prognosis model as OECOSYS. (author)

Conceptual Design of Object Oriented Program (OOP) for Pilot Code of Two-Fluid, Three-field Model with C++ 6.0

International Nuclear Information System (INIS)

Chung, Bub Dong; Lee, Young Jin

2006-01-01

Engineering software for design purpose in nuclear industries have been developed since early 1970s, and well established in 1980s. The most popular and common language for the software development has been FORTRAN series, until the more sophisticated GUI and software coupling is needed. The advanced computer language, such as C++, C has been developed to help the programming for the easy GUI need and reuse of well developed routines, with adopting the objective oriented program. A recent trend of programming becomes objective-oriented since the results are often more intuitive and easier to maintain than procedure program. The main motivation of this work is to capture objective oriented concepts for conventional safety analysis programs which consist of many functions and procedure oriented structures. In this work, the new objective programming with C++ 6.0 language has been tried for the PILOT code written in FORTRAN language, and conceptual OOP design of the system safety analysis code has been done

Software development assurance for special control computer sets on the base of the Electronica-60M microcomputer in the stations of fuel element nondestructive testing

International Nuclear Information System (INIS)

Vasil'kova, A.D.; Grachev, S.N.; Salakatova, L.S.

1987-01-01

A special computational control complex (SCCC) including the ''Elektronika-60M'' microcomputer, a device for communication with an object (DCO) based on the typical microprocessing set (TMS) based on LIUS-2 KTS means and an adapter for communication of the ''Elektronika-60M'' microcomputer bus with IK1 TMS bus developed for their conjugation is used for development of nondestructive control post software. An instrumental SCCC including SM-4 microcomputer, TMS units as DCO, an adapter for communication of the common bus of the SM-4 minicomputer with the IK1 TMS bus developed for their conjugation and devices for simulation of the facility operation is suggested to increase labour productivity of programmers. The SM-4 microcomputer permits to develop programs in the FORTRAN language and to carry out their effective adjustment. A subprogram library for communication with TMS units is compiled, and the technique for testing FORTRAN programs in programmable read-only memory TMS as well as start of these programs are developed

Tomographic Measurements of Longitudinal Phase Space Density

CERN Document Server

Hancock, S; McIntosh, E; Metcalf, M

1999-01-01

Tomography : the reconstruction of a two-dimensional image from a series of its one-dimensional projections is now a very broad topic with a wealth of algorithms for the reconstruction of both qualitative and quantitative images. One of the simplest algorithms has been modified to take into account the non-linearity of large-amplitude synchrotron motion in a particle accelerator. This permits the accurate reconstruction of longitudinal phase space density from one-dimensional bunch profile data. The algorithm was developed in Mathematica TM in order to exploit the extensive built-in functions and graphics. Subsequently, it has been recoded in Fortran 90 with the aim of reducing the execution time by at least a factor of one hundred. The choice of Fortran 90 was governed by the desire ultimately to exploit parallel architectures, but sequential compilation and execution have already largely yielded the required gain in speed. The use of the method to produce longitudinal phase space plots, animated sequences o...

FANAC - a shape analysis program for resonance parameter extraction from neutron capture data for light and medium-weight nuclei

International Nuclear Information System (INIS)

Froehner, F.H.

1977-11-01

A least-squares shape analysis program is described which is used at the Karlsruhe Nuclear Research Center for the extraction of resonance parameters from high-resolution capture data. The FORTRAN program was written for light to medium-weight or near-magic target nuclei whose cross sections are characterized on one hand by broad s-wave levels with negligible Doppler broadening but pronounced multi-level interference, on the other hand by narrow p-, d- ... wave resonances with negligible multi-level interference but pronounced Doppler broadening. Accordingly the Reich-Moore multi-level formalism without Doppler broadening is used for s-wave levels, and a single-level description with Doppler braodening for p-, d- ... wave levels. Calculated capture yields are resolution broadened. Multiple-collision events are simulated by Monte Carlo techniques. Up to five different time-of-flight capture data sets can be fitted simultaneously for samples containing up to ten isotopes. Input and output examples are given and a FORTRAN list is appended. (orig.)

Particle-in-cell plasma simulation codes on the connection machine

International Nuclear Information System (INIS)

Walker, D.W.

1991-01-01

Methods for implementing three-dimensional, electromagnetic, relativistic PIC plasma simulation codes on the Connection Machine (CM-2) are discussed. The gather and scatter phases of the PIC algorithm involve indirect indexing of data, which results in a large amount of communication on the CM-2. Different data decompositions are described that seek to reduce the amount of communication while maintaining good load balance. These methods require the particles to be spatially sorted at the start of each time step, which introduced another form of overhead. The different methods are implemented in CM Fortran on the CM-2 and compared. It was found that the general router is slow in performing the communication in the gather and scatter steps, which precludes an efficient CM Fortran implementation. An alternative method that uses PARIS calls and the NEWS communication network to pipeline data along the axes of the VP set is suggested as a more efficient algorithm

BASHAN: A few-group three-dimensional diffusion code with burnup and fuel management features

International Nuclear Information System (INIS)

Pearce, D.F.

1970-12-01

The diffusion equation for a two or three-dimensional, two-group or multi-group downscatter problem is solved by conventional finite difference techniques. An x-y-z geometry is assumed with an 'in-channel' mesh point representation. Options are available which allow representation of a soluble poison dispersed throughout the reactor, and also absorber rods in specified channels. The power distribution and multiplication factor k eff are calculated and a point rating map is used to advance the irradiation at each mesh point by a specified time-step so that burnup is followed. Fuel changes may be made so that radial shuffling and axial shuffling fuel management schemes can be studies. The code has been written in FORTRAN S2 for an IBM 7030 (STRETCH) computer which, with a fast store of 80,000 locations, allows problems of up to 15,000 mesh points to be dealt with. Conversion to FORTRAN IV for IBM 360 has now been completed. (author)

Development of an expert system for analysis of Shuttle atmospheric revitalization and pressure control subsystem anomalies

Science.gov (United States)

Lafuse, Sharon A.

1991-01-01

The paper describes the Shuttle Leak Management Expert System (SLMES), a preprototype expert system developed to enable the ECLSS subsystem manager to analyze subsystem anomalies and to formulate flight procedures based on flight data. The SLMES combines the rule-based expert system technology with the traditional FORTRAN-based software into an integrated system. SLMES analyzes the data using rules, and, when it detects a problem that requires simulation, it sets up the input for the FORTRAN-based simulation program ARPCS2AT2, which predicts the cabin total pressure and composition as a function of time. The program simulates the pressure control system, the crew oxygen masks, the airlock repress/depress valves, and the leakage. When the simulation has completed, other SLMES rules are triggered to examine the results of simulation contrary to flight data and to suggest methods for correcting the problem. Results are then presented in form of graphs and tables.

User's manual for CBS3DS, version 1.0

Science.gov (United States)

Reddy, C. J.; Deshpande, M. D.

1995-10-01

CBS3DS is a computer code written in FORTRAN 77 to compute the backscattering radar cross section of cavity backed apertures in infinite ground plane and slots in thick infinite ground plane. CBS3DS implements the hybrid Finite Element Method (FEM) and Method of Moments (MoM) techniques. This code uses the tetrahedral elements, with vector edge basis functions for FEM in the volume of the cavity/slot and the triangular elements with the basis functions for MoM at the apertures. By virtue of FEM, this code can handle any arbitrarily shaped three-dimensional cavities filled with inhomogeneous lossy materials; due to MoM, the apertures can be of any arbitrary shape. The User's Manual is written to make the user acquainted with the operation of the code. The user is assumed to be familiar with the FORTRAN 77 language and the operating environment of the computer the code is intended to run.