arrays-RowScale.inc

c*    Array dynamically allocated in this routine:
c*
c*    real factor (ia(_JT_nrows_))