This repository has been archived on 2024-07-04. You can view files and clone it, but cannot push or open issues or pull requests.
|
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
|