17 lines
325 B
FortranFixed
17 lines
325 B
FortranFixed
|
c
|
||
|
|
c-----------------------------------------------------------------------
|
||
|
|
c
|
||
|
|
c Only work with increment equal to 1 right now.
|
||
|
|
c
|
||
|
|
subroutine iset (n, value, array, inc)
|
||
|
|
c
|
||
|
|
integer n, value, inc
|
||
|
|
integer array(*)
|
||
|
|
c
|
||
|
|
do 10 i = 1, n
|
||
|
|
array(i) = value
|
||
|
|
10 continue
|
||
|
|
c
|
||
|
|
return
|
||
|
|
end
|