H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Conversion to Fortran 90 by S. Cardie
Address as above.
Provides a user-interface for program MAP_STEEL_MUCG46_90.
Language: | FORTRAN 90 |
Product form: | Source code. |
MODULE MAP_Steel_Acquire_Data INTERFACE reed MODULE PROCEDURE MAP_UTIL_REED,MAP_UTIL_REEDI END INTERFACE CONTAINS SUBROUTINE LOGO() SUBROUTINE BOUND(A,B,C) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30), INTENT(INOUT) :: A REAL(KIND=real_8_30), INTENT(IN) :: B,C END SUBROUTINE BOUND SUBROUTINE MAP_UTIL_REED(A) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30),INTENT(OUT) :: A END SUBROUTINE MAP_UTIL_REED SUBROUTINE MAP_UTIL_REEDI(I) IMPLICIT NONE INTEGER,INTENT(OUT) :: I END SUBROUTINE SUBROUTINE REED_IN_FILE(C,ITYPE) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30), INTENT(INOUT) :: C INTEGER, INTENT(IN) :: ITYPE END SUBROUTINE REED_IN_FILE SUBROUTINE REED_IN_KEYS(C,ITYPE) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30), INTENT(INOUT) :: C INTEGER, INTENT(IN) :: ITYPE END SUBROUTINE REED_IN_KEYS SUBROUTINE CHECK_ITYPE(ITYPE,UPPER,LOWER) USE MAP_Util_Global_Data IMPLICIT NONE INTEGER,INTENT(IN) :: ITYPE REAL(KIND=real_8_30),INTENT(OUT) :: UPPER,LOWER END SUBROUTINE CHECK_ITYPE SUBROUTINE INPUT_TYPE(C) USE MAP_Util_Global_Data IMPLICIT NONE REAL(KIND=real_8_30),DIMENSION(8),INTENT(OUT) :: C END SUBROUTINE INPUT_TYPE END MODULE MAP_Steel_Acquire_Data
This module contains six public and two private procedures which allow the user to interact with the program MAP_STEEL_MUCG46_90. This module acquires data from the user (either via a data file or STDIN) and checks it for validity.
The PUBLIC procedures are:
The PRIVATE procedures are:
Additionaly, an interface block defines the generic procedure reed, which contains MAP_UTIL_REED and MAP_UTIL_REEDI.
None supplied.
LOGO neither receives nor returns any arguments. Its only function is to write to STDOUT
MAP_UTIL_REED has no input arguments.
MAP_UTIL_REEDI has no input arguments.
READ_IN_FILE:
READ_IN_KEYS:
This procedure performs the same task for STDIN as READ_IN_FILE does for data from a data file.
INPUT_TYPE has no input arguments.
BOUND:
CHECK_ITYPE:
LOGO neither receives nor returns any arguments. Its only function is to write to STDOUT
MAP_UTIL_REED:
MAP_UTIL_REEDI:
READ_IN_FILE:
READ_IN_KEYS:
This procedure performs the same task for STDIN as READ_IN_FILE does for data from a data file.
BOUND:
CHECK_ITYPE:
A certain amount of validity-checking is performed by reed and by BOUND. In the event of failure, the user is invited to re-submit the offending datum.
Not applicable
MAP_UTIL_REED and MAP_UTIL_REEDI are also available as Fortran 77 procedures.
Not applicable.
Data read from a file should be in the following format:
0.39 2.05 0.00 4.08 0.00 0.00 0.00
Not applicable.
Module: MAP_Util_Global_Data.
user interface, data entry, error trapping
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk