SUBROUTINE FACTOR(FACT) C C This routine sets the scaling factor for the entire graph C COMMON/INIT/ILUN,FACTOR,IMODE,IPENST FACTOR=FACT RETURN END