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. * * ### putin4 ### Immerses FUN array into WORK and adds boundary values: the last subgrid
Source file: putin4.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 IADINT4(4) INTERP REAL*8 CINT4(9,4) SORWK INTEGER ISYM, MUOFFS