diff options
Diffstat (limited to 'test/Moretest/bigarrf.f')
| -rw-r--r-- | test/Moretest/bigarrf.f | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/test/Moretest/bigarrf.f b/test/Moretest/bigarrf.f deleted file mode 100644 index 734863a016..0000000000 --- a/test/Moretest/bigarrf.f +++ /dev/null @@ -1,26 +0,0 @@ - subroutine filltab() - - parameter (dimx = 8, dimy = 6) - real ftab(dimx, dimy) - common /ftab/ ftab - integer x, y - - do 100 x = 1, dimx - do 110 y = 1, dimy - ftab(x, y) = x * 100 + y - 110 continue - 100 continue - end - - subroutine printtab(tab, dimx, dimy) - - integer dimx, dimy - real tab(dimx, dimy) - integer x, y - - do 200 x = 1, dimx - print 300, x, (tab(x, y), y = 1, dimy) - 300 format(/1X, I3, 2X, 10F6.1/) - 200 continue - end - |