Index: sfcheck_/sfch_subr.f
===================================================================
RCS file: /ccpdisk/xtal/CVSROOT/ccp4/src/sfcheck_/sfch_subr.f,v
retrieving revision 1.16
diff -c -r1.16 sfch_subr.f
*** sfcheck_/sfch_subr.f	1 Feb 2006 15:20:07 -0000	1.16
--- sfcheck_/sfch_subr.f	10 Mar 2006 14:32:38 -0000
***************
*** 18454,18460 ****
        PDB  = 'N'
        CIF  = 'N'
  
!       DO I=1,3000
  
          LINE = ' '
  
--- 18454,18460 ----
        PDB  = 'N'
        CIF  = 'N'
  
!       DO I=1,5000
  
          LINE = ' '
  
***************
*** 18495,18502 ****
        CLOSE(IN)
        IF(CIF.EQ.'Y'.AND.PDB.EQ.'N') THEN
          MESSAGE = 'CIF COORD File'
!         IF(FILE(IFLEN-3:IFLEN).NE.'.crd') THEN
!           LINE = 'ERROR: CIF_file must has extension ".crd"'
            CALL MSGERR(MD,LINE)
            IERR = 1
          ENDIF
--- 18495,18503 ----
        CLOSE(IN)
        IF(CIF.EQ.'Y'.AND.PDB.EQ.'N') THEN
          MESSAGE = 'CIF COORD File'
!         IF(FILE(IFLEN-3:IFLEN).NE.'.crd' .AND.
!      *       FILE(IFLEN-3:IFLEN).NE.'.cif') THEN
!           LINE = 'ERROR: CIF_file must has extension ".crd" or ".cif"'
            CALL MSGERR(MD,LINE)
            IERR = 1
          ENDIF