pxfuname(3F)

NAME
     PXFUNAME - 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
     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 ALSO
     uname(2)
     PXFSTRUCTCREATE(3F)

     Application Programmer's Library Reference Manual for the printed
     version of this man page.