PXFUNAME(3F) Last changed: 1-6-98
NAMEPXFUNAME - Retrieves the operating system name
SYNOPSIS
INTEGER junam, ierror
CALL PXFUNAME(junam, ierror)
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
STANDARDS
IEEE standard interface for FORTRAN 77
DESCRIPTION
On IRIX systems, this routine is in libfortran.so which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the -craylibs option to the MIPSpro
7.2 F77 compiler.
The PXFUNAME routine uses the uname() system call to get the
components of the operating system name.
The components of the utsname structure are:
* sysname: Name of the operating system
* nodename: Name of node in the operating system
* release: Current release level of the operating system
* version: Current version level of the release
* machine: Name of hardware type currently executing the program
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KIND=8 for integer, real, complex, and logical arguments; on
IRIX, the default kind is KIND=4.
The following is a list of valid arguments for this routine:
junam An input integer variable or array element containing a
handle for a utsname structure. This should have been
created by a call to the PXFSTRUCTCREATE(3F) routine.
ierror An output integer variable that contains zero if PXFUNAME
returned the structure successfully or nonzero if PXFUNAME
was unable to return the structure.
EXAMPLES
program test
integer junam, ierr, ilen
character*15 sname, nname, rel, vers, mach
call pxfstructcreate('utsname',junam,ierr)
call pxfuname(junam,ierr)
IF (ierr.ne.0) then
print *,'FAIL: error from pxfuname = ',ierr
else
print *,'PASS: No error from pxfuname = '
endif
ilen = 0
call pxfstrget(junam,'sysname',sname,ilen,ierr)
ilen = 0
call pxfstrget(junam,'nodename',nname,ilen,ierr)
ilen = 0
call pxfstrget(junam,'release',rel,ilen,ierr)
ilen = 0
call pxfstrget(junam,'version',vers,ilen,ierr)
ilen = 0
call pxfstrget(junam,'machine',mach,ilen,ierr)
print *, 'sysname=',sname
print *, 'nodename=',nname
print *, 'release=',rel
print *, 'version=',vers
print *, 'machine=',mach
call pxfstructfree(junam,ierr)
SEE ALSOuname(2)PXFSTRUCTCREATE(3F)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.