Argument Definitions (+ indicates altered content) REAL*8 PSI(*)
Description * Copyright (C) 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. * * ### tail #### examines the tails of all orbitals and determines the location of the last maximum in mu variable, i.e. f(max)=max{vmax(1),vmax(2),...,vmax(nni)} and the maximum value of psi at the last mi=nmi grid line
Source file: tail.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
Local Variables (+ indicates altered content) INTEGER +IBEG, +IJK, +IMAXG, +INIMAX INTEGER +IORB REAL*8 +VP, +VPMAX
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60) CONFIG INTEGER NORB GRIDI INTEGER MXNMU, NNI INPUTD1 INTEGER +INI