categoryFORTRAN覚書

ブロックIF構文

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

ブロックIF構文
----------------------------------------------------------------------

!----- Calculating Square Root -----
REAL :: x
PRINT*, "Input a real number:"
READ *, x
IF(x>=0.0) THEN
PRINT*, SQRT(x)
ELSE
PRINT*,"Impossible for x<0."
END IF
END


関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/205-6082f4cf