SUBROUTINE WHERE(X,Y,FACT) C C This subroutine returns the current location and factor C in user units C COMMON/INIT/ILUN,FACTOR,IMODE,IPENST CALL PLOT(X,Y,4) FACT=FACTOR RETURN END