mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-29 10:55:00 +00:00
15 lines
264 B
Fortran
15 lines
264 B
Fortran
subroutine foo(bar)
|
|
dimension bar(100)
|
|
common l_
|
|
50 continue
|
|
do i=1,20
|
|
bar(i)=0
|
|
enddo
|
|
do 100 j=1,l_
|
|
if(sum.gt.r) then
|
|
bar(n2)=j
|
|
end if
|
|
100 continue
|
|
if(bar(4).ne.0) go to 50
|
|
end
|