Argument Definitions (+ indicates altered content) INTEGER NMI, NNI REAL*8 FUN(NNI,*), +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. * * ### putin2 ### Immerses FUN array into WORK and adds boundary values: the first subgrid but not the last one.
Source file: putin2.f
External Functions and Subroutines Called SUBROUTINE GEMV
Local Variables (+ indicates altered content) INTEGER +I, +J, +JJ, +N9 REAL*8 FINT(2500,4)
Referenced Common Block Variables (+ indicates altered content) INTERP INTEGER IADINT2(4) INTERP REAL*8 CINT2(9,4) SORWK INTEGER ISYM