MONTWO.inc

1       SUBROUTINE MONTWO(DATA1,DATA2,CLV1,CLV2,IJMAX,KMAX)
2 C----------------------------------------------------------------------         
3       DIMENSION DATA1(IJMAX,KMAX),DATA2(IJMAX,KMAX),
4      1          DIFF (IJMAX,KMAX)
5 	  CHARACTER*11 CLV2,CLV1
6 	  DIMENSION VMX1(KMAX),VMN1(KMAX),VMX2(KMAX),VMN2(KMAX),
7      1          DMX (KMAX),DMN (KMAX)
8 C
9 	  DIFF=DATA1-DATA2
10 	  VMX1=MAXVAL(DATA1,DIM=1)
11 	  VMN1=MINVAL(DATA1,DIM=1)
12 	  VMX2=MAXVAL(DATA2,DIM=1)
13 	  VMN2=MINVAL(DATA2,DIM=1)
14 	  DMX =MAXVAL(DIFF ,DIM=1)
15 	  DMN =MINVAL(DIFF ,DIM=1)
16 C
17 	  WRITE(6,*)'           ',CLV1,'        ',CLV2,
18      1                            '        DIFF. OF 1 - 2'
19 	  WRITE(6,*)'LEVEL    MIN       MAX       MIN       MAX       MIN
20      1       MAX'
21 	  DO K=1,KMAX
22 		WRITE(6,'(I5,6F10.3)')K,VMN1(K),VMX1(K),VMN2(K),VMX2(K),
23      1                          DMN (k),DMX (K)
24 	  END DO
25 C
26 	  RETURN
27 	  END SUBROUTINE MONTWO