2006-12-15から1日間の記事一覧
subroutine swap(a, b) integer,intent(inout) :: a, b integer :: c c = a a = b b = c end subroutine swap program main implicit none integer :: a, b read(*,*) a b = 3 call swap(a,b) write(*,'(2I5)') a, b end program main 何の言語かわかる人は…