!   test_arry_max_val.mac (VERIFICATION)
!
mod_assemb_prep
!
*dim,jim,array,6,6,2
!
p=1
c=1
jim(1,c,p)=2
jim(2,c,p)=1
jim(3,c,p)=11
jim(4,c,p)=12
jim(5,c,p)=28
jim(6,c,p)=7
!
c=2
jim(1,c,p)=16
jim(2,c,p)=13
jim(3,c,p)=82
jim(4,c,p)=42
jim(5,c,p)=10
jim(6,c,p)=0
!
c=3
jim(1,c,p)=7
jim(2,c,p)=8
jim(3,c,p)=6
jim(4,c,p)=9
jim(5,c,p)=14
jim(6,c,p)=10
!
c=4
jim(1,c,p)=3
jim(2,c,p)=27
jim(3,c,p)=66
jim(4,c,p)=19
jim(5,c,p)=8
jim(6,c,p)=4
!
c=5
jim(1,c,p)=4
jim(2,c,p)=5
jim(3,c,p)=7
jim(4,c,p)=6
jim(5,c,p)=15
jim(6,c,p)=30
!
c=6
jim(1,c,p)=6
jim(2,c,p)=8
jim(3,c,p)=1
jim(4,c,p)=22
jim(5,c,p)=0
jim(6,c,p)=18
!
!
p=2
c=1
jim(1,c,p)=2
jim(2,c,p)=44
jim(3,c,p)=12
jim(4,c,p)=1
jim(5,c,p)=322
jim(6,c,p)=92
!
c=2
jim(1,c,p)=14
jim(2,c,p)=78
jim(3,c,p)=20
jim(4,c,p)=61
jim(5,c,p)=1
jim(6,c,p)=199
!
c=3
jim(1,c,p)=3
jim(2,c,p)=128
jim(3,c,p)=53
jim(4,c,p)=43
jim(5,c,p)=33
jim(6,c,p)=18
!
c=4
jim(1,c,p)=88
jim(2,c,p)=101
jim(3,c,p)=1
jim(4,c,p)=280
jim(5,c,p)=51
jim(6,c,p)=77
!
c=5
jim(1,c,p)=21
jim(2,c,p)=82
jim(3,c,p)=72
jim(4,c,p)=52
jim(5,c,p)=6
jim(6,c,p)=38
!
c=6
jim(1,c,p)=18
jim(2,c,p)=11
jim(3,c,p)=2
jim(4,c,p)=43
jim(5,c,p)=27
jim(6,c,p)=12
!
!
!
*dim,jim1,array,6,6,2
!
p=1
c=1
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!
c=2
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!
c=3
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!               
c=4
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!
c=5
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!               
c=6
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!
!
p=2
c=1
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!               
c=2
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!
c=3
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!               
c=4
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!
c=5
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!               
c=6
jim1(1,c,p)=-100
jim1(2,c,p)=-100
jim1(3,c,p)=-100
jim1(4,c,p)=-100
jim1(5,c,p)=-100
jim1(6,c,p)=-100
!
!
!                        (1)     (2) (3) (4) (5) (6) (7)
!       ARRY_MAX_VAL, 'arrynam', ri, rf, ci, cf, pi, pf
!
!ARRY_MAX_VAL,'jim',1,4,2,4,1,1
!
!ARRY_MAX_VAL,'jim',1,4,2,4
!
!ARRY_MAX_VAL,'jim',6,4,3,7,,3
!
ARRY_MAX_VAL,'jim',,,4,6,,1
!
!ARRY_MAX_VAL,'jim',
!
!
!                        (1)     (2) (3) (4) (5) (6) (7)
!       ARRY_MIN_VAL, 'arrynam', ri, rf, ci, cf, pi, pf
!
!ARRY_MIN_VAL,'jim',1,4,2,4,1,1
!
!ARRY_MIN_VAL,'jim',3,,,,
!
ARRY_MIN_VAL,'jim',6,4,3,7,,3
!
!ARRY_MIN_VAL,'jim',4,6,1,3
!
!ARRY_MIN_VAL,'jim',
!
!
!                           (1)         (2)      (3) (4) (5) (6) (7) (8)
!        ARRY_TRANSFER, 'sourc_nam', 'targ_nam', ri, rf, ci, cf, pi, pf
!
arry_transfer,'jim','fred'
arry_transfer,'jim','bob',2,4,3,6
arry_transfer,'jim','bill',,,4,4,1,1
arry_transfer,'jim','sam',5,5,,,2,2
!arry_transfer,'jim1','fred'
!arry_transfer,'jim1','fred',2,4,3,6,1,
arry_transfer,'jim1','fred',2,4,3,6,1,,3,3