Argument Definitions (+ indicates altered content) INTEGER IORB1, IORB2 REAL*8 +D1(NNI,MXNMU), +D2(NNI,MXNMU) REAL*8 +D3(NNI,MXNMU), +D4(NNI,MXNMU) REAL*8 +D5(NNI,MXNMU), +D6(NNI,MXNMU) REAL*8 +D7(NNI,MXNMU), +D8(NNI,MXNMU) REAL*8 F4(*), PSI(*), WGT2(*), WK1(*) REAL*8 WK2(*)
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. * * ### exchMom ### Calculates multipole moments to k=8 and m=4 (iorb1<=iorb2)
Source file: exchMom.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 GENERIC*4 MIN GENERIC*8 SQRT
External Functions and Subroutines Called REAL*8 DOT SUBROUTINE MULEX, PROD, PROD2
Local Variables (+ indicates altered content) INTEGER +I, +IBEG1, +IBEG2, +IDEL INTEGER +IDO, +IPC, +MU, +NGRID INTEGER +NI REAL*8 DOME(10), +XRR, +XW
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60) ADDRESS3 INTEGER I1SI(60) ADDRESS6 INTEGER I3XK(60,60) COMPATAB CHARACTER*8 BOND(60), GUT(60) COMPATAB INTEGER ILC(1830) COMPATAB INTEGER IORN(60) CONFIG INTEGER NORB CONSINT INTEGER IONE DEBUG INTEGER IPRINT(1000) EXMO REAL*8 +EXC5(3660) EXMO REAL*8 +EXC6(3660) EXMO REAL*8 +EXC7(3660) EXMO REAL*8 +EXC8(3660) EXMO REAL*8 +EXCDI(3660) EXMO REAL*8 +EXCHE(3660) EXMO REAL*8 +EXCOC(3660) EXMO REAL*8 +EXCQU(3660) GRIDI INTEGER MXNMU, NNI GRIDR REAL*8 VETASQ(1500) GRIDR REAL*8 VXISQ(2500) INPUTD2 REAL*8 R2 ORBITI INTEGER MGX(9,60) SORI INTEGER ITOUCH(60) SORI INTEGER MPOLE