	subroutine scaleit(factor, ixsz, iysz, arry, xrry, zmin, zmax)
c;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c Thu Aug 12 13:19:43 MDT 1993 
c;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	dimension arry(iysz,ixsz), xrry(iysz,ixsz) 
c	dimension arry(37,73), xrry(37,73) 
	data dfact /10.0/

	zmin=  9.99e4
	zmax= -9.99e4

c	write (6, '("scaleit (1): iysz= ",i2,", ixsz= ",i2)')
c     1	 iysz, ixsz

	goto 10
c;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        if (factor .eq. 0.0) goto 10
        if (factor .eq. 1.0) then
          do i= 1, iysz 
            do j= 1, ixsz 
              if (arry(i,j) .le. 0.0) then
                if (arry(i,j) .eq. 0.0) then
                   xrry(i,j)= 0.0
                  else
                   xrry(i,j)= -alog10(-arry(i,j))*dfact
                endif
               else
                xrry(i,j)= alog10(arry(i,j))*dfact
              endif
            enddo
          enddo
         else
          do i= 1, iysz 
            do j= 1, ixsz 
              xrry(i,j)= arry(i,j)*factor
            enddo
          enddo
        endif
c;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10	continue

	do i= 1, iysz 
	  do j= 1, ixsz 
	    xrry(i,j)= factor*arry(i,j)
	    if (xrry(i,j) .lt. zmin) zmin= xrry(i,j)
	    if (xrry(i,j) .gt. zmax) zmax= xrry(i,j)
	  enddo
	enddo

c	write (6, '("scaleit (2): Zmin= ",f12.2,", Zmax= ",f12.2)')
c     1   Zmin, Zmax

	return
	end
