pxfuname(3F)

NAME
     PXFUNAME - Retrieves the operating system name

SYNOPSIS
     INTEGER junam, ierror
     CALL PXFUNAME(junam, ierror)

STANDARDS
     IEEE standard interface for FORTRAN 77

DESCRIPTION
     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

     All arguments must be of default kind unless documented otherwise.  On
     IRIX systems, 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.

NOTES
     The PXF_DEFINITIONS module can be used by Fortran 90 users to enable
     caller-callee interface checking.

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)