PXFUNAME(3F) Last changed: 1-6-98
PXFUNAME - Retrieves the operating system name
INTEGER junam, ierror
CALL PXFUNAME(junam, ierror)
UNICOS, UNICOS/mk, and IRIX systems
IEEE standard interface for FORTRAN 77
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.
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)
uname(2)
PXFSTRUCTCREATE(3F)
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
PXFUNAME(3F) Last changed: 1-6-98
PXFUNAME - Retrieves the operating system name
INTEGER junam, ierror
CALL PXFUNAME(junam, ierror)
UNICOS, UNICOS/mk, and IRIX systems
IEEE standard interface for FORTRAN 77
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.
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)
uname(2)
PXFSTRUCTCREATE(3F)
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
[ Back ]
|
