5 * Revision 1.1.1.1 1996/04/01 15:02:50 mclareni
10 SUBROUTINE FINDEM(F,NUMBCS,CONTUR)
11 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
13 C TO FIND REASONABLE CONTOUR VALUES FOR A USER WHO HAS NOT C
14 C ALREADY MADE UP HIS MIND. (AUXILIARY TO CONT.) C
16 C CALL FINDEM(F,NUMBCS,CONTUR) C
18 C F - THE FUNCTION TO BE PLOTTED BY CONT C
19 C NUMBCS - THE DESIRED NUMBER OF CONTOURS C
20 C CONTUR - AN ARRAY INTO WHICH THE CONTOUR VALUES WILL BE RETURNED.C
21 C THE CHOSEN NAME FOR F MUST APPEAR IN AN EXTERNAL STATEMENT IN C
22 C THE PROGRAM CALLING FINDEM. C
23 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
26 COMMON /J509C1/XBL,YBL,XUR,YUR,NX(6),NY(6),LETT1,LETT2,LINE1,LINE2
27 C=======================================================================
28 IF(1.LE.NUMBCS .AND. NUMBCS.LE.10)GO TO 10
36 DXVAL = 2.*(XUR-XBL)/(LETT2-LETT1)
38 DYVAL = 2.*(YUR-YBL)/(LINE2-LINE1)
39 DO 30 LETT= LETT1,LETT2,2
42 DO 20 LINE= LINE1,LINE2,2
45 IF(FNOW .LT. FMIN)FMIN=FNOW
46 IF(FNOW .GT. FMAX)FMAX=FNOW
52 STEP=(CLAST-CFIRST)/(NUMBCS-1)
54 40 CONTUR(NUMBC)=CFIRST+(NUMBC-1)*STEP
56 1010 FORMAT(' HOW MANY CONTOURS DID YOU WANT---',I10,'---(FINDEM)')