2006-12-01から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 何の言語かわかる人は…
行きます。楽しみにしてます。 g:chronicleを運営している関係上ある程度復習していきます。