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