Previous: utsama Up: ../plot79_u.html Next: utsesc

UTSDSH

       SUBROUTINE  UTSDSH (VALID,ARRAY,I,SET,J,MAXSET)
 C$    (DODASH - Internal - Do Dash)
 C$    Expand ARRAY(I-1) ... ARRAY(I+1) into SET(J)... from VALID.
 C$    No error indication  is returned if  SET(*) was too  small,
 C$    but it will never be written beyond its last element.
 INCLUDE,L (KP Credit)
 C$    (13-SEP-84)