SUBROUTINE UI
USE Numeric_Kinds_Module
!
!   $RCSfile: ui.f,v $ $Revision: 1.3 $
!   $Date: 89/07/28 09:57:50 $
!   $State: Stable $
!
!
! **********************************************************************
!
!     PURPOSE -
!
!         WHEN CALLED THIS ROUTINE FILLS THE COMMONBLOCK /STLMUI/ WITH
!         INFORMATION.
!
!     PLEASE SEE THE PROGRAMMERS GUIDE FOR INFORMATION ABOUT
!     PARAMETERS NOT EXPLAINED ABOVE, AND FOR MORE DETAILS ABOUT
!     THE FUNCTION OF THE ROUTINE.
!
!
! **********************************************************************
!
REAL(Kind=WP_Kind) ALTMU, CK, CL, COEFF, MU, NEXTMU, OLDMU, R, RDUMP, SECOND, TIME, TIMTQL, TLDL, TOPINV, TOPM, TPRED, TSAVE, TVECOP
INTEGER   CNEG, CNEGF, CONV, COUNT, CPOS, DUMMY, ERRNO, I, IDUMP,  ITERNO, MV, MXNEW, MXOLD, MXRST, N, NBADMU, NIL, NMXRST,   &
                OLCPOS, P, PFCONV, REST, RFIRST, RNEW, ROLD, SCPX,  SOLCPX, TCONV, V, X
LOGICAL   SAFRST, UPDATE, USEMX, ZERBET
COMMON   /STLMCT/ N, ITERNO, TCONV, CNEG, CPOS, OLCPOS, RNEW, ROLD, REST, P, USEMX, ZERBET
COMMON   /STLMER/ RDUMP, ERRNO, IDUMP(2)
COMMON   /STLMFT/ CNEGF, RFIRST, SAFRST
COMMON   /STLMID/ NIL, MV, V, MXNEW, MXOLD, MXRST, SCPX, SOLCPX, X
COMMON   /STLMMU/ MU, OLDMU, NEXTMU, ALTMU
COMMON   /STLMOP/ TLDL, TOPINV, TOPM, TIMTQL, TVECOP, TPRED, TSAVE, COEFF(4), CK, CL, CONV, PFCONV, UPDATE
COMMON   /STLMST/ TIME(24), COUNT(24), NBADMU, NMXRST, DUMMY
COMMON   /STLMUI/ R(5), I(9)
!
R(2) = OLDMU
R(3) = MU
R(4) = SECOND(DUMMY) - TIME(20)
R(5) = TPRED
!
I(1) = CNEGF
I(2) = CPOS
I(3) = ERRNO
I(4) = ITERNO
I(5) = N
I(6) = RFIRST
I(7) = RNEW
I(8) = TCONV
I(9) = X
!
RETURN
END