Changeset 21


Ignore:
Timestamp:
Nov 12, 2015 1:29:20 PM (3 years ago)
Author:
frank.e.curtis
Message:

Bug fix in schurQR.f

Files:
27 added
2 edited

Legend:

Unmodified
Added
Removed
  • stable/2.0/schurQR.f

    r13 r21  
    589589     *  lr,lc,li,lv,le,pp,qq)
    590590      implicit double precision (a-h,r-z), integer (i-q)
     591      double precision Q_
    591592      dimension a(*),la(*),Q_(*),R(*),EB(*),z(*),t(*),u(*),x(*),
    592593     *  d(*),ws(*),lr(*),lc(*),li(*),lv(*),le(*),pp(*),qq(*)
     
    713714     *  lr,lc,li,lv,le,pp,qq,ep)
    714715      implicit double precision (a-h,r-z), integer (i-q)
     716      double precision Q_
    715717      dimension a(*),la(*),b(*),Q_(*),R(*),EB(*),y(*),s(*),u(*),x(*),
    716718     *  d(*),ws(*),lr(*),lc(*),li(*),lv(*),le(*),pp(*),qq(*)
  • trunk/schurQR.f

    r13 r21  
    589589     *  lr,lc,li,lv,le,pp,qq)
    590590      implicit double precision (a-h,r-z), integer (i-q)
     591      double precision Q_
    591592      dimension a(*),la(*),Q_(*),R(*),EB(*),z(*),t(*),u(*),x(*),
    592593     *  d(*),ws(*),lr(*),lc(*),li(*),lv(*),le(*),pp(*),qq(*)
     
    713714     *  lr,lc,li,lv,le,pp,qq,ep)
    714715      implicit double precision (a-h,r-z), integer (i-q)
     716      double precision Q_
    715717      dimension a(*),la(*),b(*),Q_(*),R(*),EB(*),y(*),s(*),u(*),x(*),
    716718     *  d(*),ws(*),lr(*),lc(*),li(*),lv(*),le(*),pp(*),qq(*)
Note: See TracChangeset for help on using the changeset viewer.