s not referenced.

  LDA     INTEGER
          The leading dimension of the array A.
          LDA &gt;= MAX(1,N), if JOBSCL &lt;&gt; 'N';
          LDA &gt;= 1,        if JOBSCL =  'N'.

  QG      (input/output) DOUBLE PRECISION array, dimension
          (LDQG,N+1)
          On input, if JOBSCL &lt;&gt; 'N', the leading N-by-N lower
          triangular part of this array must contain the lower
          triangle of the lower left symmetric block Q of the
          Hamiltonian matrix H in (1), and the N-b