C ++********************************************************************
C                                                                      *
C COPYFROMXPLO                                                        *
C                                                                      *
C **********************************************************************
C=* FROM: SPIDER - MODULAR IMAGE PROCESSING SYSTEM.   AUTHOR: J.FRANK  *
C=* Copyright (C) 1985-2005  Health Research Inc.                      *
C=*                                                                    *
C=* HEALTH RESEARCH INCORPORATED (HRI),                                *   
C=* ONE UNIVERSITY PLACE, RENSSELAER, NY 12144-3455.                   *
C=*                                                                    *
C=* Email:  spider@wadsworth.org                                       *
C=*                                                                    *
C=* This program is free software; you can redistribute it and/or      *
C=* modify it under the terms of the GNU General Public License as     *
C=* published by the Free Software Foundation; either version 2 of the *
C=* License, or (at your option) any later version.                    *
C=*                                                                    *
C=* This program is distributed in the hope that it will be useful,    *
C=* but WITHOUT ANY WARRANTY; without even the implied warranty of     *
C=* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU  *
C=* General Public License for more details.                           *
C=*                                                                    *
C=* You should have received a copy of the GNU General Public License  *
C=* along with this program; if not, write to the                      *
C=* Free Software Foundation, Inc.,                                    *
C=* 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.      *
C=*                                                                    *
C **********************************************************************
C                                                                      *
C COPYFROMXPLO(LUNIN,LUNOUT,MAXMEM)                                                                     *
C 
C PURPOSE: CONVERT EXPLOR (CCP4) VOLUME TO SPIDER VOLUME
C                                                                     *
C PARAMETER:   MAXMEM      SIZE OF COMMON BUFFER              (SENT)                                                                    *
C                                                                      *
C **********************************************************************

        SUBROUTINE  COPYFROMXPLO(LUNIN,LUNOUT,MAXMEM)

        INCLUDE 'CMBLOCK.INC'
        INCLUDE 'CMLIMIT.INC' 
 
        CHARACTER(LEN=MAXNAM)   ::  FILNAM

        COMMON Q(1)

        CHARACTER(LEN=1)        ::  NULL
        CHARACTER*8   CTEXT

        NULL = CHAR(0)

        CALL OPAUXFILE(.TRUE.,FILNAM,NULL,LUNIN,0,
     &                       'O','X-PLOR ASCII',.TRUE.,IRTFLG)
        IF (IRTFLG .NE. 0) RETURN
       
C       FIND FIRST 'REMARKS'
        DO
           READ(LUNIN,821,END=9999,ERR=9999) CTEXT
821        FORMAT(A8)
           IF (CTEXT .EQ. ' REMARKS') EXIT
        ENDDO

C       FIND LAST 'REMARKS'
        DO
           READ(LUNIN,821,END=9999,ERR=9999) CTEXT
           IF (CTEXT .NE. ' REMARKS') EXIT
        ENDDO
        BACKSPACE LUNIN

        READ(LUNIN,822,ERR=9999)  I1,I2,I3,J1,J2,J3,K1,K2,K3
822     FORMAT(9(I8))
        NSAM   = I3-I2+1
        NROW   = J3-J2+1
        NSLICE = K3-K2+1

        IF (NSAM*NROW .GT. MAXMEM) THEN
           CALL ERRT(101,'INSUFFICIENT COMMON BUFFER SPACE',NDUM)
            GOTO 9999
        ENDIF

        IFORM = 3
        MAXIM = 0
        CALL OPFILEC(0,.TRUE.,FILNAM,LUNOUT,'U',IFORM,NSAM,NROW,NSLICE,
     &              MAXIM,'SPIDER OUTPUT',.FALSE.,IRTFLG)
        IF (IRTFLG .NE. 0) GOTO9999

        READ(LUNIN,206,IOSTAT=IERR)  DX,DY,DZ
206     FORMAT(6(1PE12.5))
           IF (IERR .NE. 0) THEN
              CALL ERRT(101,'READING X-PLOR ASCII FILE',NDUM)
              GOTO 9999
           ENDIF

        READ(LUNIN,*)

        DO   K=1,NSLICE
           READ(LUNIN,823,IOSTAT=IERR)  ISL
823        FORMAT(I8)
           IF (IERR .NE. 0) THEN
              CALL ERRT(101,'READING X-PLOR ASCII FILE',NDUM)
              GOTO 9999
           ENDIF

           IF (K-1 .NE. ISL)  THEN
              CALL ERRT(102,'WRONG SLICE',K)
              GOTO 9999
           ENDIF

           READ(LUNIN,824,IOSTAT=IERR) (Q(I),I=1,NSAM*NROW)
824        FORMAT(6E12.5)
           IF (IERR .NE. 0) THEN
              CALL ERRT(101,'READING X-PLOR ASCII FILE',NDUM)
              GOTO 9999
           ENDIF
              
           DO  J=1,NROW
              NREC = J+(K-1)*NROW
              CALL WRTLIN(LUNOUT,Q(1+(J-1)*NSAM),NSAM,NREC)
           ENDDO
        ENDDO

9999    CLOSE(LUNIN)
        CLOSE(LUNOUT)
        RETURN
        END