SUBROUTINE RFUN_INT ( NORB_P, CW_ORB, CW_COUL, CW_EXCH, WK8, WK16, CW_SCTCH )

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