CHARACTER(LEN=1) FUNCTION label1(indx)
IMPLICIT NONE

!=================================================================
! Function to obtain a character string used to label files from an
!    integer iterator.

INTEGER,INTENT(IN) :: indx

   IF (indx.lt.10)                    WRITE(label1,'(I1)') indx
   IF (indx.ge.10)                    WRITE(label1,'("X")') indx

END FUNCTION label1