Previous: utrsa Up: ../plot79_u.html Next: utrsc

UTRSB

       SUBROUTINE  UTRSB (ZE, MX,MY, NX,NY, BVALUE)
 C$    (Shift and Border Array)
 C$    It is sometimes convenient for hidden-line drawings to form
 C$    "curtains" around the border of  the figure by setting  the
 C$    function values on  the edge to  a constant value  somewhat
 C$    below the average surface  level.  This routine shifts  the
 C$    NX by NY  portion of the  array over one  row and down  one
 C$    column, then fills the borders to the specified value.   An
 C$    error message is issued if  there is insufficient space  in
 C$    the array to do this.  The arguments are:
 C$
 C$    ZE(NX,NY)......Array of  function values.   On return,  the
 C$                   array will be expanded to ZE(NX+2,NY+2).
 C$    (MX,MY)........Actual  declared   dimensions  of   ZE(*,*).
 C$                   (MX-2 .GE. NX, MY-2 .GE. NY)
 C$    BVALUE.........Border value to be placed along the edges of
 C$                   ZE(*,*).
 C$    (09-APR-82)