      SUBROUTINE SPG(SPGR,SPGRN,SPGRA,ICRS,IPASS)
C      ############################################################
C      #                                                          #
C      #                          SPG                             #
C      #                                                          #
C      ############################################################
C**********************************************************************
C
C-----ROUTINE TO ASSIGN THE SPACE GROUP NUMBER AND ORIENTATION CODE AND
C-----ASPECT CODE FOR THE SPACE GROUP SPGR
C
C-----IPASS = 1 FOR NORMAL ANALYSIS
C           = 2 FOR CRYSTAL DATA DATA BANK ANALYSIS
C-----SPACE GROUP NUMBER AS GIVEN IN THE 'INTENATIONAL TABLES, VOL 1'
C-----STORED IN SPGRN AS FOUR CHARACTER STRING
C
C-----ORIENTATION CODE IS AS FOLLOWS
C         (BLANK) OR A  -  STANDARD SETTING
C         B,C,D,E,F - ALTERNATE SETTING
C           STORED IN SPGRA AS A ONE CHARACTER STRING
C
C-----SPGRA -ASPECT CODE (A1)
C-----SPGRN -#, ORIENTATION CODE   (A4)
C
C*************************************************************************
      COMMON/CHAR/ITIH(7),ITCRS(8),ITSG(7),ITED(4)
      COMMON/IO/NTOUT,NTIN,NTEXT,IOPKS,IOSCR
      COMMON/UNQ/IFA,IFB,IFC,IRH
      COMMON/IERRS/IWARN,IERR
      CHARACTER*1 ITSG,ITCRS,ITED,ITIH
      CHARACTER*1 SPGRA,ICRS
      CHARACTER*4 SPGRN
      CHARACTER*4 NUMSP(416),NUMAS(130)
      CHARACTER*8  ILSG(416), IASP(130)
      CHARACTER*8 SPGR
      CHARACTER*1 IASPEC(2)
C-----ANORTHIC (TRICLINIC) STARTS HERE AT NUMBER 1
C-----P1        (1)
      DATA ILSG(1)/'P1      '/  ,NUMSP(  1)/'  1 '/
C-----P BAR 1   (2)
      DATA ILSG(2)/'P-1     '/  ,NUMSP(  2)/'  2 '/
C-----MONOCLINIC STARTS HERE AT NUMBER 3
C-----P2        (3)
      DATA ILSG(3)/'P2      '/  ,NUMSP(  3)/'  3 '/
C-----P21       (4)
      DATA ILSG(4)/'P21     '/  ,NUMSP(  4)/'  4 '/
C-----C2        (5A)
      DATA ILSG(5)/'C2      '/  ,NUMSP(  5)/'  5A'/
C-----A2        (5B)
      DATA ILSG(6)/'A2      '/  ,NUMSP(  6)/'  5B'/
C-----I2        (5C)
      DATA ILSG(7)/'I2      '/  ,NUMSP(  7)/'  5C'/
C-----PM        (6)
      DATA ILSG(8)/'PM      '/  ,NUMSP(  8)/'  6 '/
C-----PC        (7A)
      DATA ILSG(9)/'PC      '/  ,NUMSP(  9)/'  7A'/
C-----PA        (7B)
      DATA ILSG(10)/'PA      '/ ,NUMSP( 10)/'  7B'/
C-----PN        (7C)
      DATA ILSG(11)/'PN      '/ ,NUMSP( 11)/'  7C'/
C-----CM        (8A)
      DATA ILSG(12)/'CM      '/ ,NUMSP( 12)/'  8A'/
C-----AM        (8B)
      DATA ILSG(13)/'AM      '/ ,NUMSP( 13)/'  8B'/
C-----IM        (8C)
      DATA ILSG(14)/'IM      '/ ,NUMSP( 14)/'  8C'/
C-----CC        (9A)
      DATA ILSG(15)/'CC      '/ ,NUMSP( 15)/'  9A'/
C-----AA        (9B)
      DATA ILSG(16)/'AA      '/ ,NUMSP( 16)/'  9B'/
C-----IA        (9C)
      DATA ILSG(17)/'IA      '/ ,NUMSP( 17)/'  9C'/
C-----P2/M      (10)
      DATA ILSG(18)/'P2/M    '/ ,NUMSP( 18)/' 10 '/
C-----P21/M     (11)
      DATA ILSG(19)/'P21/M   '/ ,NUMSP( 19)/' 11 '/
C-----C2/M      (12A)
      DATA ILSG(20)/'C2/M    '/ ,NUMSP( 20)/' 12A'/
C-----A2/M      (12B)
      DATA ILSG(21)/'A2/M    '/ ,NUMSP( 21)/' 12B'/
C-----I2/M      (12C)
      DATA ILSG(22)/'I2/M    '/ ,NUMSP( 22)/' 12C'/
C-----P2/C      (13A)
      DATA ILSG(23)/'P2/C    '/ ,NUMSP( 23)/' 13A'/
C-----P2/A      (13B)
      DATA ILSG(24)/'P2/A    '/ ,NUMSP( 24)/' 13B'/
C-----P2/N       (13C)
      DATA ILSG(25)/'P2/N    '/ ,NUMSP( 25)/' 13C'/
C-----P21/C     (14A)
      DATA ILSG(26)/'P21/C   '/ ,NUMSP( 26)/' 14A'/
C-----P21/A     (14B)
      DATA ILSG(27)/'P21/A   '/ ,NUMSP( 27)/' 14B'/
C-----P21/N     (14C)
      DATA ILSG(28)/'P21/N   '/ ,NUMSP( 28)/' 14C'/
C-----C2/C      (15A)
      DATA ILSG(29)/'C2/C    '/ ,NUMSP( 29)/' 15A'/
C-----A2/A      (15B)
      DATA ILSG(30)/'A2/A    '/ ,NUMSP( 30)/' 15B'/
C-----I2/A      (15C)
      DATA ILSG(31)/'I2/A    '/ ,NUMSP( 31)/' 15C'/
C-----ORTHORHOMBIC STARTS HERE AT NUMBER 32
C-----P222      (16)
      DATA ILSG(32)/'P222    '/ ,NUMSP( 32)/' 16 '/
C-----P2221     (17A)
      DATA ILSG(33)/'P2221   '/ ,NUMSP( 33)/' 17A'/
C-----P2122     (17B)
      DATA ILSG(34)/'P2122   '/ ,NUMSP( 34)/' 17B'/
C-----P2212     (17C)
      DATA ILSG(35)/'P2212   '/ ,NUMSP( 35)/' 17C'/
C-----P21212    (18A)
      DATA ILSG(36)/'P21212  '/ ,NUMSP( 36)/' 18A'/
C-----P22121    (18B)
      DATA ILSG(37)/'P22121  '/ ,NUMSP( 37)/' 18B'/
C-----P21221    (18C)
      DATA ILSG(38)/'P21221  '/ ,NUMSP( 38)/' 18C'/
C-----P212121   (19)
      DATA ILSG(39)/'P212121 '/ ,NUMSP( 39)/' 19 '/
C-----C2221     (20A)
      DATA ILSG(40)/'C2221   '/ ,NUMSP( 40)/' 20A'/
C-----A2122     (20B)
      DATA ILSG(41)/'A2122   '/ ,NUMSP( 41)/' 20B'/
C-----B2212     (20C)
      DATA ILSG(42)/'B2212   '/ ,NUMSP( 42)/' 20C'/
C-----C222      (21A)
      DATA ILSG(43)/'C222    '/ ,NUMSP( 43)/' 21A'/
C-----B222      (21B)
      DATA ILSG(44)/'B222    '/ ,NUMSP( 44)/' 21B'/
C-----A222      (21C)
      DATA ILSG(45)/'A222    '/ ,NUMSP( 45)/' 21C'/
C-----F222      (22)
      DATA ILSG(46)/'F222    '/ ,NUMSP( 46)/' 22 '/
C-----I222      (23)
      DATA ILSG(47)/'I222    '/ ,NUMSP( 47)/' 23 '/
C-----I212121   (24)
      DATA ILSG(48)/'I212121 '/ ,NUMSP( 48)/' 24 '/
C-----PMM2      (25A)
      DATA ILSG(49)/'PMM2    '/ ,NUMSP( 49)/' 25A'/
C-----PM2M      (25B)
      DATA ILSG(50)/'PM2M    '/ ,NUMSP( 50)/' 25B'/
C-----P2MM      (25C)
      DATA ILSG(51)/'P2MM    '/ ,NUMSP( 51)/' 25C'/
C-----PMC21     (26A)
      DATA ILSG(52)/'PMC21   '/ ,NUMSP( 52)/' 26A'/
C-----P21MA     (26B)
      DATA ILSG(53)/'P21MA   '/ ,NUMSP( 53)/' 26B'/
C-----P21AM     (26C)
      DATA ILSG(54)/'P21AM   '/ ,NUMSP( 54)/' 26C'/
C-----PB21M     (26D)
      DATA ILSG(55)/'PB21M   '/ ,NUMSP( 55)/' 26D'/
C-----PCM21     (26E)
      DATA ILSG(56)/'PCM21   '/ ,NUMSP( 56)/' 26E'/
C-----PM21B     (26F)
      DATA ILSG(57)/'PM21B   '/ ,NUMSP( 57)/' 26F'/
C-----PCC2      (27A)
      DATA ILSG(58)/'PCC2    '/ ,NUMSP( 58)/' 27A'/
C-----PB2B      (27B)
      DATA ILSG(59)/'PB2B    '/ ,NUMSP( 59)/' 27B'/
C-----P2AA      (27C)
      DATA ILSG(60)/'P2AA    '/ ,NUMSP( 60)/' 27C'/
C-----PMA2      (28A)
      DATA ILSG(61)/'PMA2    '/ ,NUMSP( 61)/' 28A'/
C-----P2CM      (28B)
      DATA ILSG(62)/'P2CM    '/ ,NUMSP( 62)/' 28B'/
C-----P2MB      (28C)
      DATA ILSG(63)/'P2MB    '/ ,NUMSP( 63)/' 28C'/
C-----PBM2      (28D)
      DATA ILSG(64)/'PBM2    '/ ,NUMSP( 64)/' 28D'/
C-----PC2M      (28E)
      DATA ILSG(65)/'PC2M    '/ ,NUMSP( 65)/' 28E'/
C-----PM2A      (28F)
      DATA ILSG(66)/'PM2A    '/ ,NUMSP( 66)/' 28F'/
C-----PCA21     (29A)
      DATA ILSG(67)/'PCA21   '/ ,NUMSP( 67)/' 29A'/
C-----P21CA     (29B)
      DATA ILSG(68)/'P21CA   '/ ,NUMSP( 68)/' 29B'/
C-----PB21A     (29C)
      DATA ILSG(69)/'PB21A   '/ ,NUMSP( 69)/' 29C'/
C-----P21AB     (29D)
      DATA ILSG(70)/'P21AB   '/ ,NUMSP( 70)/' 29D'/
C-----PC21B     (29E)
      DATA ILSG(71)/'PC21B   '/ ,NUMSP( 71)/' 29E'/
C-----PBC21     (29F)
      DATA ILSG(72)/'PBC21   '/ ,NUMSP( 72)/' 29F'/
C-----PNC2      (30A)
      DATA ILSG(73)/'PNC2    '/ ,NUMSP( 73)/' 30A'/
C-----PCN2      (30B)
      DATA ILSG(74)/'PCN2    '/ ,NUMSP( 74)/' 30B'/
C-----PN2B      (30C)
      DATA ILSG(75)/'PN2B    '/ ,NUMSP( 75)/' 30C'/
C-----PB2N      (30D)
      DATA ILSG(76)/'PB2N    '/ ,NUMSP( 76)/' 30D'/
C-----P2NA      (30E)
      DATA ILSG(77)/'P2NA    '/ ,NUMSP( 77)/' 30E'/
C-----P2AN      (30F)
      DATA ILSG(78)/'P2AN    '/ ,NUMSP( 78)/' 30F'/
C-----PMN21     (31A)
      DATA ILSG(79)/'PMN21   '/ ,NUMSP( 79)/' 31A'/
C-----PNM21     (31B)
      DATA ILSG(80)/'PNM21   '/ ,NUMSP( 80)/' 31B'/
C-----P21NM     (31C)
      DATA ILSG(81)/'P21NM   '/ ,NUMSP( 81)/' 31C'/
C-----PN21M     (31D)
      DATA ILSG(82)/'PN21M   '/ ,NUMSP( 82)/' 31D'/
C-----PM21N     (31E)
      DATA ILSG(83)/'PM21N   '/ ,NUMSP( 83)/' 31E'/
C-----P21MN     (31F)
      DATA ILSG(84)/'P21MN   '/ ,NUMSP( 84)/' 31F'/
C-----PBA2      (32A)
      DATA ILSG(85)/'PBA2    '/ ,NUMSP( 85)/' 32A'/
C-----P2CB      (32B)
      DATA ILSG(86)/'P2CB    '/ ,NUMSP( 86)/' 32B'/
C-----PC2A      (32C)
      DATA ILSG(87)/'PC2A    '/ ,NUMSP( 87)/' 32C'/
C-----PNA21     (33A)
      DATA ILSG(88)/'PNA21   '/ ,NUMSP( 88)/' 33A'/
C-----PBN21     (33B)
      DATA ILSG(89)/'PBN21   '/ ,NUMSP( 89)/' 33B'/
C-----P21CN     (33C)
      DATA ILSG(90)/'P21CN   '/ ,NUMSP( 90)/' 33C'/
C-----P21NB     (33D)
      DATA ILSG(91)/'P21NB   '/ ,NUMSP( 91)/' 33D'/
C-----PN21A     (33E)
      DATA ILSG(92)/'PN21A   '/ ,NUMSP( 92)/' 33E'/
C-----PC21N     (33F)
      DATA ILSG(93)/'PC21N   '/ ,NUMSP( 93)/' 33F'/
C-----PNN2      (34A)
      DATA ILSG(94)/'PNN2    '/ ,NUMSP( 94)/' 34A'/
C-----PN2N      (34B)
      DATA ILSG(95)/'PN2N    '/ ,NUMSP( 95)/' 34B'/
C-----P2NN      (34C)
      DATA ILSG(96)/'P2NN    '/ ,NUMSP( 96)/' 34C'/
C-----CMM2      (35A)
      DATA ILSG(97)/'CMM2    '/ ,NUMSP( 97)/' 35A'/
C-----BM2M      (35B)
      DATA ILSG(98)/'BM2M    '/ ,NUMSP( 98)/' 35B'/
C-----A2MM      (35C)
      DATA ILSG(99)/'A2MM    '/ ,NUMSP( 99)/' 35C'/
C-----CMC21     (36A)
      DATA ILSG(100)/'CMC21   '/,NUMSP(100)/' 36A'/
C-----A21AM     (36B)
      DATA ILSG(101)/'A21AM   '/,NUMSP(101)/' 36B'/
C-----A21MA     (36C)
      DATA ILSG(102)/'A21MA   '/,NUMSP(102)/' 36C'/
C-----BM21B     (36D)
      DATA ILSG(103)/'BM21B   '/,NUMSP(103)/' 36D'/
C-----BB21M     (36E)
      DATA ILSG(104)/'BB21M   '/,NUMSP(104)/' 36E'/
C-----CCM21     (36F)
      DATA ILSG(105)/'CCM21   '/,NUMSP(105)/' 36F'/
C-----CCC2      (37A)
      DATA ILSG(106)/'CCC2    '/,NUMSP(106)/' 37A'/
C-----A2AA      (37B)
      DATA ILSG(107)/'A2AA    '/,NUMSP(107)/' 37B'/
C-----BB2B      (37C)
      DATA ILSG(108)/'BB2B    '/,NUMSP(108)/' 37C'/
C-----AMM2      (38A)
      DATA ILSG(109)/'AMM2    '/,NUMSP(109)/' 38A'/
C-----AM2M      (38B)
      DATA ILSG(110)/'AM2M    '/,NUMSP(110)/' 38B'/
C-----B2MM      (38C)
      DATA ILSG(111)/'B2MM    '/,NUMSP(111)/' 38C'/
C-----BMM2      (38E)
      DATA ILSG(113)/'BMM2    '/,NUMSP(113)/' 38E'/
C-----C2MM      (38D)
      DATA ILSG(112)/'C2MM    '/,NUMSP(112)/' 38D'/
C-----CM2M      (38F)
      DATA ILSG(114)/'CM2M    '/,NUMSP(114)/' 38F'/
C-----ABM2      (39A)
      DATA ILSG(115)/'ABM2    '/,NUMSP(115)/' 39A'/
C-----BMA2      (39B)
      DATA ILSG(116)/'BMA2    '/,NUMSP(116)/' 39B'/
C-----C2MA      (39C)
      DATA ILSG(117)/'C2MA    '/,NUMSP(117)/' 39C'/
C-----AB2M      (39D)
      DATA ILSG(118)/'AB2M    '/,NUMSP(118)/' 39D'/
C-----CM2A      (39E)
      DATA ILSG(119)/'CM2A    '/,NUMSP(119)/' 39E'/
C-----B2AM      (39F)
      DATA ILSG(120)/'B2AM    '/,NUMSP(120)/' 39F'/
C-----AMA2      (40A)
      DATA ILSG(121)/'AMA2    '/,NUMSP(121)/' 40A'/
C-----C2CM      (40B)
      DATA ILSG(122)/'C2CM    '/,NUMSP(122)/' 40B'/
C-----BBM2      (40C)
      DATA ILSG(123)/'BBM2    '/,NUMSP(123)/' 40C'/
C-----B2MB      (40D)
      DATA ILSG(124)/'B2MB    '/,NUMSP(124)/' 40D'/
C-----CC2M      (40E)
      DATA ILSG(125)/'CC2M    '/,NUMSP(125)/' 40E'/
C-----AM2A      (40F)
      DATA ILSG(126)/'AM2A    '/,NUMSP(126)/' 40F'/
C-----ABA2      (41A)
      DATA ILSG(127)/'ABA2    '/,NUMSP(127)/' 41A'/
C-----AB2A      (41B)
      DATA ILSG(128)/'AB2A    '/,NUMSP(128)/' 41B'/
C-----C2CA      (41C)
      DATA ILSG(129)/'C2CA    '/,NUMSP(129)/' 41C'/
C-----B2AB      (41D)
      DATA ILSG(130)/'B2AB    '/,NUMSP(130)/' 41D'/
C-----CC2A      (41E)
      DATA ILSG(131)/'CC2A    '/,NUMSP(131)/' 41E'/
C-----BBA2      (41F)
      DATA ILSG(132)/'BBA2    '/,NUMSP(132)/' 41F'/
C-----FMM2      (42A)
      DATA ILSG(133)/'FMM2    '/,NUMSP(133)/' 42A'/
C-----FM2M      (42B)
      DATA ILSG(134)/'FM2M    '/,NUMSP(134)/' 42B'/
C-----F2MM      (42C)
      DATA ILSG(135)/'F2MM    '/,NUMSP(135)/' 42C'/
C-----FDD2      (43A)
      DATA ILSG(136)/'FDD2    '/,NUMSP(136)/' 43A'/
C-----FD2D      (43B)
      DATA ILSG(137)/'FD2D    '/,NUMSP(137)/' 43B'/
C-----F2DD      (43C)
      DATA ILSG(138)/'F2DD    '/,NUMSP(138)/' 43C'/
C-----IMM2      (44A)
      DATA ILSG(139)/'IMM2    '/,NUMSP(139)/' 44A'/
C-----IM2M      (44B)
      DATA ILSG(140)/'IM2M    '/,NUMSP(140)/' 44B'/
C-----I2MM      (44C)
      DATA ILSG(141)/'I2MM    '/,NUMSP(141)/' 44C'/
C-----IBA2      (45A)
      DATA ILSG(142)/'IBA2    '/,NUMSP(142)/' 45A'/
C-----IB2A      (45B)
      DATA ILSG(143)/'IB2A    '/,NUMSP(143)/' 45B'/
C-----I2AA      (45C)
      DATA ILSG(144)/'I2AA    '/,NUMSP(144)/' 45C'/
C-----IMA2      (46A)
      DATA ILSG(145)/'IMA2    '/,NUMSP(145)/' 46A'/
C-----IM2A      (46B)
      DATA ILSG(146)/'IM2A    '/,NUMSP(146)/' 46B'/
C-----IBM2      (46C)
      DATA ILSG(147)/'IBM2    '/,NUMSP(147)/' 46C'/
C-----I2AM      (46D)
      DATA ILSG(148)/'I2AM    '/,NUMSP(148)/' 46D'/
C-----IB2M      (46E)
      DATA ILSG(149)/'IB2M    '/,NUMSP(149)/' 46E'/
C-----I2MA      (46F)
      DATA ILSG(150)/'I2MA    '/,NUMSP(150)/' 46F'/
C-----PMMM      (47)
      DATA ILSG(151)/'PMMM    '/,NUMSP(151)/' 47 '/
C-----PNNN      (48)
      DATA ILSG(152)/'PNNN    '/,NUMSP(152)/' 48 '/
C-----PCCM      (49A)
      DATA ILSG(153)/'PCCM    '/,NUMSP(153)/' 49A'/
C-----PMAA      (49B)
      DATA ILSG(154)/'PMAA    '/,NUMSP(154)/' 49B'/
C-----PBMB      (49C)
      DATA ILSG(155)/'PBMB    '/,NUMSP(155)/' 49C'/
C-----PBAN      (50A)
      DATA ILSG(156)/'PBAN    '/,NUMSP(156)/' 50A'/
C-----PNCB      (50B)
      DATA ILSG(157)/'PNCB    '/,NUMSP(157)/' 50B'/
C-----PCNA      (50C)
      DATA ILSG(158)/'PCNA    '/,NUMSP(158)/' 50C'/
C-----PMMA      (51A)
      DATA ILSG(159)/'PMMA    '/,NUMSP(159)/' 51A'/
C-----PMCM      (51B)
      DATA ILSG(160)/'PMCM    '/,NUMSP(160)/' 51B'/
C-----PCMM      (51C)
      DATA ILSG(161)/'PCMM    '/,NUMSP(161)/' 51C'/
C-----PMAM      (51D)
      DATA ILSG(162)/'PMAM    '/,NUMSP(162)/' 51D'/
C-----PBMM      (51E)
      DATA ILSG(163)/'PBMM    '/,NUMSP(163)/' 51E'/
C-----PMMB      (51F)
      DATA ILSG(164)/'PMMB    '/,NUMSP(164)/' 51F'/
C-----PNNA      (52A)
      DATA ILSG(165)/'PNNA    '/,NUMSP(165)/' 52A'/
C-----PNNB      (52B)
      DATA ILSG(166)/'PNNB    '/,NUMSP(166)/' 52B'/
C-----PNAN      (52C)
      DATA ILSG(167)/'PNAN    '/,NUMSP(167)/' 52C'/
C-----PNCN      (52D)
      DATA ILSG(168)/'PNCN    '/,NUMSP(168)/' 52D'/
C-----PBNN      (52E)
      DATA ILSG(169)/'PBNN    '/,NUMSP(169)/' 52E'/
C-----PCNN      (52F)
      DATA ILSG(170)/'PCNN    '/,NUMSP(170)/' 52F'/
C-----PMNA      (53A)
      DATA ILSG(171)/'PMNA    '/,NUMSP(171)/' 53A'/
C-----PNCM      (53B)
      DATA ILSG(172)/'PNCM    '/,NUMSP(172)/' 53B'/
C-----PBMN      (53C)
      DATA ILSG(173)/'PBMN    '/,NUMSP(173)/' 53C'/
C-----PMAN      (53D)
      DATA ILSG(174)/'PMAN    '/,NUMSP(174)/' 53D'/
C-----PCNM      (53E)
      DATA ILSG(175)/'PCNM    '/,NUMSP(175)/' 53E'/
C-----PNMB      (53F)
      DATA ILSG(176)/'PNMB    '/,NUMSP(176)/' 53F'/
C-----PCCA      (54A)
      DATA ILSG(177)/'PCCA    '/,NUMSP(177)/' 54A'/
C-----PBAA      (54B)
      DATA ILSG(178)/'PBAA    '/,NUMSP(178)/' 54B'/
C-----PBCB      (54C)
      DATA ILSG(179)/'PBCB    '/,NUMSP(179)/' 54C'/
C-----PCCB      (54D)
      DATA ILSG(180)/'PCCB    '/,NUMSP(180)/' 54D'/
C-----PBAB      (54E)
      DATA ILSG(181)/'PBAB    '/,NUMSP(181)/' 54E'/
C-----PCAA      (54F)
      DATA ILSG(182)/'PCAA    '/,NUMSP(182)/' 54F'/
C-----PBAM      (55A)
      DATA ILSG(183)/'PBAM    '/,NUMSP(183)/' 55A'/
C-----PCMA      (55B)
      DATA ILSG(184)/'PCMA    '/,NUMSP(184)/' 55B'/
C-----PMCB      (55C)
      DATA ILSG(185)/'PMCB    '/,NUMSP(185)/' 55C'/
C-----PCCN      (56A)
      DATA ILSG(186)/'PCCN    '/,NUMSP(186)/' 56A'/
C-----PBNB      (56B)
      DATA ILSG(187)/'PBNB    '/,NUMSP(187)/' 56B'/
C-----PNAA      (56C)
      DATA ILSG(188)/'PNAA    '/,NUMSP(188)/' 56C'/
C-----PBCM      (57A)
      DATA ILSG(189)/'PBCM    '/,NUMSP(189)/' 57A'/
C-----PCMB      (57B)
      DATA ILSG(190)/'PCMB    '/,NUMSP(190)/' 57B'/
C-----PBMA      (57C)
      DATA ILSG(191)/'PBMA    '/,NUMSP(191)/' 57C'/
C-----PCAM      (57D)
      DATA ILSG(192)/'PCAM    '/,NUMSP(192)/' 57D'/
C-----PMAB      (57E)
      DATA ILSG(193)/'PMAB    '/,NUMSP(193)/' 57E'/
C-----PMCA      (57F)
      DATA ILSG(194)/'PMCA    '/,NUMSP(194)/' 57F'/
C-----PNNM      (58A)
      DATA ILSG(195)/'PNNM    '/,NUMSP(195)/' 58A'/
C-----PNMN      (58B)
      DATA ILSG(196)/'PNMN    '/,NUMSP(196)/' 58B'/
C-----PMNN      (58C)
      DATA ILSG(197)/'PMNN    '/,NUMSP(197)/' 58C'/
C-----PMMN      (59A)
      DATA ILSG(198)/'PMMN    '/,NUMSP(198)/' 59A'/
C-----PNMM      (59B)
      DATA ILSG(199)/'PNMM    '/,NUMSP(199)/' 59B'/
C-----PMNM      (59C)
      DATA ILSG(200)/'PMNM    '/,NUMSP(200)/' 59C'/
C-----PBCN      (60A)
      DATA ILSG(201)/'PBCN    '/,NUMSP(201)/' 60A'/
C-----PNAB      (60B)
      DATA ILSG(202)/'PNAB    '/,NUMSP(202)/' 60B'/
C-----PNCA      (60C)
      DATA ILSG(203)/'PNCA    '/,NUMSP(203)/' 60C'/
C-----PBNA      (60D)
      DATA ILSG(204)/'PBNA    '/,NUMSP(204)/' 60D'/
C-----PCAN      (60E)
      DATA ILSG(205)/'PCAN    '/,NUMSP(205)/' 60E'/
C-----PCNB      (60F)
      DATA ILSG(206)/'PCNB    '/,NUMSP(206)/' 60F'/
C-----PBCA      (61A)
      DATA ILSG(207)/'PBCA    '/,NUMSP(207)/' 61A'/
C-----PCAB      (61B)
      DATA ILSG(208)/'PCAB    '/,NUMSP(208)/' 61B'/
C-----PNMA      (62A)
      DATA ILSG(209)/'PNMA    '/,NUMSP(209)/' 62A'/
C-----PMNB      (62B)
      DATA ILSG(210)/'PMNB    '/,NUMSP(210)/' 62B'/
C-----PBNM      (62C)
      DATA ILSG(211)/'PBNM    '/,NUMSP(211)/' 62C'/
C-----PMCN      (62D)
      DATA ILSG(212)/'PMCN    '/,NUMSP(212)/' 62D'/
C-----PCMN      (62E)
      DATA ILSG(213)/'PCMN    '/,NUMSP(213)/' 62E'/
C-----PNAM      (62F)
      DATA ILSG(214)/'PNAM    '/,NUMSP(214)/' 62F'/
C-----CMCM      (63A)
      DATA ILSG(215)/'CMCM    '/,NUMSP(215)/' 63A'/
C-----BBMM      (63B)
      DATA ILSG(216)/'BBMM    '/,NUMSP(216)/' 63B'/
C-----AMAM      (63C)
      DATA ILSG(217)/'AMAM    '/,NUMSP(217)/' 63C'/
C-----AMMA      (63D)
      DATA ILSG(218)/'AMMA    '/,NUMSP(218)/' 63D'/
C-----CCMM      (63E)
      DATA ILSG(219)/'CCMM    '/,NUMSP(219)/' 63E'/
C-----BMMB      (63F)
      DATA ILSG(220)/'BMMB    '/,NUMSP(220)/' 63F'/
C-----CMCA      (64A)
      DATA ILSG(221)/'CMCA    '/,NUMSP(221)/' 64A'/
C-----ABAM      (64B)
      DATA ILSG(222)/'ABAM    '/,NUMSP(222)/' 64B'/
C-----CCMA      (64C)
      DATA ILSG(223)/'CCMA    '/,NUMSP(223)/' 64C'/
C-----ABMA      (64D)
      DATA ILSG(224)/'ABMA    '/,NUMSP(224)/' 64D'/
C-----BMAB      (64E)
      DATA ILSG(225)/'BMAB    '/,NUMSP(225)/' 64E'/
C-----BBAM      (64F)
      DATA ILSG(226)/'BBAM    '/,NUMSP(226)/' 64F'/
C-----CMMM      (65A)
      DATA ILSG(227)/'CMMM    '/,NUMSP(227)/' 65A'/
C-----BMMM      (65B)
      DATA ILSG(228)/'BMMM    '/,NUMSP(228)/' 65B'/
C-----AMMM      (65C)
      DATA ILSG(229)/'AMMM    '/,NUMSP(229)/' 65C'/
C-----CCCM      (66A)
      DATA ILSG(230)/'CCCM    '/,NUMSP(230)/' 66A'/
C-----AMAA      (66B)
      DATA ILSG(231)/'AMAA    '/,NUMSP(231)/' 66B'/
C-----BBMB      (66C)
      DATA ILSG(232)/'BBMB    '/,NUMSP(232)/' 66C'/
C-----CMMA      (67A)
      DATA ILSG(233)/'CMMA    '/,NUMSP(233)/' 67A'/
C-----ABMM      (67B)
      DATA ILSG(234)/'ABMM    '/,NUMSP(234)/' 67B'/
C-----BMAM      (67C)
      DATA ILSG(235)/'BMAM    '/,NUMSP(235)/' 67C'/
C-----CCCA      (68A)
      DATA ILSG(236)/'CCCA    '/,NUMSP(236)/' 68A'/
C-----BBAB      (68B)
      DATA ILSG(237)/'BBAB    '/,NUMSP(237)/' 68B'/
C-----ABAA      (68C)
      DATA ILSG(238)/'ABAA    '/,NUMSP(238)/' 68C'/
C-----FMMM      (69)
      DATA ILSG(239)/'FMMM    '/,NUMSP(239)/' 69 '/
C-----FDDD      (70)
      DATA ILSG(240)/'FDDD    '/,NUMSP(240)/' 70 '/
C-----IMMM      (71)
      DATA ILSG(241)/'IMMM    '/,NUMSP(241)/' 71 '/
C-----IBAM      (72A)
      DATA ILSG(242)/'IBAM    '/,NUMSP(242)/' 72A'/
C-----IMAA      (72B)
      DATA ILSG(243)/'IMAA    '/,NUMSP(243)/' 72B'/
C-----IBMA      (72C)
      DATA ILSG(244)/'IBMA    '/,NUMSP(244)/' 72C'/
C-----IBCA      (73)
      DATA ILSG(245)/'IBCA    '/,NUMSP(245)/' 73 '/
C-----IMMA      (74A)
      DATA ILSG(246)/'IMMA    '/,NUMSP(246)/' 74A'/
C-----IBMM      (74B)
      DATA ILSG(247)/'IBMM    '/,NUMSP(247)/' 74B'/
C-----IMAM      (74C)
      DATA ILSG(248)/'IMAM    '/,NUMSP(248)/' 74C'/
C-----TETRAGONAL STARTS HERE AT NUMBER 249
C-----P4        (75)
      DATA ILSG(249)/'P4      '/,NUMSP(249)/' 75 '/
C-----P41       (76)   AND P43
      DATA ILSG(250)/'P41     '/,NUMSP(250)/' 76 '/
C-----P41,3     (ASPECT 76)
      DATA ILSG(251)/'XXXXXXXX'/,NUMSP(251)/' 76B'/
C-----P42       (77)
      DATA ILSG(252)/'P42     '/,NUMSP(252)/' 77 '/
C-----P43       (78)    ASS. 76
      DATA ILSG(253)/'P43     '/,NUMSP(253)/' 78 '/
C-----I4        (79)
      DATA ILSG(254)/'I4      '/,NUMSP(254)/' 79 '/
C-----I41       (80)
      DATA ILSG(255)/'I41     '/,NUMSP(255)/' 80 '/
C-----P BAR 4   (81)
      DATA ILSG(256)/'P-4     '/,NUMSP(256)/' 81 '/
C-----I BAR 4   (82)
      DATA ILSG(257)/'I-4     '/,NUMSP(257)/' 82 '/
C-----P4/M      (83)
      DATA ILSG(258)/'P4/M    '/,NUMSP(258)/' 83 '/
C-----P42/M     (84)
      DATA ILSG(259)/'P42/M   '/,NUMSP(259)/' 84 '/
C-----P4/N      (85)
      DATA ILSG(260)/'P4/N    '/,NUMSP(260)/' 85 '/
C-----P42/N     (86)
      DATA ILSG(261)/'P42/N   '/,NUMSP(261)/' 86 '/
C-----I4/M      (87)
      DATA ILSG(262)/'I4/M    '/,NUMSP(262)/' 87 '/
C-----I41/A     (88)
      DATA ILSG(263)/'I41/A   '/,NUMSP(263)/' 88 '/
C-----P422      (89)
      DATA ILSG(264)/'P422    '/,NUMSP(264)/' 89 '/
C-----P4212     (90)
      DATA ILSG(265)/'P4212   '/,NUMSP(265)/' 90 '/
C-----P4122     (91)   AND P4322
      DATA ILSG(266)/'P4122   '/,NUMSP(266)/' 91 '/
C-----P41,322   (ASPECT 91)
      DATA ILSG(267)/'XXXXXXXX'/,NUMSP(267)/' 91B'/
C-----P41212    (92)   AND P43212
      DATA ILSG(268)/'P41212  '/,NUMSP(268)/' 92 '/
C-----P41,3212  (ASPECT 92)
      DATA ILSG(269)/'XXXXXXXX'/,NUMSP(269)/' 92B'/
C-----P4222     (93)
      DATA ILSG(270)/'P4222   '/,NUMSP(270)/' 93 '/
C-----P42212    (94)
      DATA ILSG(271)/'P42212  '/,NUMSP(271)/' 94 '/
C-----P4322     (95)    ASS. 91
      DATA ILSG(272)/'P4322   '/,NUMSP(272)/' 95 '/
C-----P43212    (96)    ASS. 92
      DATA ILSG(273)/'P43212  '/,NUMSP(273)/' 96 '/
C-----I422      (97)
      DATA ILSG(274)/'I422    '/,NUMSP(274)/' 97 '/
C-----I4122     (98)
      DATA ILSG(275)/'I4122   '/,NUMSP(275)/' 98 '/
C-----P4MM      (99)
      DATA ILSG(276)/'P4MM    '/,NUMSP(276)/' 99 '/
C-----P4BM      (100)
      DATA ILSG(277)/'P4BM    '/,NUMSP(277)/'100 '/
C-----P42CM     (101)
      DATA ILSG(278)/'P42CM   '/,NUMSP(278)/'101 '/
C-----P42NM     (102)
      DATA ILSG(279)/'P42NM   '/,NUMSP(279)/'102 '/
C-----P4CC      (103)
      DATA ILSG(280)/'P4CC    '/,NUMSP(280)/'103 '/
C-----P4NC      (104)
      DATA ILSG(281)/'P4NC    '/,NUMSP(281)/'104 '/
C-----P42MC     (105)
      DATA ILSG(282)/'P42MC   '/,NUMSP(282)/'105 '/
C-----P42BC     (106)
      DATA ILSG(283)/'P42BC   '/,NUMSP(283)/'106 '/
C-----I4MM      (107)
      DATA ILSG(284)/'I4MM    '/,NUMSP(284)/'107 '/
C-----I4CM      (108)
      DATA ILSG(285)/'I4CM    '/,NUMSP(285)/'108 '/
C-----I41MD     (109)
      DATA ILSG(286)/'I41MD   '/,NUMSP(286)/'109 '/
C-----I41CD     (110)
      DATA ILSG(287)/'I41CD   '/,NUMSP(287)/'110 '/
C-----PBAR42M   (111)
      DATA ILSG(288)/'P-42M   '/,NUMSP(288)/'111 '/
C-----PBAR42C   (112)
      DATA ILSG(289)/'P-42C   '/,NUMSP(289)/'112 '/
C-----PBAR421M  (113)
      DATA ILSG(290)/'P-421M  '/,NUMSP(290)/'113 '/
C-----PBAR421C  (114)
      DATA ILSG(291)/'P-421C  '/,NUMSP(291)/'114 '/
C-----PBAR4M2   (115)
      DATA ILSG(292)/'P-4M2   '/,NUMSP(292)/'115 '/
C-----PBAR4C2   (116)
      DATA ILSG(293)/'P-4C2   '/,NUMSP(293)/'116 '/
C-----PBAR4B2   (117)
      DATA ILSG(294)/'P-4B2   '/,NUMSP(294)/'117 '/
C-----PBAR4N2   (118)
      DATA ILSG(295)/'P-4N2   '/,NUMSP(295)/'118 '/
C-----IBAR4M2   (119)
      DATA ILSG(296)/'I-4M2   '/,NUMSP(296)/'119 '/
C-----IBAR4C2   (120)
      DATA ILSG(297)/'I-4C2   '/,NUMSP(297)/'120 '/
C-----IBAR42M   (121)
      DATA ILSG(298)/'I-42M   '/,NUMSP(298)/'121 '/
C-----IBAR42D   (122)
      DATA ILSG(299)/'I-42D   '/,NUMSP(299)/'122 '/
C-----P4/MMM    (123)
      DATA ILSG(300)/'P4/MMM  '/,NUMSP(300)/'123 '/
C-----P4/MCC    (124)
      DATA ILSG(301)/'P4/MCC  '/,NUMSP(301)/'124 '/
C-----P4/NBM    (125)
      DATA ILSG(302)/'P4/NBM  '/,NUMSP(302)/'125 '/
C-----P4/NNC    (126)
      DATA ILSG(303)/'P4/NNC  '/,NUMSP(303)/'126 '/
C-----P4/MBM    (127)
      DATA ILSG(304)/'P4/MBM  '/,NUMSP(304)/'127 '/
C-----P4/MNC    (128)
      DATA ILSG(305)/'P4/MNC  '/,NUMSP(305)/'128 '/
C-----P4/NMM    (129)
      DATA ILSG(306)/'P4/NMM  '/,NUMSP(306)/'129 '/
C-----P4/NCC    (130)
      DATA ILSG(307)/'P4/NCC  '/,NUMSP(307)/'130 '/
C-----P42/MMC   (131)
      DATA ILSG(308)/'P42/MMC '/,NUMSP(308)/'131 '/
C-----P42/MCM   (132)
      DATA ILSG(309)/'P42/MCM '/,NUMSP(309)/'132 '/
C-----P42/NBC   (133)
      DATA ILSG(310)/'P42/NBC '/,NUMSP(310)/'133 '/
C-----P42/NNM   (134)
      DATA ILSG(311)/'P42/NNM '/,NUMSP(311)/'134 '/
C-----P42/MBC   (135)
      DATA ILSG(312)/'P42/MBC '/,NUMSP(312)/'135 '/
C-----P42/MNM   (136)
      DATA ILSG(313)/'P42/MNM '/,NUMSP(313)/'136 '/
C-----P42/NMC   (137)
      DATA ILSG(314)/'P42/NMC '/,NUMSP(314)/'137 '/
C-----P42/NCM   (138)
      DATA ILSG(315)/'P42/NCM '/,NUMSP(315)/'138 '/
C-----I4/MMM    (139)
      DATA ILSG(316)/'I4/MMM  '/,NUMSP(316)/'139 '/
C-----I4/MCM    (140)
      DATA ILSG(317)/'I4/MCM  '/,NUMSP(317)/'140 '/
C-----I41/AMD   (141)
      DATA ILSG(318)/'I41/AMD '/,NUMSP(318)/'141 '/
C-----I41/ACD   (142)
      DATA ILSG(319)/'I41/ACD '/,NUMSP(319)/'142 '/
C-----HEXAGONAL AND RHOMBOHEDRAL START HERE AT NUMBER 320
C-----P3        (143)
      DATA ILSG(320)/'P3      '/,NUMSP(320)/'143 '/
C-----P31       (144)  AND P32
      DATA ILSG(321)/'P31     '/,NUMSP(321)/'144 '/
C-----P31,2     (ASPECT 144)
      DATA ILSG(322)/'XXXXXXXX'/,NUMSP(322)/'144B'/
C-----P32       (145)   ASS. 144
      DATA ILSG(323)/'P32     '/,NUMSP(323)/'145 '/
C-----R3        (146)
      DATA ILSG(324)/'R3      '/,NUMSP(324)/'146 '/
C-----P BAR 3   (147)
      DATA ILSG(325)/'P-3     '/,NUMSP(325)/'147 '/
C-----R BAR 3   (148)
      DATA ILSG(326)/'R-3     '/,NUMSP(326)/'148 '/
C-----P312      (149)
      DATA ILSG(327)/'P312    '/,NUMSP(327)/'149 '/
C-----P321      (150)
      DATA ILSG(328)/'P321    '/,NUMSP(328)/'150 '/
C-----P3112     (151)  AND P3212
      DATA ILSG(329)/'P3112   '/,NUMSP(329)/'151 '/
C-----P31,212   (ASPECT 151)
      DATA ILSG(330)/'XXXXXXXX'/,NUMSP(330)/'151B'/
C-----P3121     (152)  AND P3221
      DATA ILSG(331)/'P3121   '/,NUMSP(331)/'152 '/
C-----P31,221   (ASPECT 152)
      DATA ILSG(332)/'XXXXXXXX'/,NUMSP(332)/'152B'/
C-----P3212     (153)   ASS. 151
      DATA ILSG(333)/'P3212   '/,NUMSP(333)/'153 '/
C-----P3221     (154)   ASS. 152
      DATA ILSG(334)/'P3221   '/,NUMSP(334)/'154 '/
C-----R32       (155)
      DATA ILSG(335)/'R32     '/,NUMSP(335)/'155 '/
C-----P3M1      (156)
      DATA ILSG(336)/'P3M1    '/,NUMSP(336)/'156 '/
C-----P31M      (157)
      DATA ILSG(337)/'P31M    '/,NUMSP(337)/'157 '/
C-----P3C1      (158)
      DATA ILSG(338)/'P3C1    '/,NUMSP(338)/'158 '/
C-----P31C      (159)
      DATA ILSG(339)/'P31C    '/,NUMSP(339)/'159 '/
C-----R3M       (160)
      DATA ILSG(340)/'R3M     '/,NUMSP(340)/'160 '/
C-----R3C       (161)
      DATA ILSG(341)/'R3C     '/,NUMSP(341)/'161 '/
C-----PBAR31M   (162)
      DATA ILSG(342)/'P-31M   '/,NUMSP(342)/'162 '/
C-----PBAR31C   (163)
      DATA ILSG(343)/'P-31C   '/,NUMSP(343)/'163 '/
C-----PBAR3M1   (164)
      DATA ILSG(344)/'P-3M1   '/,NUMSP(344)/'164 '/
C-----PBAR3C1   (165)
      DATA ILSG(345)/'P-3C1   '/,NUMSP(345)/'165 '/
C-----RBAR3M    (166)
      DATA ILSG(346)/'R-3M    '/,NUMSP(346)/'166 '/
C-----RBAR3C    (167)
      DATA ILSG(347)/'R-3C    '/,NUMSP(347)/'167 '/
C-----P6        (168)
      DATA ILSG(348)/'P6      '/,NUMSP(348)/'168 '/
C-----P61       (169)  AND P65
      DATA ILSG(349)/'P61     '/,NUMSP(349)/'169 '/
C-----P61,5     (ASPECT 169)
      DATA ILSG(350)/'XXXXXXXX'/,NUMSP(350)/'169B'/
C-----P65       (170)   ASS. 169
      DATA ILSG(351)/'P65     '/,NUMSP(351)/'170 '/
C-----P62       (171)  AND P64
      DATA ILSG(352)/'P62     '/,NUMSP(352)/'171 '/
C-----P62,4     (ASPECT 171)
      DATA ILSG(353)/'XXXXXXXX'/,NUMSP(353)/'171B'/
C-----P64       (172)   ASS. 171
      DATA ILSG(354)/'P64     '/,NUMSP(354)/'172 '/
C-----P63       (173)
      DATA ILSG(355)/'P63     '/,NUMSP(355)/'173 '/
C-----P-6       (174)
      DATA ILSG(356)/'P-6     '/,NUMSP(356)/'174 '/
C-----P6/M      (175)
      DATA ILSG(357)/'P6/M    '/,NUMSP(357)/'175 '/
C-----P63/M     (176)
      DATA ILSG(358)/'P63/M   '/,NUMSP(358)/'176 '/
C-----P622      (177)
      DATA ILSG(359)/'P622    '/,NUMSP(359)/'177 '/
C-----P6122     (178)  AND P6522
      DATA ILSG(360)/'P6122   '/,NUMSP(360)/'178 '/
C-----P61,522   (ASPECT 178)
      DATA ILSG(361)/'XXXXXXXX'/,NUMSP(361)/'178B'/
C-----P6522     (179)   ASS. 178
      DATA ILSG(362)/'P6522   '/,NUMSP(362)/'179 '/
C-----P6222     (180)  AND P6422
      DATA ILSG(363)/'P6222   '/,NUMSP(363)/'180 '/
C-----P62,422   (ASPECT 180)
      DATA ILSG(364)/'XXXXXXXX'/,NUMSP(364)/'180B'/
C-----P6422     (181)   ASS. 180
      DATA ILSG(365)/'P6422   '/,NUMSP(365)/'181 '/
C-----P6322     (182)
      DATA ILSG(366)/'P6322   '/,NUMSP(366)/'182 '/
C-----P6MM      (183)
      DATA ILSG(367)/'P6MM    '/,NUMSP(367)/'183 '/
C-----P6CC      (184)
      DATA ILSG(368)/'P6CC    '/,NUMSP(368)/'184 '/
C-----P63CM     (185)
      DATA ILSG(369)/'P63CM   '/,NUMSP(369)/'185 '/
C-----P63MC     (186)
      DATA ILSG(370)/'P63MC   '/,NUMSP(370)/'186 '/
C-----PBAR6M2   (187)
      DATA ILSG(371)/'P-6M2   '/,NUMSP(371)/'187 '/
C-----PBAR6C2   (188)
      DATA ILSG(372)/'P-6C2   '/,NUMSP(372)/'188 '/
C-----PBAR62M   (189)
      DATA ILSG(373)/'P-62M   '/,NUMSP(373)/'189 '/
C-----PBAR62C   (190)
      DATA ILSG(374)/'P-62C   '/,NUMSP(374)/'190 '/
C-----P6/MMM    (191)
      DATA ILSG(375)/'P6/MMM  '/,NUMSP(375)/'191 '/
C-----P6/MCC    (192)
      DATA ILSG(376)/'P6/MCC  '/,NUMSP(376)/'192 '/
C-----P63/MCM   (193)
      DATA ILSG(377)/'P63/MCM '/,NUMSP(377)/'193 '/
C-----P63/MMC   (194)
      DATA ILSG(378)/'P63/MMC '/,NUMSP(378)/'194 '/
C-----CUBIC STARTS HERE AT NUMBER 379
C-----P23       (195)
      DATA ILSG(379)/'P23     '/,NUMSP(379)/'195 '/
C-----F23       (196)
      DATA ILSG(380)/'F23     '/,NUMSP(380)/'196 '/
C-----I23       (197)
      DATA ILSG(381)/'I23     '/,NUMSP(381)/'197 '/
C-----P213      (198)
      DATA ILSG(382)/'P213    '/,NUMSP(382)/'198 '/
C-----I213      (199)
      DATA ILSG(383)/'I213    '/,NUMSP(383)/'199 '/
C-----PM3       (200)
      DATA ILSG(384)/'PM3     '/,NUMSP(384)/'200 '/
C-----PN3       (201)
      DATA ILSG(385)/'PN3     '/,NUMSP(385)/'201 '/
C-----FM3       (202)
      DATA ILSG(386)/'FM3     '/,NUMSP(386)/'202 '/
C-----FD3       (203)
      DATA ILSG(387)/'FD3     '/,NUMSP(387)/'203 '/
C-----IM3       (204)
      DATA ILSG(388)/'IM3     '/,NUMSP(388)/'204 '/
C-----PA3       (205)
      DATA ILSG(389)/'PA3     '/,NUMSP(389)/'205 '/
C-----IA3       (206)
      DATA ILSG(390)/'IA3     '/,NUMSP(390)/'206 '/
C-----P432      (207)
      DATA ILSG(391)/'P432    '/,NUMSP(391)/'207 '/
C-----P4232     (208)
      DATA ILSG(392)/'P4232   '/,NUMSP(392)/'208 '/
C-----F432      (209)
      DATA ILSG(393)/'F432    '/,NUMSP(393)/'209 '/
C-----F4132     (210)
      DATA ILSG(394)/'F4132   '/,NUMSP(394)/'210 '/
C-----I432      (211)
      DATA ILSG(395)/'I432    '/,NUMSP(395)/'211 '/
C-----P4332     (212)  AND P4132
      DATA ILSG(396)/'P4332   '/,NUMSP(396)/'212 '/
C-----P41,332   (ASPECT 212)
      DATA ILSG(397)/'XXXXXXXX'/,NUMSP(397)/'212B'/
C-----P4132     (213)   ASS. 212
      DATA ILSG(398)/'P4132   '/,NUMSP(398)/'213 '/
C-----I4132     (214)
      DATA ILSG(399)/'I4132   '/,NUMSP(399)/'214 '/
C-----PBAR43M   (215)
      DATA ILSG(400)/'P-43M   '/,NUMSP(400)/'215 '/
C-----FBAR43M   (216)
      DATA ILSG(401)/'F-43M   '/,NUMSP(401)/'216 '/
C-----IBAR43M   (217)
      DATA ILSG(402)/'I-43M   '/,NUMSP(402)/'217 '/
C-----PBAR43N   (218)
      DATA ILSG(403)/'P-43N   '/,NUMSP(403)/'218 '/
C-----FBAR43C   (219)
      DATA ILSG(404)/'F-43C   '/,NUMSP(404)/'219 '/
C-----IBAR43D   (220)
      DATA ILSG(405)/'I-43D   '/,NUMSP(405)/'220 '/
C-----PM3M      (221)
      DATA ILSG(406)/'PM3M    '/,NUMSP(406)/'221 '/
C-----PN3N      (222)
      DATA ILSG(407)/'PN3N    '/,NUMSP(407)/'222 '/
C-----PM3N      (223)
      DATA ILSG(408)/'PM3N    '/,NUMSP(408)/'223 '/
C-----PN3M      (224)
      DATA ILSG(409)/'PN3M    '/,NUMSP(409)/'224 '/
C-----FM3M      (225)
      DATA ILSG(410)/'FM3M    '/,NUMSP(410)/'225 '/
C-----FM3C      (226)
      DATA ILSG(411)/'FM3C    '/,NUMSP(411)/'226 '/
C-----FD3M      (227)
      DATA ILSG(412)/'FD3M    '/,NUMSP(412)/'227 '/
C-----FD3C      (228)
      DATA ILSG(413)/'FD3C    '/,NUMSP(413)/'228 '/
C-----IM3M      (229)
      DATA ILSG(414)/'IM3M    '/,NUMSP(414)/'229 '/
C-----IA3D      (230)
      DATA ILSG(415)/'IA3D    '/,NUMSP(415)/'230 '/
      DATA NUMSP(416)/'  0 '/
C-----ASPECT TABLE
C
C-----ANORTHIC (TRICLINIC) STARTS HERE AT ASPECT NUMBER 1
C-----P*,-1 (2) P-1, P1
      DATA IASP(1)/'P*,-1   '/  ,NUMAS(  1)/'  2 '/
C-----MONOCLINIC STARTS HERE AT ASPECT NUMBER 2
C-----P*/* (10) P2/M, P2, PM
      DATA IASP(2)/'P*/*    '/  ,NUMAS(  2)/' 10 '/
C-----P21/* (11) P21/M, P21
      DATA IASP(3)/'P21/*   '/  ,NUMAS(  3)/' 11 '/
C-----C*/* (12A) C2/M, C2, CM
      DATA IASP(4)/'C*/*    '/  ,NUMAS(  4)/' 12A'/
C-----A*/* (12B) A2/M, A2, AM
      DATA IASP(5)/'A*/*    '/  ,NUMAS(  5)/' 12B'/
C-----I*/* (12C) I2/M, I2, IM
      DATA IASP(6)/'I*/*    '/  ,NUMAS(  6)/' 12C'/
C-----P*/C (13A) P2/C, PC
      DATA IASP(7)/'P*/C    '/  ,NUMAS(  7)/' 13A'/
C-----P*/A (13B) P2/A, PA
      DATA IASP(8)/'P*/A    '/  ,NUMAS(  8)/' 13B'/
C-----P*/N (13C) P2/N, PN
      DATA IASP(9)/'P*/N    '/  ,NUMAS(  9)/' 13C'/
C-----C*/C (15A) C2/C, CC
      DATA IASP(10)/'C*/C    '/ ,NUMAS( 10)/' 15A'/
C-----A*/A (15B) A2/A, AA
      DATA IASP(11)/'A*/A    '/ ,NUMAS( 11)/' 15B'/
C-----I*/A (15C) I2/A, IA
      DATA IASP(12)/'I*/A    '/ ,NUMAS( 12)/' 15C'/
C-----ORTHORHOMBIC STARTS HERE AT ASPECT NUMBER 13
C-----P*** (47) PMMM, P222, PMM2, PM2M, P2MM
      DATA IASP(13)/'P***    '/ ,NUMAS( 13)/' 47 '/
C-----PCC* (49A) PCCM, PCC2
      DATA IASP(14)/'PCC*    '/ ,NUMAS( 14)/' 49A'/
C-----P*AA (49B) PMAA, P2AA
      DATA IASP(15)/'P*AA    '/ ,NUMAS( 15)/' 49B'/
C-----PB*B (49C) PBMB, PB2B
      DATA IASP(16)/'PB*B    '/ ,NUMAS( 16)/' 49C'/
C-----P**A (51A) PMMA, P21MA, PM2A
      DATA IASP(17)/'P**A    '/ ,NUMAS( 17)/' 51A'/
C-----P*C* (51B) PMCM, PMC21, P2CM
      DATA IASP(18)/'P*C*    '/ ,NUMAS( 18)/' 51B'/
C-----PC** (51C) PCMM, PCM21, PC2M
      DATA IASP(19)/'PC**    '/ ,NUMAS( 19)/' 51C'/
C-----P*A* (51D) PMAM, P21AM, PMA2
      DATA IASP(20)/'P*A*    '/ ,NUMAS( 20)/' 51D'/
C-----PB** (51E) PBMM, PB21M, PBM2
      DATA IASP(21)/'PB**    '/ ,NUMAS( 21)/' 51E'/
C-----P**B (51F) PMMB, PM21B, P2MB
      DATA IASP(22)/'P**B    '/ ,NUMAS( 22)/' 51F'/
C-----P*NA (53A) PMNA, P2NA
      DATA IASP(23)/'P*NA    '/ ,NUMAS( 23)/' 53A'/
C-----PNC* (53B) PNCM, PNC2
      DATA IASP(24)/'PNC*    '/ ,NUMAS( 24)/' 53B'/
C-----PB*N (53C) PBMN, PB2N
      DATA IASP(25)/'PB*N    '/ ,NUMAS( 25)/' 53C'/
C-----P*AN (53D) PMAN, P2AN
      DATA IASP(26)/'P*AN    '/ ,NUMAS( 26)/' 53D'/
C-----PCN* (53E) PCNM, PCN2
      DATA IASP(27)/'PCN*    '/ ,NUMAS( 27)/' 53E'/
C-----PN*B (53F) PNMB, PN2B
      DATA IASP(28)/'PN*B    '/ ,NUMAS( 28)/' 53F'/
C-----PBA* (55A) PBAM, PBA2
      DATA IASP(29)/'PBA*    '/ ,NUMAS( 29)/' 55A'/
C-----PC*A (55B) PCMA, PC2A
      DATA IASP(30)/'PC*A    '/ ,NUMAS( 30)/' 55B'/
C-----P*CB (55C) PMCB, P2CB
      DATA IASP(31)/'P*CB    '/ ,NUMAS( 31)/' 55C'/
C-----PBC* (57A) PBCM, PBC21
      DATA IASP(32)/'PBC*    '/ ,NUMAS( 32)/' 57A'/
C-----PC*B (57B) PCMB, PC21B
      DATA IASP(33)/'PC*B    '/ ,NUMAS( 33)/' 57B'/
C-----PB*A (57C) PBMA, PB21A
      DATA IASP(34)/'PB*A    '/ ,NUMAS( 34)/' 57C'/
C-----PCA* (57D) PCAM, PCA21
      DATA IASP(35)/'PCA*    '/ ,NUMAS( 35)/' 57D'/
C-----P*AB (57E) PMAB, P21AB
      DATA IASP(36)/'P*AB    '/ ,NUMAS( 36)/' 57E'/
C-----P*CA (57F) PMCA, P21CA
      DATA IASP(37)/'P*CA    '/ ,NUMAS( 37)/' 57F'/
C-----PNN* (58A) PNNM, PNN2
      DATA IASP(38)/'PNN*    '/ ,NUMAS( 38)/' 58A'/
C-----PN*N (58B) PNMN, PN2N
      DATA IASP(39)/'PN*N    '/ ,NUMAS( 39)/' 58B'/
C-----P*NN (58C) PMNN, P2NN
      DATA IASP(40)/'P*NN    '/ ,NUMAS( 40)/' 58C'/
C-----P**N (59A) PMMN, PM21N, P21MN
      DATA IASP(41)/'P**N    '/ ,NUMAS( 41)/' 59A'/
C-----PN** (59B) PNMM, PNM21, PN21M
      DATA IASP(42)/'PN**    '/ ,NUMAS( 42)/' 59B'/
C-----P*N* (59C) PMNM, PMN21, P21NM
      DATA IASP(43)/'P*N*    '/ ,NUMAS( 43)/' 59C'/
C-----PN*A (62A) PNMA, PN21A
      DATA IASP(44)/'PN*A    '/ ,NUMAS( 44)/' 62A'/
C-----P*NB (62B) PMNB, P21NB
      DATA IASP(45)/'P*NB    '/ ,NUMAS( 45)/' 62B'/
C-----PBN* (62C) PBNM, PBN21
      DATA IASP(46)/'PBN*    '/ ,NUMAS( 46)/' 62C'/
C-----P*CN (62D) PMCN, P21CN
      DATA IASP(47)/'P*CN    '/ ,NUMAS( 47)/' 62D'/
C-----PC*N (62E) PCMN, PC21N
      DATA IASP(48)/'PC*N    '/ ,NUMAS( 48)/' 62E'/
C-----PNA* (62F) PNAM, PNA21
      DATA IASP(49)/'PNA*    '/ ,NUMAS( 49)/' 62F'/
C-----C*C* (63A) CMCM, CMC21, C2CM
      DATA IASP(50)/'C*C*    '/ ,NUMAS( 50)/' 63A'/
C-----BB** (63B) BBMM, BB21M, BBM2
      DATA IASP(51)/'BB**    '/ ,NUMAS( 51)/' 63B'/
C-----A*A* (63C) AMAM, A21AM, AMA2
      DATA IASP(52)/'A*A*    '/ ,NUMAS( 52)/' 63C'/
C-----A**A (63D) AMMA, A21MA, AM2A
      DATA IASP(53)/'A**A    '/ ,NUMAS( 53)/' 63D'/
C-----CC** (63E) CCMM, CCM21, CC2M
      DATA IASP(54)/'CC**    '/ ,NUMAS( 54)/' 63E'/
C-----B**B (63F) BMMB, BM21B, B2MB
      DATA IASP(55)/'B**B    '/ ,NUMAS( 55)/' 63F'/
C-----C*CA (64A) CMCA, C2CA
      DATA IASP(56)/'C*CA    '/ ,NUMAS( 56)/' 64A'/
C-----ABA* (64B) ABAM, ABA2
      DATA IASP(57)/'ABA*    '/ ,NUMAS( 57)/' 64B'/
C-----CC*A (64C) CCMA, CC2A
      DATA IASP(58)/'CC*A    '/ ,NUMAS( 58)/' 64C'/
C-----AB*A (64D) ABMA, AB2A
      DATA IASP(59)/'AB*A    '/ ,NUMAS( 59)/' 64D'/
C-----B*AB (64E) BMAB, B2AB
      DATA IASP(60)/'B*AB    '/ ,NUMAS( 60)/' 64E'/
C-----BBA* (64F) BBAM, BBA2
      DATA IASP(61)/'BBA*    '/ ,NUMAS( 61)/' 64F'/
C-----C*** (65A) CMMM, C222, CMM2, C2MM, CM2M
      DATA IASP(62)/'C***    '/ ,NUMAS( 62)/' 65A'/
C-----B*** (65B) BMMM, B222, BM2M, B2MM, BMM2
      DATA IASP(63)/'B***    '/ ,NUMAS( 63)/' 65B'/
C-----A*** (65C) AMMM, A222, A2MM, AMM2, AM2M
      DATA IASP(64)/'A***    '/ ,NUMAS( 64)/' 65C'/
C-----CCC* (66A) CCCM, CCC2
      DATA IASP(65)/'CCC*    '/ ,NUMAS( 65)/' 66A'/
C-----A*AA (66B) AMAA, A2AA
      DATA IASP(66)/'A*AA    '/ ,NUMAS( 66)/' 66B'/
C-----BB*B (66C) BBMB, BB2B
      DATA IASP(67)/'BB*B    '/ ,NUMAS( 67)/' 66C'/
C-----C**A (67A) CMMA, C2MA, CM2A
      DATA IASP(68)/'C**A    '/ ,NUMAS( 68)/' 67A'/
C-----AB** (67B) ABMM, ABM2, AB2M
      DATA IASP(69)/'AB**    '/ ,NUMAS( 69)/' 67B'/
C-----B*A* (67C) BMAM, BMA2, B2AM
      DATA IASP(70)/'B*A*    '/ ,NUMAS( 70)/' 67C'/
C-----F*** (69) FMMM, F222, FMM2, FM2M, F2MM
      DATA IASP(71)/'F***    '/ ,NUMAS( 71)/' 69 '/
C-----I*** (71) IMMM, I212121, IMM2, IM2M, I2MM
      DATA IASP(72)/'I***    '/ ,NUMAS( 72)/' 71 '/
C-----IBA* (72A) IBAM, IBA2
      DATA IASP(73)/'IBA*    '/ ,NUMAS( 73)/' 72A'/
C-----I*AA (72B) IMAA, I2AA
      DATA IASP(74)/'I*AA    '/ ,NUMAS( 74)/' 72B'/
C-----IB*A (72C) IBMA, IB2A
      DATA IASP(75)/'IB*A    '/ ,NUMAS( 75)/' 72C'/
C-----I**A (74A) IMMA, IM2A, I2MA
      DATA IASP(76)/'I**A    '/ ,NUMAS( 76)/' 74A'/
C-----IB** (74B) IBMM, IBM2, IB2M
      DATA IASP(77)/'IB**    '/ ,NUMAS( 77)/' 74B'/
C-----I*A* (74C) IMAM, IMA2, I2AM
      DATA IASP(78)/'I*A*    '/ ,NUMAS( 78)/' 74C'/
C-----TETRAGONAL STARTS HERE AT ASPECT NUMBER 79
C-----P41,3 (76) P41, P43
      DATA IASP(79)/'P41,3   '/ ,NUMAS( 79)/' 76 '/
C-----P4/* (83) P4/M, P4, P-4
      DATA IASP(80)/'P4/*    '/ ,NUMAS( 80)/' 83 '/
C-----P42/* (84) P42/M, P42
      DATA IASP(81)/'P42/*   '/ ,NUMAS( 81)/' 84 '/
C-----I4/* (87) I4/M, I4, I-4
      DATA IASP(82)/'I4/*    '/ ,NUMAS( 82)/' 87 '/
C-----P41,322 (91) P4122, P4322
      DATA IASP(83)/'P41,322 '/ ,NUMAS( 83)/' 91 '/
C-----P41,3212 (92) P41212, P43212
      DATA IASP(84)/'P41,3212'/ ,NUMAS( 84)/' 92 '/
C-----P421* (113) P-421M, P4212
      DATA IASP(85)/'P421*   '/ ,NUMAS( 85)/'113 '/
C-----I4*D (122) I-42D, I41MD
      DATA IASP(86)/'I4*D    '/ ,NUMAS( 86)/'122 '/
C-----P4/*** (123) P4/MMM, P422, P4MM, P-42M, P-4M2
      DATA IASP(87)/'P4/***  '/ ,NUMAS( 87)/'123 '/
C-----P4/*CC (124) P4/MCC, P4CC
      DATA IASP(88)/'P4/*CC  '/ ,NUMAS( 88)/'124 '/
C-----P4/*B* (127) P4/MBM, P4BM, P-4B2
      DATA IASP(89)/'P4/*B*  '/ ,NUMAS( 89)/'127 '/
C-----P4/*NC (128) P4/MNC, P4NC
      DATA IASP(90)/'P4/*NC  '/ ,NUMAS( 90)/'128 '/
C-----P4/**C (131) P42/MMC, P42MC, P-42C
      DATA IASP(91)/'P4/**C  '/ ,NUMAS( 91)/'131 '/
C-----P4/*C* (132) P42/MCM, P42CM, P-4C2
      DATA IASP(92)/'P4/*C*  '/ ,NUMAS( 92)/'132 '/
C-----P4/*BC (135) P42/MBC, P42BC
      DATA IASP(93)/'P4/*BC  '/ ,NUMAS( 93)/'135 '/
C-----P4/*N* (136) P42/MNM, P42NM, P-4N2
      DATA IASP(94)/'P4/*N*  '/ ,NUMAS( 94)/'136 '/
C-----I4/*** (139) I4/MMM, I422, I4MM, I-4M2, I-42M
      DATA IASP(95)/'I4/***  '/ ,NUMAS( 95)/'139 '/
C-----I4/*C* (140) I4/MCM, I4CM, I-4C2
      DATA IASP(96)/'I4/*C*  '/ ,NUMAS( 96)/'140 '/
C-----HEXAGONAL STARTS HERE AT ASPECT NUMBER 97
C-----P31,2 (144) P31, P32
      DATA IASP(97)/'P31,2   '/ ,NUMAS( 97)/'144 '/
C-----P*,-3 (147) P-3, P3
      DATA IASP(98)/'P*,-3   '/ ,NUMAS( 98)/'147 '/
C-----R* (148) R-3, R3
      DATA IASP(99)/'R*      '/ ,NUMAS( 99)/'148 '/
C-----P31,212 (151) P3112, P3212
      DATA IASP(100)/'P31,212 '/,NUMAS(100)/'151 '/
C-----P31,221 (152) P3121, P3221
      DATA IASP(101)/'P31,221 '/,NUMAS(101)/'152 '/
C-----P31* (162) P-31M, P312, P31M
      DATA IASP(102)/'P31*    '/,NUMAS(102)/'162 '/
C-----P*1C,-3M (163) P-31C, P31C
      DATA IASP(103)/'P*1C,-3M'/,NUMAS(103)/'163 '/
C-----P3*1 (164) P-3M1, P321, P3M1
      DATA IASP(104)/'P3*1    '/,NUMAS(104)/'164 '/
C-----P*C1,-3M (165) P-3C1, P3C1
      DATA IASP(105)/'P*C1,-3M'/,NUMAS(105)/'165 '/
C-----R** (166) R-3M, R32, R3M
      DATA IASP(106)/'R**     '/,NUMAS(106)/'166 '/
C-----R*C (167) R-3C, R3C
      DATA IASP(107)/'R*C     '/,NUMAS(107)/'167 '/
C-----P61,5 (169) P61, P65
      DATA IASP(108)/'P61,5   '/,NUMAS(108)/'169 '/
C-----P62,4 (171) P62, P64
      DATA IASP(109)/'P62,4   '/,NUMAS(109)/'171 '/
C-----P6/* (175) P6/M, P6, P-6
      DATA IASP(110)/'P6/*    '/,NUMAS(110)/'175 '/
C-----P63/* (176) P63/M, P63
      DATA IASP(111)/'P63/*   '/,NUMAS(111)/'176 '/
C-----P61,522 (178) P6122, P6522
      DATA IASP(112)/'P61,522 '/,NUMAS(112)/'178 '/
C-----P62,422 (180) P6222, P6422
      DATA IASP(113)/'P62,422 '/,NUMAS(113)/'180 '/
C-----P6/*** (191) P6/MMM, P622, P6MM, P-6M2, P-62M
      DATA IASP(114)/'P6/***  '/,NUMAS(114)/'191 '/
C-----P6/*CC (192) P6/MCC, P6CC
      DATA IASP(115)/'P6/*CC  '/,NUMAS(115)/'192 '/
C-----P6/*C* (193) P63/MCM, P63CM, P-6C2
      DATA IASP(116)/'P6/*C*  '/,NUMAS(116)/'193 '/
C-----P6/**C (194) P63/MMC, P63MC, P-62C
      DATA IASP(117)/'P6/**C  '/,NUMAS(117)/'194 '/
C-----CUBIC STARTS HERE AT ASPECT NUMBER 118
C-----P*3 (200) PM3, P23
      DATA IASP(118)/'P*3     '/,NUMAS(118)/'200 '/
C-----F*3 (202) FM3, F23
      DATA IASP(119)/'F*3     '/,NUMAS(119)/'202 '/
C-----I*3 (204) IM3, I23, I213
      DATA IASP(120)/'I*3     '/,NUMAS(120)/'204 '/
C-----P41,332 (212) P4332, P4132
      DATA IASP(121)/'P41,332 '/,NUMAS(121)/'212 '/
C-----P*3* (221) PM3M, P432, P-43M
      DATA IASP(122)/'P*3*    '/,NUMAS(122)/'221 '/
C-----P*3N (223) PM3N, P-43N
      DATA IASP(123)/'P*3N    '/,NUMAS(123)/'223 '/
C-----F*3* (225) FM3M, F432, F-43M
      DATA IASP(124)/'F*3*    '/,NUMAS(124)/'225 '/
C-----F*3C (226) FM3C, F-43C
      DATA IASP(125)/'F*3C    '/,NUMAS(125)/'226 '/
C-----I*3* (229) IM3M, I432, I-43M
      DATA IASP(126)/'I*3*    '/,NUMAS(126)/'229 '/
C
C-----ALSO ACCEPT THE FOUR ASPECTS WITHOUT LAUE SYMMETRY
C-----P*,-1 (2)    ACCEPT P*
      DATA IASP(127)/'P*      '/,NUMAS(127)/'  2 '/
C-----P*,-3 (147)    ACCEPT P*
      DATA IASP(128)/'P*      '/,NUMAS(128)/'147 '/
C-----P*1C,-3M (163)    ACCEPT P*1C
      DATA IASP(129)/'P*1C    '/,NUMAS(129)/'163 '/
C-----P*C1,-3M (165)    ACCEPT P*C1
      DATA IASP(130)/'P*C1    '/,NUMAS(130)/'165 '/
      DATA IASPEC(1)/' '/, IASPEC(2)/'*'/
C-----BEGINING
 10   IOK=0
      IMATCH=0
      NASPEC=1
C
C-----TEST ICRS TO DETERMINE WHICH CRYSTAL SYSTEM
C
      IF(ICRS.EQ.ITCRS(1)) GO TO 100
      IF(ICRS.EQ.ITCRS(2)) GO TO 200
      IF(ICRS.EQ.ITCRS(3)) GO TO 300
      IF(ICRS.EQ.ITCRS(4)) GO TO 400
      IF(ICRS.EQ.ITCRS(5)) GO TO 500
      IF(ICRS.EQ.ITCRS(6)) GO TO 500
      IF(ICRS.EQ.ITCRS(7)) GO TO 600
      GO TO 700
C-----ANORTHIC REGION
 100  DO 110  I= 1,2
      IF(SPGR.NE.ILSG(I))  GO TO 110
      IOK=1
      IMATCH=I
      GO TO 120
 110  CONTINUE
      IF(SPGR.NE.IASP(1).AND.SPGR.NE.IASP(127)) GO TO 120
      IOK=1
      IMATCH=1
      IF(SPGR.EQ.IASP(127)) IMATCH=127
      NASPEC=2 
 120  CONTINUE
      GO TO 700
C-----MONOCLINIC REGION
C-----DO NOT ASSIGN NUMBER IF A-CENTERED, A-UNIQUE ETC
 200  IF(IPASS.EQ.1.AND.SPGR(1:1).EQ.ITSG(2).AND.IFA.EQ.0)GO TO 700
      IF(IPASS.EQ.1.AND.SPGR(1:1).EQ.ITSG(3).AND.IFB.EQ.0)GO TO 700
      IF(IPASS.EQ.1.AND.SPGR(1:1).EQ.ITSG(4).AND.IFC.EQ.0)GO TO 700
      DO 210  I=3,31
      IF(SPGR.NE.ILSG(I)) GO TO 210
      IOK=1
      IMATCH=I
      GO TO 230
 210  CONTINUE
      DO 220 I=2,12
      IF(SPGR.NE.IASP(I)) GO TO 220
      IOK=1
      IMATCH=I
      NASPEC=2
      GO TO 230
 220  CONTINUE 
 230  CONTINUE 
      GO TO 700
C-----ORTHORHOMBIC REGION
 300  DO 310  I=32,248
      IF(SPGR.NE.ILSG(I))  GO TO 310
      IOK=1
      IMATCH=I
      GO TO 330
 310  CONTINUE
      DO 320 I=13,78
      IF(SPGR.NE.IASP(I)) GO TO 320
      IOK=1
      IMATCH=I
      NASPEC=2
      GO TO 330
 320  CONTINUE
 330  CONTINUE
      GO TO 700
C-----TETRAGONAL REGION
 400  DO 410 I=249,319
      IF(SPGR.NE.ILSG(I))  GO TO 410
      IOK=1
      IMATCH=I
      GO TO 430
 410  CONTINUE
      DO 420 I=79,96
      IF(SPGR.NE.IASP(I)) GO TO 420
      IOK=1
      IMATCH=I
      NASPEC=2
      GO TO 430
 420  CONTINUE
 430  CONTINUE
      GO TO 700
C-----HEXAGONAL AND RHOMBOHEDRAL REGION
 500  DO 510  I=320,378
      IF(SPGR.NE.ILSG(I))  GO TO 510
      IOK=1
      IMATCH=I
      GO TO 530
 510  CONTINUE
      DO 520 I=97,117
      IF(SPGR.NE.IASP(I)) GO TO 520
      IOK=1
      IMATCH=I
      NASPEC=2
      GO TO 530
 520  CONTINUE
      DO 525 I=128,130
      IF(SPGR.NE.IASP(I)) GO TO 525
      IOK=1
      IMATCH=I
      NASPEC=2
      GO TO 530
 525  CONTINUE 
 530  CONTINUE
      GO TO 700
C-----CUBIC REGION
 600  DO 610  I=379,415
      IF(SPGR.NE.ILSG(I))  GO TO 610
      IOK=1
      IMATCH=I
      GO TO 630
610   CONTINUE
      DO 620 I=118,126
      IF(SPGR.NE.IASP(I)) GO TO 620
      IOK=1
      IMATCH=I
      NASPEC=2
      GO TO 630
 620  CONTINUE
 630  CONTINUE
C
C-----WAS SPGR# FOUND?
C
 700  IF(IOK.EQ.1) GOTO 800
      IMATCH=416
C
C-----ASSIGN THE SPACE GROUP NUMBER AND ASPECT CODE
C
 800  SPGRA=IASPEC(NASPEC)
      IF(NASPEC.EQ.1) GO TO 810
      SPGRN=NUMAS(IMATCH)
      GO TO 820
 810  SPGRN=NUMSP(IMATCH)
 820  CONTINUE
 999  RETURN
      END

