SUBROUTINE SQADSQ (R, a, b, cona, conb, ni, nj, nb)

ARGUMENTS

OUT

R(NI,NJ)  array containing result            real

IN

A(NI,NJ)  first array to be operated on      real
B(NI,NJ)  second array to be operated on     real
CONA      scaling factor for array A         real
CONB      scaling factor for array B         real
NI        x-dimension of arrays A, B and R   integer 
NJ        y-dimension of arrays A, B and R   integer
NB        border rows to omit                integer
  (1,NJ)      (NI,NJ)  
   +-------------+
   |             | 
   |             |  arrays A, B and R 
   |             |
   |             |
   |             |
   +-------------+
  (1,1)       (NI,1)

DESCRIPTION

EXAMPLE

NOTES

NB  4-digit integer number which allows at most nine 
    rows on any side of the grid to be skipped.
    NB = d1*1000 + d2*100 +d3*10 + d4
    d1 = columns are skipped from left
    d2 = rows are skipped from bottom
    d3 = columns are skipped from right
    d4 = rows are skipped from top
    ex.:  NB=0000 include all borders (written as 0) 
      NB=1111 omit one row all around the grid 
      NB=2241 indicates that the 2 columns on the left of a, 
        2 rows at the bottom,  4 columns at the right 
        and 1 row at the top are not operated on and the 
        corresponding rows and columns of R are left 
        undefined by the routine

SEE ALSO