[MAP Logo]

Materials Algorithms Project
Program Library


Subroutine MAP_STEEL_ISO

  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 read in which calculation mode is required and set initial volume fraction accordingly.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_STEEL_ISO(IN, VOL, MAXVOL, VF)

DOUBLE PRECISION VOL, MAXVOL, VF

INTEGER IN

Top | Next | Prev

Description

Gives the choice of three calculation modes within the program: isothermal with a range of volume fractions of bainite (up to the maximum possible), isothermal for one specific volume fraction of bainite, or continuous cooling. If isothermal, one volume fraction, is selected then the volume fraction is requested and read in. This is then checked that it is within the limits 0 to the maximum possible (MAXVOL). For the other options the volume fraction is set to 0.

Top | Next | Prev

References

1. N.A. Chester, 1997, PhD Thesis, University of Cambridge.

Top | Next | Prev

Parameters

Input parameters

IN - integer
IN is the inputted choice of mode (1, 2 or 3).

MAXVOL - real
MAXVOL is the maximum volume fraction of bainitic ferrite at a given temperature (can be calculated using function MAP_STEEL_MV).

VF - real
VF is the volume fraction (for mode 2).

Output parameters

VOL - real
VOL is either the volume fraction inputted for mode 2 or set to 0 for modes 1 and 3.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

       DOUBLE PRECISION VOL, MAXVOL, VF 
       INTEGER IN
       READ (5,*) IN, MAXVOL, VF
       CALL MAP_STEEL_ISO(IN,VOL,MAXVOL,VF)
       WRITE (6,10) VOL
10     FORMAT ('Volume fraction = ',E13.5)
       STOP
       END

2. Program data

2   0.266   0.2

3. Program results

Volume fraction = 0.20D0

Top | Next | Prev

Auxiliary Routines

Subroutines
MAP_UTIL_BOUND
MAP_UTIL_REED (called by MAP_UTIL_BOUND)

Top | Next | Prev

Keywords

bainite, isothermal, continuous cooling

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!