Argument Definitions (+ indicates altered content) INTEGER L1, M1, N1 REAL*8 EZ1, +ORBITAL(*)
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. * * ### hydrogenOrbA ### This routine returns an arrys containing a hydrogenic orbital centred on centre A for a given set of n,l,m and Z.
Source file: hydrogenOrbA.f
Intrinsic Functions Called DOUBLE PRECISION DBLE GENERIC*8 SQRT
External Functions and Subroutines Called REAL*8 FACTOR, PLAGUER, PLEGENDG
Local Variables (+ indicates altered content) INTEGER +IGP, +IMU, +IN, +INIOFF REAL*8 +COSTH1, +FN1, +R1T, +RR REAL*8 +SHN1, +Z
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 PII, ZERO GRIDI INTEGER MXNMU, NNI GRIDR REAL*8 VETA(1500) GRIDR REAL*8 VETASQ(1500) GRIDR REAL*8 VXI(2500) GRIDR REAL*8 VXISQ(2500) INPUTD2 REAL*8 R