        SUBROUTINE MYGLASS(I)
        IMPLICIT NONE
        INTEGER I
C       CONVERTS CATALOG GLASS TO GLASS
C       AUTOMATICALLY
        INCLUDE 'DATMAI.INC'
        INCLUDE 'DATLEN.INC'
        GLANAM(I,1)='GLASS'
                        RETURN
                        END
