| Routine ID: V300 | |
|---|---|
| Author(s): J. Zoll | Library: KERNLIB |
| Submitter: C. Letertre | Submitted: 01.03.1968 |
| Language: Fortran or Assembler | Revised: 16.09.1991 |
These routines fill each word of an array with zero, 'blank', or a quantity given in the argument list.
Structure:
SUBROUTINE subprograms
User Entry Names: UBLANK, UZERO, UFILL
Usage:
Required .
CALL UZERO(A,J1,J2)sets A(J1) until A(J2) to zero.
CALL UBLANK(A,J1,J2)sets A(J1) until A(J2) to BCD blank.
CALL UFILL(A,J1,J2,STUFF)loads A(J1) until A(J2) with the contents of STUFF.