Argument Definitions (+ indicates altered content) INTEGER NORBT REAL*8 +CW_COUL(*), +CW_EXCH(*) REAL*8 +CW_ORB(*), WK16(*), +WK8(*)
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. * * ### rfun ### Reads functions from a disk file in an unformatted form
Source file: rfun.f
I/O Operations: Unit ID Unit No Access Form Operation IINP11 SEQ UNF R IINP11 SEQ FMTD R IOUT6 SEQ FMTD W IINP11 SEQ A IINP12 SEQ FMTD R IINP13 SEQ FMTD R IINP13 SEQ A * SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called SUBROUTINE PMTX, READA16, READA8
Local Variables (+ indicates altered content) INTEGER +I, +I4TMP(9750) INTEGER*8 +I8TMP(9750) INTEGER IERR, +II, +IOFFSET, +IORB1 INTEGER +IORB2, +J, +K REAL*8 +R16TMP1(60), +R16TMP2(1200) REAL*8 +R16TMP3(3660), +R8TMP1(60) REAL*8 +R8TMP2(1200), +R8TMP3(3660)
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60), I2B(60) ADDRESS1 INTEGER I3B(1830) ADDRESS3 INTEGER I1SI(60), I2SI(60) ADDRESS3 INTEGER I3SI(1830) ADDRESS5 INTEGER I1MU(60) COMPATAB CHARACTER*8 BOND(60) COMPATAB INTEGER IORN(60) CONFIG INTEGER NEXCH, NORB CONSINT INTEGER IONE DEBUG INTEGER IDBG(1000) DEBUG INTEGER INCRMU, INCRNI ENERG REAL*8 +ENG(60) 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 NNI INPUTD1 CHARACTER*10 +FORMFP, FORMFP128 INPUTD1 CHARACTER*10 FORMFP64, FORMINT INPUTD1 INTEGER +IDUMP, IFORM INPUTD1 INTEGER IMETHOD, INI INPUTD1 INTEGER INPFORM IOCHAN INTEGER IINP11, IINP12 IOCHAN INTEGER IINP13, IOUT6 IOCHAN INTEGER LENGTHFP, LENGTHFPIN IOCHAN INTEGER LENGTHINT MOMENT REAL*8 +CMULTI(1200) NOENG REAL*8 +ENGO(3600) ORBIT INTEGER LL(60) ORBITR REAL*8 +AREA(60)