Argument Definitions (+ indicates altered content) INTEGER NMIT, NNIT REAL*8 +FUN(NNIT,*), WORK(NNIT+8,NMIT+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. * * ### putout34 ### Reverses the action of putin and putout[2-4]
Source file: putout34.f
Local Variables (+ indicates altered content) INTEGER +I, +J
Referenced Common Block Variables (+ indicates altered content) SORWK INTEGER MUOFFS