[MAP Logo]

Materials Algorithms Project
Program Library


Subroutine MAP_STEEL_RCOOL

  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 continuous cooling many steps option and to cut each step into smaller isothermal time/temperature steps.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_STEEL_RCOOL(AB4,J2,J3,COTEMP,COTIME)

DOUBLE PRECISION COTEMP(1000),COTIME(1000),RTEMP(100),RTIME(100)
DOUBLE PRECISION AB4, STEMP, STIME

INTEGER I, IA, J, JA, J2, J3, J5

Top | Next | Prev

Description

The time/temperature pairs are read from file "cooling". The time is in seconds and the temperature is in deg. C, and there is an upper limit of 100 lines of data which can be read in. Each step is cut into AB4+1 smaller isothermal steps and arrays COTEMP and COTIME formed. (AB4, COTEMP and COTIME are defined below).

Top | Next | Prev

References

None supplied.

Top | Next | Prev

Parameters

Input parameters

AB4 - double precision
AB4 is the factor by which each time and temperature interval is divided.

cooling - external file
ASCII text file containing time and temperature pairs. Units are seconds for time and deg C for temperature. A typical file entry is given below.

Output parameters

J2 - integer
J2 the total number of time/temperature pairs in the COTEMP and COTIME arrays.

J3 - integer
J3 is the number of time/temperature pairs in the cooling file.

COTEMP - double precision array with 1000 elements
COTEMP holds the cooling temperatures (including the small steps) in K.

COTIME - double precision array with 1000 elements
COTIME holds the cooling times (including the small steps) in seconds.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

Used in program MAP_STEEL_SPEED.

Top | Next | Prev

Example

1. Program text

       PROGRAM RCOOLEX
       IMPLICIT NONE
       DOUBLE PRECISION COTEMP(1000),COTIME(1000)
       DOUBLE PRECISION AB4
       INTEGER I, J2, J3
C
       WRITE(6,*) 'No. of isothermal steps? '
       READ(5,*)  AB4
C
       WRITE(6,*) 
       WRITE(6,1000) AB4
       write(6,*)
C
       CALL MAP_STEEL_RCOOL(AB4,J2,J3,COTEMP,COTIME)
C
       WRITE(6,*) 'Time/temperature pairs in arrays: ', J2
       WRITE(6,*) 'Time/temperature pairs in cooling file: ', J3
       WRITE(6,*)
C
       WRITE(6,*) ' TIME(s)     TEMP(K)'
       WRITE(6,*)
C
       DO 10, I = 1, J2
        WRITE(6,1005) COTIME(I), COTEMP(I)
10     CONTINUE
C
       STOP
1000   FORMAT(F4.1, ' steps chosen')
1005   FORMAT(F5.1,'        ', F5.1)
       END

2. Program data

AB4=10

cooling file:
	0	600
	125	350
	175	300
	300	20

3. Program results

10.0 steps chosen

Time/temperature pairs in arrays:   31
Time/temperature pairs in cooling file:   4

 TIME(s)     TEMP(K)

  0.0        873.0
 12.5        848.0
 25.0        823.0
 37.5        798.0
 50.0        773.0
 62.5        748.0
 75.0        723.0
 87.5        698.0
100.0        673.0
112.5        648.0
125.0        623.0
130.0        618.0
135.0        613.0
140.0        608.0
145.0        603.0
150.0        598.0
155.0        593.0
160.0        588.0
165.0        583.0
170.0        578.0
175.0        573.0
187.5        545.0
200.0        517.0
212.5        489.0
225.0        461.0
237.5        433.0
250.0        405.0
262.5        377.0
275.0        349.0
287.5        321.0
300.0        293.0

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

continuous cooling, isothermal

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!