Directory of image this file is from
This file as a plain text file

      SUBROUTINE RESCAL
      COMMON /TKTRNX/ TMINVX,TMINVY,TMAXVX,TMAXVY,TREALX,TREALY,
     1 TIMAGX,TIMAGY,TRCOSF,TRSINF,TRSCAL,TRFACX,TRFACY,
     2 TRPAR1,TRPAR2,TRPAR3,TRPAR4,TRPAR5,TRPAR6,KMOFLG(8),KPAD2,
     3 KBAUDR,KGNFLG,KGRAFL,KHOMEY,KKMODE,KHORSZ,KVERSZ,KTBLSZ,
     4 KSIZEF,KLMRGN,KRMRGN,KFACTR,KTERM,KLINE,KZAXIS,KBEAMX,KBEAMY,
     5 KMOVEF,KPCHAR(5),KDASHT,KMINSX,KMINSY,KMAXSX,KMAXSY,KEYCON,
     6 KINLFT,KOTLFT,KUNIT
      KEY=KEYCON
      IF(KEYCON .LT. 1)KEY=5
      IF(KEYCON .GT. 4)KEY=4
C * BRANCH TO PROPER SECTION AND RETURN
C * LINEAR LOG POLAR USER ERROR
      GO TO (100,200,300,400,500),KEY
C * BOTH AXES LINEAR
100   TRPAR1=0.
C * SEMI LOG OR LOG LOG
200   KEYL=TRPAR1+1.001
C * X AXIS -- LINEAR OR LOG
      GO TO (210,220,210,220),KEYL
C * LINEAR
210   TRFACX=FLOAT(KMAXSX-KMINSX)/(TMAXVX-TMINVX)
      GO TO 250
C * SEMI LOG X AXIS
220   TRPAR2=ALOG(TMINVX)
      TRFACX=FLOAT(KMAXSX-KMINSX)/(ALOG(TMAXVX)-TRPAR2)
C * Y AXIS -- LINEAR OR LOG
250   GO TO (260,260,280,280),KEYL
C * LINEAR
260   TRFACY=FLOAT(KMAXSY-KMINSY)/(TMAXVY-TMINVY)
      GO TO 600
C * SEMI LOG Y AXIS
280   TRPAR3=ALOG(TMINVY)
      TRFACY=FLOAT(KMAXSY-KMINSY)/(ALOG(TMAXVY)-TRPAR3)
      GO TO 600
C * POLAR SCALING
300   CALL PSCAL
      GO TO 600
C * USER FUNTION
400   CONTINUE
C     CALL URSCAL
      GO TO 600
C * NO SCALE
500   TRFACX=1.
      TRFACY=1.
600   RETURN
      END