SUBROUTINE GRID_OLD ( )

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.                            * 
                                                                        * 
 
### grid_old ### 
    Initializes grid info to enable interpolation.
Source file:grid_old.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
  IOUT6                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
DOUBLE PRECISION   DBLE
GENERIC*8          COS,        COSH
GENERIC*4          LOG
GENERIC*8          SQRT
Local Variables (+ indicates altered content)
INTEGER           +I,         +IB,        +IE,        +IG
REAL*8            +RINFIG_P,  +XMI0
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             PII,       PRECIS
GRIDI_P            INTEGER           +IBMU_P(10)
GRIDI_P            INTEGER           +IEMU_P(10)
GRIDI_P            INTEGER           +IOFFS_P(10)
GRIDI_P            INTEGER           +MXNMU_P,  +MXSIZE_P
GRIDI_P            INTEGER            NGRIDS_P, +NGSIZE_P(10)
GRIDI_P            INTEGER            NMU_P(10)
GRIDI_P            INTEGER            NNI_P
GRIDR_P            REAL*8            +HMU_P(10)
GRIDR_P            REAL*8            +HNI_P,    +VETA1_P(1500)
GRIDR_P            REAL*8            +VETA2_P(1500)
GRIDR_P            REAL*8            +VETASQ_P(1500)
GRIDR_P            REAL*8            +VETA_P(1500)
GRIDR_P            REAL*8            +VMU_P(2500)
GRIDR_P            REAL*8            +VNI_P(1500)
GRIDR_P            REAL*8            +VXI1_P(2500)
GRIDR_P            REAL*8            +VXI2_P(2500)
GRIDR_P            REAL*8            +VXISQ_P(2500)
GRIDR_P            REAL*8            +VXI_P(2500)
IOCHAN             INTEGER            IOUT6
RINPUTD_P          REAL*8             RGRID_P(10)
RINPUTD_P          REAL*8            +RINF_P,    R_P