Argument Definitions (+ indicates altered content) INTEGER IORB REAL*8 F4(*), PSI(*), WGT2(*), +WK0(*) REAL*8 +XNORM
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. * * ### norm94 ### FIXME
Source file: norm94.f
External Functions and Subroutines Called REAL*8 DOT SUBROUTINE PROD
Local Variables (+ indicates altered content) INTEGER +I, +IBEG, +NGRID
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60) ADDRESS3 INTEGER I1SI(60) CONSINT INTEGER IONE ORBITR REAL*8 +AREA(60)