SUBROUTINE PUTIN ( NNI, NMI, ISYM, FUN, WORK )

Argument Definitions (+ indicates altered content)
INTEGER            ISYM,       NMI,        NNI
REAL*8             FUN(NNI,NMI),          +WORK(NNI+8,NMI+8)
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.                            * 
                                                                        * 
 
### putin ### 
    Immerses FUN array into WORK and adds boundary values from symmetry 
    Immerses FUN array into WORK and provides missing values along (1,i), (nni,i) and (j,1) 
    boundaries according to orbital symmetry isym. 
    Values along (j,nmi) boundary are set to zero as orbitals decay exponentially in this region.
Source file:putin.f
Local Variables (+ indicates altered content)
INTEGER           +I,         +J,         +JJ