MINMAX.inc

1       SUBROUTINE MINMAX(DATA,IDIM,JDIM,LDIM,ITTL)                               
2       DIMENSION DATA(IDIM*JDIM,LDIM)                                            
3       CHARACTER*4 ITTL                                                          
4 C                                                                               
5       DO 100 L=1,LDIM                                                           
6       FMAX=DATA(1,L)                                                            
7       FMIN=DATA(1,L)                                                            
8       IJMAX=1                                                                   
9       IJMIN=1                                                                   
10       DO 200 IJ=1,IDIM*JDIM                                                     
11       IF(DATA(IJ,L).GT.FMAX) THEN                                               
12       FMAX=DATA(IJ,L)                                                           
13       IJMAX=IJ                                                                  
14       END IF                                                                    
15       IF(DATA(IJ,L).LT.FMIN) THEN                                               
16       FMIN=DATA(IJ,L)                                                           
17       IJMIN=IJ                                                                  
18       END IF                                                                    
19   200 CONTINUE                                                                  
20       JMIN=IJMIN/IDIM+1                                                         
21       IMIN=IJMIN-IDIM*(JMIN-1)                                                  
22 Crizvi      JMAX=IJMAX/IDIM+1                                                         
23 Crizvi      IMAX=IJMAX-IDIM*(J1MAX-1)                                                  
24 Crizvi      WRITE(6,300) ITTL,L,IMAX,JMAX,FMAX,IMIN,JMIN,FMIN                         
25       J1MAX=IJMAX/IDIM+1                                                         
26       I1MAX=IJMAX-IDIM*(J1MAX-1)                                                  
27       WRITE(6,300) ITTL,L,I1MAX,J1MAX,FMAX,IMIN,JMIN,FMIN                         
28   300 FORMAT(1H ,A4,'  LEVL=',I2,'  MAX(I,J)=',2I4,E12.5,                       
29      1                           '  MIN(I,J)=',2I4,E12.5)                       
30   100 CONTINUE                                                                  
31 C                                                                               
32       RETURN                                                                    
33       END SUBROUTINE MINMAX