steamv67(3f) - [M_steam67] print version information to unit and return version string
Synopsis
Description
Options
Return Values
Examples
subroutine steamv67(io,version)
integer,intent(in) :: io character(len=*),intent(out) :: version
Print information on the programming environment used to compile the library and return a version string.
IO Logical unit to write output to
VERSION short version string
A sample program that calls STEAMV and the resulting output follows: program demo_steamv use M_steam67, only : steamv67 implicit none character(len=20) :: version call steamv67(6,version) end program demo_steamvThe compile date (similar to the output from the Unix date(1) command) tells when it was compiled. The other information (similar to that produced by the uname(1) command) identifies where the compilation took place and what level of Operating System was used.****************************************************** * Westinghouse Electric Corporation * * Steam Table Routines, Version 1.0 * ****************************************************** Compiled & QAed on: System...........HP-UX O.S. Release.....A.08.07 O.S. Version.....A Hardware Name....9000/750 ****************************************************** Nodename.........daisy Machine ID.......2010465874 ****************************************************** Compile Date:Tue Aug 24 23:02:11 EDT 1993 ******************************************************
Nemo Release 3.1 | steamv67 (3) | February 23, 2025 |