14      &      ASPK, IRN, ICN, COLSCA, ROWSCA, WK, LWK8, WK_REAL,  argument
22       DOUBLE PRECISION COLSCA(*), ROWSCA(*)  local
55             ROWSCA(I) = ONE
61      &        COLSCA,ROWSCA,MPG)
67      &      WK_REAL(IWNOR),WK_REAL(IWNOR+N),COLSCA,ROWSCA,MPG)
79      &    RNOR,CNOR,COLSCA,ROWSCA,MPRINT)  argument
84       DOUBLE PRECISION    COLSCA(N),ROWSCA(N)  local
141         ROWSCA(I) = ROWSCA(I) * RNOR(I)
189      &      COLSCA,ROWSCA,MPRINT)  argument
193       DOUBLE PRECISION      , INTENT(OUT) :: ROWSCA(N),COLSCA(N)  local
203        ROWSCA(I)   = ONE
212               ROWSCA(J) = ONE/(sqrt(VDIAG))
217         COLSCA(I) = ROWSCA(I)
223      &    RNOR,ROWSCA,MPRINT)  argument
229       DOUBLE PRECISION ROWSCA(N)  local
257         ROWSCA(I) = ROWSCA(I)* RNOR(I)
374           ANORMINF = max(abs(id%ROWSCA(I) * SUMR(I)),