SUBROUTINE RHEADER ( NORB_P )

Argument Definitions (+ indicates altered content)
INTEGER           +NORB_P
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### rheader ###
Source file:rheader.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
 IINP14                   SEQ          A         
 IINP14                   SEQ  FMTD          R   
  IOUT6                   SEQ  FMTD           W  
 IINP11                   SEQ   UNF          R   

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC*8          ABS
Local Variables (+ indicates altered content)
INTEGER           +I,         +I4TMP(10), +I4TMP1,    +I4TMP2
INTEGER           +I4TMP3
INTEGER*8         +I8TMP(10), +I8TMP1,    +I8TMP2,    +I8TMP3
INTEGER           +IG,        +IMAX1,     +IMAX2,     +MISMATCH
INTEGER           +NEL_P,     +NEXCH_P
REAL*8            +R16TMP(10),            +R16TMP1,   +R16TMP2
REAL*8            +R8TMP(10), +R8TMP1,    +R8TMP2,    +RD
REAL*8            +Z1D,       +Z2D
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              CHARACTER*80      +DATETIME_P  COMMON /RINPUTD_P/
                   CHARACTER         +DTARR2()   Local Var
EQUIV              CHARACTER         +DTARR1()   Local Var
                   CHARACTER*80      +HEADER_P   COMMON /RINPUTD_P/
Referenced Common Block Variables (+ indicates altered content)
CONFIG             INTEGER            NEL,      +NEXCH
CONFIG             INTEGER            NORB
GRIDI              INTEGER            NGRIDS,    NMU(10)
GRIDI              INTEGER            NNI
GRIDI_P            INTEGER           +NGRIDS_P, +NMU_P(10)
GRIDI_P            INTEGER           +NNI_P
INPUTD1            CHARACTER*10       FORMFP64,  FORMINT
INPUTD1            INTEGER           +IDUMP,     IINTERP
INPUTD1            INTEGER            IMETHOD,  +INI4
INPUTD2            REAL*8             R,         RGRID(10)
INPUTD2            REAL*8             Z1,        Z2
IOCHAN             INTEGER            IDAT,      IINP11
IOCHAN             INTEGER            IINP14,    IOUT6
IOCHAN             INTEGER            LENGTHFP,  LENGTHINT
RINPUTD_P          CHARACTER*80      +DATETIME_P
RINPUTD_P          CHARACTER*80      +HEADER_P
RINPUTD_P          REAL*8            +RGRID_P(10)
RINPUTD_P          REAL*8            +R_P,      +Z1_P
RINPUTD_P          REAL*8            +Z2_P