[MAP Logo]

Materials Algorithms Project
Program Library


Function MAP_UTIL_FUNCT

  1. Provenance of code.
  2. Purpose of code.
  3. Specification.
  4. Description of subroutine's operation.
  5. References.
  6. Parameter descriptions.
  7. Error indicators.
  8. Accuracy estimate.
  9. Any additional information.
  10. Example of code
  11. Auxiliary subroutines required.
  12. Keywords.
  13. Download source code.
  14. Links.

Provenance of Source Code

N.A. Chester,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.

Top | Next

Purpose

To calculate the sum of the first twenty elements of an infinite series [1]; called by MAP_STEEL_NEWF2.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code 

DOUBLE PRECISION FUNCTION MAP_UTIL_FUNCT(X)

DOUBLE PRECISION X,MAP_UTIL_FUNCT

Top | Next | Prev

Description

The function MAP_UTIL_FUNCT calculates the first twenty terms of an infinite series [1]:

f(x) = x/1! + x2/2.2! + x3/3.3! + ...

This summation is required to solve the integral equation in MAP_STEEL_NEWF2.

Top | Next | Prev

References

  1. K. Rectorys, Survey of Applicable Mathematics, ILIFFE Books Ltd, London, p543, equation 410.

Top | Next | Prev

Parameters

Input parameters

X - real
X is the value for which the series is to be evaluated.

Output parameters

MAP_UTIL_FUNCT - real
MAP_UTIL_FUNCT is the sum of the first twenty terms of the series evaluated at X.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

Called by MAP_STEEL_NEWF2.

Top | Next | Prev

Example

1. Program text

      DOUBLE PRECISION X, MAP_UTIL_FUNCT, FUNX
      WRITE(*,*) 'Input value for x:'
      READ (*,*) X
      FUNX = MAP_UTIL_FUNCT(X)
      WRITE (*,1) FUNX
    1 FORMAT (' Series sum = ',E13.5)
      STOP
      END

2. Program data

 Input value for x:
 0.02

3. Program results

 Series sum =   0.20100E-01

Top | Next | Prev

Auxiliary Routines

MAP_UTIL_FACT

Top | Next | Prev

Keywords

series, summation

Top | Next | Prev

Download

Download source code

Top | Prev

MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.

MAP Website administration / map@msm.cam.ac.uk

Top | Index | MAP Homepage Valid HTML 3.2!