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. * * ### initCBlocks ### Initializes arrays within common blocks and prepares grids.
Source file: initCBlocks.f
I/O Operations: Unit ID Unit No Access Form Operation IOUT6 SEQ FMTD W * SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
Intrinsic Functions Called DOUBLE PRECISION DBLE GENERIC*8 ABS, COS, COSH GENERIC*4 LOG, MOD GENERIC*8 SQRT
External Functions and Subroutines Called REAL*8 SETOMEGA, SETOMEGAORB, SETOMEGAPOT REAL*8 SETOMEGAPOT2
Local Variables (+ indicates altered content) CHARACTER*8 +DELTA, +GER, +PHI, +PI CHARACTER*8 +SIGMA, +SPAC, +UGER INTEGER +I, +IAL, +IB, +IBA INTEGER +IBO, +IDI, +IDU, +IE INTEGER +IG, +IPI, +IPS, +IPSU INTEGER +IPU, +ISI, +ISU REAL*8 +HETA, +HXIBEG, +HXIEND, +RINFIG REAL*8 +XMI0
Referenced Common Block Variables (+ indicates altered content) COMPATAB CHARACTER*8 BOND(60), +GUT(60) COMPATAB INTEGER +IORN(60) CONFIG INTEGER +NEL, NORB CONSFP REAL*8 PII, PRECIS DEBUG INTEGER IPRINT(1000) DERIV3 REAL*8 +EXEVEN(5) DIMES INTEGER MAXGRIDS, MAXORB GRIDI INTEGER +IBMU(10), +IEMU(10) GRIDI INTEGER +IOFFS(10) GRIDI INTEGER +MXNMU, +MXSIZE GRIDI INTEGER NGRIDS, +NGSIZE(10) GRIDI INTEGER NMU(10), NNI GRIDR REAL*8 +HMU(10), +HNI GRIDR REAL*8 +VETA(1500) GRIDR REAL*8 +VETA1(1500) GRIDR REAL*8 +VETA2(1500) GRIDR REAL*8 +VETASQ(1500) GRIDR REAL*8 +VMU(2500) GRIDR REAL*8 +VNI(1500) GRIDR REAL*8 +VXI(2500) GRIDR REAL*8 +VXI1(2500) GRIDR REAL*8 +VXI2(2500) GRIDR REAL*8 +VXISQ(2500) INPUTD2 REAL*8 R, +RGRID(10) INPUTD2 REAL*8 +RINF IOCHAN INTEGER IOUT6 MOMENT REAL*8 +CALP(12) ORBIT INTEGER +IOCC(60), +ISYMORB(60) ORBIT INTEGER +LL(60), +MM(60) ORBIT INTEGER +NN(60) ORBITI CHARACTER*8 ORBSYM(60) ORBITI INTEGER +IGE(60), +IHOMO(60) ORBITI INTEGER MGX(9,60) ORBITR REAL*8 OCC(60) SCFI INTEGER IBREAK SORI INTEGER IOMEGA SORR REAL*8 OMEGASF, OMEGASFORB SORR REAL*8 OMEGASFPOT SORR REAL*8 +OVFCOUL(10) SORR REAL*8 +OVFEXCH(10) SORR REAL*8 +OVFORB(10)
Argument Definitions (+ indicates altered content) INTEGER K, +N
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. * * ### nadjust ###
Source file: initCBlocks.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
Local Variables (+ indicates altered content) INTEGER +NK