CHARACTER(LEN=2) FUNCTION label2(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(label2,'("0",I1)') indx
   IF (indx.ge.10.and.indx.lt.100)    WRITE(label2,'(I2)') indx
   IF (indx.ge.100)                   WRITE(label2,'("XX")') indx

END FUNCTION label2