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