!      SUBROUTINE FILL (IA,N,IVAL)<C_TITLE  FILL Fill an Integer*2 array with a constant value.C_DESCRIPTION -C Fill Integer*2 array with a Constant value.C_ARGUMENTS.      INTEGER*2 IA(*) ![O] Array to be filled.<      INTEGER*4  N    ![I] Number of locations to be filled.0      INTEGER*2 IVAL  ![O] Value to be inserted.$C_HISTORY  R. Mehlman UCLA 82APRIL23C_END      IF (N.LE.0) RETURN      DO 5 I=1,N 5      IA(I)=IVAL      RETURN	      END