categoryFORTRAN覚書

SUBROUTINE

trackback0  comment0
プログラミング覚書 Fortran-019

SUBROUTINE
----------------------------------------------------------------------

! --- 3つの整数の並べ替え ---
INTEGER :: i,j,k
READ*, i,j,k
IF(i < j) CALL swap(i,j)
IF(j < k) CALL swap(j,k)
IF(i < j) CALL swap(i,j)
PRINT *, i,j,k
END
!
SUBROUTINE swap(p,q)
INTEGER :: p,q,r
r=p; p=q; q=r
END

関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/215-153d4e31