*** sfch_subr.f-pr1	2006-03-10 10:25:24.000000000 -0500
--- sfch_subr.f	2006-03-10 10:29:34.000000000 -0500
***************
*** 2581,2587 ****
  
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
  
!           IF     (ITEM(11:21).EQ.'space_group') THEN         
              SGNAME=DATA
            ELSE IF(ITEM(11:21).EQ.'Int_Tables_') THEN         
              NSG=IDATA
--- 2581,2587 ----
  
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
  
!           IF     (ITEM(11:30).EQ.'space_group_name_H-M') THEN       
              SGNAME=DATA
            ELSE IF(ITEM(11:21).EQ.'Int_Tables_') THEN         
              NSG=IDATA
***************
*** 8092,8098 ****
              CR_CELL(6) = CR_CELL(6)*PI180
            ENDIF
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
!           IF(ITEM(11:23).EQ.'space_group_n') THEN
              IF(LEND.GT.11) LEND=11
              CR_SPGR = DATA(1:LEND)
              IF(LEND.LT.11) THEN
--- 8092,8098 ----
              CR_CELL(6) = CR_CELL(6)*PI180
            ENDIF
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
!           IF(ITEM(11:30).EQ.'space_group_name_H-M') THEN
              IF(LEND.GT.11) LEND=11
              CR_SPGR = DATA(1:LEND)
              IF(LEND.LT.11) THEN
***************
*** 10047,10053 ****
              CR2_CELL(6) = CR2_CELL(6)*PI180
            ENDIF
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
!           IF(ITEM(11:23).EQ.'space_group_n') THEN
              IF(LEND.GT.11) LEND=11
              CR2_SPGR = DATA(1:LEND)
              IF(LEND.LT.11) THEN
--- 10047,10053 ----
              CR2_CELL(6) = CR2_CELL(6)*PI180
            ENDIF
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
!           IF(ITEM(11:30).EQ.'space_group_name_H-M') THEN
              IF(LEND.GT.11) LEND=11
              CR2_SPGR = DATA(1:LEND)
              IF(LEND.LT.11) THEN
Index: sfch_prog.f
===================================================================
RCS file: /ccpdisk/xtal/CVSROOT/ccp4/src/sfcheck_/sfch_prog.f,v
retrieving revision 1.16
diff -c -r1.16 sfch_prog.f
*** sfch_prog.f	1 Feb 2006 15:20:06 -0000	1.16
--- sfch_prog.f	10 Mar 2006 14:50:45 -0000
***************
*** 12059,12065 ****
              CR_CELL(6) = CR_CELL(6)*PI180
            ENDIF
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
!           IF(ITEM(11:23).EQ.'space_group_n') THEN
              IF(LEND.GT.11) LEND=11
              CR_SPGR = DATA(1:LEND)
              IF(LEND.LT.11) THEN
--- 12059,12065 ----
              CR_CELL(6) = CR_CELL(6)*PI180
            ENDIF
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
!           IF(ITEM(11:30).EQ.'space_group_name_H-M') THEN 
              IF(LEND.GT.11) LEND=11
              CR_SPGR = DATA(1:LEND)
              IF(LEND.LT.11) THEN
***************
*** 16430,16436 ****
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
            IF(IFIRST.EQ.0) THEN
  
!           IF     (ITEM(11:21).EQ.'space_group') THEN         
              SGNAME=DATA
            ELSE IF(ITEM(11:21).EQ.'Int_Tables_') THEN         
              NSG=IDATA
--- 16430,16436 ----
          ELSE IF(ITEM(1:9).EQ.'_symmetry') THEN
            IF(IFIRST.EQ.0) THEN
  
!           IF     (ITEM(11:30).EQ.'space_group_name_H-M') THEN       
              SGNAME=DATA
            ELSE IF(ITEM(11:21).EQ.'Int_Tables_') THEN         
              NSG=IDATA