Argument Definitions (+ indicates altered content) INTEGER NORB_P REAL*8 CW_COUL(*), CW_EXCH(*) REAL*8 CW_ORB(*), +CW_SCTCH(*), WK16(*) REAL*8 WK8(*)
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. * * ### rfun_int ### Reads functions from disk in unformatted form and interpolates to a new grid.
Source file: rfun_int.f
I/O Operations: Unit ID Unit No Access Form Operation IINP11 SEQ UNF R IOUT6 SEQ FMTD W IINP11 SEQ A IINP12 SEQ A * SEQ FMTD W IINP13 SEQ A Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
Intrinsic Functions Called GENERIC*8 ABS
External Functions and Subroutines Called SUBROUTINE DOINTERP, READA16, READA8
Local Variables (+ indicates altered content) INTEGER +I, +I1B_P(60), +I1E_P(60), +I1MU_P(60) INTEGER +I1NG_P(60), +I1SI_P(60) INTEGER +I2B_P(60), +I2E_P(60), +I2MU_P(60) INTEGER +I2NG_P(60), +I2SI_P(60) INTEGER +I3B_P(1830), +I3E_P(1830) INTEGER +I3MU_P(1830), +I3NG_P(1830) INTEGER +I3SI_P(1830), +ICA, +IDEL INTEGER IERR, +IOFFSET, +IORB1, +IORB2 INTEGER +IPEX, +J, +K
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60), I2B(60) ADDRESS1 INTEGER I3B(1830) ADDRESS1 INTEGER I5B(20) ADDRESS3 INTEGER I3SI(1830) ADDRESS5 INTEGER I1MU(60), I2MU(60) ADDRESS5 INTEGER I3MU(1830) CONFIG INTEGER NORB ENERG REAL*8 +ENG(60) EXMO REAL*8 +EXC5(3660) EXMO REAL*8 +EXC6(3660) EXMO REAL*8 +EXC7(3660) EXMO REAL*8 +EXC8(3660) EXMO REAL*8 +EXCDI(3660) EXMO REAL*8 +EXCHE(3660) EXMO REAL*8 +EXCOC(3660) EXMO REAL*8 +EXCQU(3660) INPUTD1 INTEGER +IDUMP, IFORM INPUTD1 INTEGER IMETHOD IOCHAN INTEGER IINP11, IINP12 IOCHAN INTEGER IINP13, IOUT6 IOCHAN INTEGER LENGTHFP MOMENT REAL*8 +CMULTI(1200) NOENG REAL*8 +ENGO(3600) ORBIT INTEGER LL(60) ORBITI INTEGER MGX(9,60) ORBITR REAL*8 +AREA(60) SORWK INTEGER +ISYM