The R Project SVN R

Rev

Rev 22546 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 22546 Rev 22561
Line 25705... Line 25705...
25705 
      RETURN
 25705 
      RETURN
25706 
*
 25706 
*
25707 
*     End of DRSCL
 25707 
*     End of DRSCL
25708 
*
 25708 
*
25709 
      END
 25709 
      END
25710 
      DOUBLE PRECISION FUNCTION DSECND( )
 - 
 
25711 
*
 - 
 
25712 
*  -- LAPACK auxiliary routine (version 3.0) --
 - 
 
25713 
*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
 - 
 
25714 
*     Courant Institute, Argonne National Lab, and Rice University
 - 
 
25715 
*     September 30, 1994
 - 
 
25716 
*
 - 
 
25717 
*  Purpose
 - 
 
25718 
*  =======
 - 
 
25719 
*
 - 
 
25720 
*  DSECND returns the user time for a process in seconds.
 - 
 
25721 
*  This version gets the time from the system function ETIME.
 - 
 
25722 
*
 - 
 
25723 
* =====================================================================
 - 
 
25724 
*
 - 
 
25725 
*     .. Local Scalars ..
 - 
 
25726 
      REAL               T1
 - 
 
25727 
*     ..
 - 
 
25728 
*     .. Local Arrays ..
 - 
 
25729 
      REAL               TARRAY( 2 )
 - 
 
25730 
*     ..
 - 
 
25731 
*     .. External Functions ..
 - 
 
25732 
      REAL               ETIME
 - 
 
25733 
      EXTERNAL           ETIME
 - 
 
25734 
*     ..
 - 
 
25735 
*     .. Executable Statements ..
 - 
 
25736 
*
 - 
 
25737 
      T1 = ETIME( TARRAY )
 - 
 
25738 
      DSECND = TARRAY( 1 )
 - 
 
25739 
      RETURN
 - 
 
25740 
*
 - 
 
25741 
*     End of DSECND
 - 
 
25742 
*
 - 
 
25743 
      END
 - 
 
25744 
      SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
 25710 
      SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
25745 
     $                   LDZ, J1, N1, N2, WORK, LWORK, INFO )
 25711 
     $                   LDZ, J1, N1, N2, WORK, LWORK, INFO )
25746 
*
 25712 
*
25747 
*  -- LAPACK auxiliary routine (version 3.0) --
 25713 
*  -- LAPACK auxiliary routine (version 3.0) --
25748 
*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
 25714 
*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,