ex0603.f90

Fortran 95程序设计【彭国伦】第6章原代码

program ex0603
implicit none
  integer i,j

  do i=1, 3
    do j=1, 3
	  write(*, "(I2,I2)") i,j
	end do
	write(*,*) "another circle"
  end do

  stop
end