"	SUBROUTINE CONREC1 (KON, Z,IA,RA)XC_TITLE  CONREC1  Prompt (with defaults), accept and log values for  NCAR routine CONRECC_ARGUMENTSB	INTEGER*4 KON(*)  ! [I] See explanation in GETN1.FOR and SET1.FOR*	REAL*4 Z(*)	  ! [I] Array to be contoured4	INTEGER*4 IA(6)   ! [I] Integer arguments of CONREC1	REAL*4 RA(3)      ! [I] Real arguments of CONRECC_KEYS   NCAR  PLOT
C_DESCRIPTIONC Arguments:  I=Input  O=Output8C I KON(1:10). See explanation in GETN1.FOR and SET1.FORQC I Z(*,*) = array to be contoured. Treated in this routine as singly dimensioned:C I IA(6) = integer arguments of CONREC, in the same order-C    calling routine must set items 1 thru 3.C	1) = L = first dimension of Z6C	2) = M = number of values to plot in the x direction6C	3) = N = number of values to plot in the y direction%C	4) = NSET = flag to control scaling>C	5) = NHI = flag to control extra information on contour plot5C	6) = NDOT = 10-bit constant designation dashed line7C I RA(3) = real arguments of CONREC, in the same order(C	1) = FLO = value of the lowest contour)C	2) = HI =  value of the highest contour(C	3) = FINC = increment between contoursC_CALLS  CONREC  GETNR  GETNI3C_HISTORY  85Sept15  Hugh_H_Kieffer  USGS_FlagstaffC_EndCC%	KON7 = KON(7)	! save range-test flag
	LOG = KON(4)#	KON(9) = 0	! set for normal return	IF (KON(10)-2) 1,500,1<1	IF (LOG.NE.0) WRITE(LOG,11)IA(1),IA(2),IA(3)	! array sizes;11	FORMAT(' CONREC1: Array limits passed down: L,M,N=',3I5)		KON(7)=0A	CALL GETNR (KON,3,'CONREC1: Contour min=FLO, max=HI, delta=FINC'HC____&___1_________2_________3_________4_________5_________6_________.72H     &,'('' FLO = lowest contour value  HI= highest''/''  If FLO=HI=0., G     &values rounded in from the extreme values of''/''  the array are H     &automatically generated''/'' FINC: >0 Increment between contours''H     &/''    =0 will yield 10-30 contours at nice levels''/''    <0 numb*     &er of contours is near ABS(FINC)'')'     &,0,0, RA)	IF (KON(9)) 9,3,9,3	CALL GETNI (KON,3,'CONREC1: NSET,NHI,NDOT'HC____&___1_________2_________3_________4_________5_________6_________.72>     &,'('' NSET: 0= auto-scale plus tics at data locations''/H     1''  >0 = presumes proper scaleing has been done by a call to SET''E     2/''  <0 = places plot within limits of last SET call, no tics''<     3/'' NHI: 0= Highs and lows marked with H/L and value''4     4/''  >0 = values plotted at each array point''&     5/''  <0 = neither of the above''>     6/'' NDOT: 10-bit constant for dashed pattern. 0= solid''/     7/''  >0 = pattern used for all contours''=     8/''  <0 = pattern used for negative-valued contours'')'     &,0,0, IA(4) )	IF (KON(9)) 9,5,1A5	IF (KON(10).LT.2) GOTO 9	! pass the arguments to NCAR routine ?7500	CALL CONREC (Z, IA(1),IA(2),IA(3),RA(1),RA(2),RA(3)     &,IA(4),IA(5),IA(6) )9	KON(7) = KON7	RETURN	END