C++*********************************************************************
C
C RDDOCN.F               ADAPTED FROM RDDOCA2Q.F FEB 97 BY ArDean Leith
C                        OPENDOC PARAMETERS       DEC 2000 ARDEAN LEITH
C                        INCORE OPENDOC           JUL 2003 ARDEAN LEITH
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   RDDOCN(DOCNAM,NDOC)
C
C   PURPOSE:  FINDS NUMBER OF COLUMNS AND KEYS IN DOC A FILE. CAN
C             SET THESE VALUES IN REGISTERS GIVEN ON COMMAND LINE
C   
C   PARAMETERS:   DOCNAM    FILE NAME                   (SENT)
C                 NDOC      LUN FOR DOC FILE            (SENT)
C
C   USAGE:        UD N,X11,X12
C
C--*******************************************************************

	SUBROUTINE RDDOCN(DOCNAM,NDOC)

	INCLUDE 'CMBLOCK.INC' 

        CHARACTER(LEN=*) :: DOCNAM

#ifdef USE_MPI
        include 'mpif.h' 
        INTEGER MYPID, COMM, MPIERR
c                  
        COMM   = MPI_COMM_WORLD 
        MPIERR = 0   
        CALL MPI_COMM_RANK(COMM, MYPID, MPIERR) 
#else
        MYPID = -1
#endif

C       FIND MAXKEYS BY READING DOC FILE TO GET MAX KEY NUMBER
        CALL OPENDOC(DOCNAM,.FALSE.,NLET,NDOC,NICDOC,.FALSE.,' ',
     &               .TRUE.,.FALSE.,.FALSE.,NEWFILE,IRTFLG)
        IF (IRTFLG .NE. 0) RETURN

        CALL LUNDOCINFO(NICDOC,MAXKEYS,MAXCOLS,KEYUSED,.TRUE.,IRTFLG)
        IF (MYPID .LE. 0) CLOSE(NDOC)
        IF (IRTFLG .NE. 0) RETURN

C       SET FIRST REGISTER TO MAXKEYS & MAXCOLS
        CALL REG_SET_NSEL(1,2,FLOAT(MAXKEYS),FLOAT(MAXCOLS),
     &                        0.0, 0.0 ,0.0,IRTFLG)

        IF (MYPID .LE. 0) WRITE(NOUT,*) ' '

	RETURN
	END