Argument Definitions (+ indicates altered content) REAL*8 CW_COUL(*), CW_EXCH(*) REAL*8 CW_ORB(*), CW_SCTCH(*)
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. * * ### initDisk ### Controls retrieving orbitals and potentials from a disk file
Source file: initDisk.f
External Functions and Subroutines Called SUBROUTINE GRID_OLD, RFUN, RFUN_INT, RHEADER
Local Variables (+ indicates altered content) INTEGER +LENGTHFP_CURR, +LENGTHINT_CURR INTEGER NORB_P
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I5B(20) INPUTD1 INTEGER IINTERP IOCHAN INTEGER +LENGTHFP, LENGTHFPIN IOCHAN INTEGER +LENGTHINT IOCHAN INTEGER LENGTHINTIN