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