SUBROUTINE DOINTERP ( IC, NMUALL_P, NMUALL, FBEFORE, FAFTER )

Argument Definitions (+ indicates altered content)
INTEGER            IC,         NMUALL,     NMUALL_P
REAL*8            +FAFTER(NNI,*),          FBEFORE(NNI_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.                            * 
                                                                        * 
 
### dointerp ### 
 
      Performs interpolations of orbitals and potentials between grids. 
      Orbitals and potentials are treated separately.
Source file:dointerp.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

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_MU,            DOINTERP_NU
Local Variables (+ indicates altered content)
INTEGER           +I,         +IM,        +IMU,       +IMU_BEXT
INTEGER           +IN,        +NALL,      +NALL_P,    +NINNER
INTEGER           +NINNER_P,  +NSTART,    +NSTART_P
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             ONE,       PRECIS
DIMES              INTEGER            MAXMU
GRIDI              INTEGER            NGRIDS,    NNI
GRIDI_P            INTEGER            NGRIDS_P,  NNI_P
GRIDR              REAL*8             VMU(2500)
GRIDR_P            REAL*8             VMU_P(2500)
GRIDR_P            REAL*8             VNI_P(1500)
INPUTD2            REAL*8             RINF
IORD_DATA          INTEGER            IORD_MU_COUL
IORD_DATA          INTEGER            IORD_MU_EXCH
IORD_DATA          INTEGER            IORD_MU_ORB
IORD_DATA          INTEGER            IORD_NU_COUL
IORD_DATA          INTEGER            IORD_NU_EXCH
IORD_DATA          INTEGER            IORD_NU_ORB
QPREC              INTEGER           +IORD,     +IORD2
QPREC              INTEGER           +KBEG,     +KEND
QPREC              REAL*8            +VMUQ(2500)
RINPUTD_P          REAL*8             RINF_P