categoryFORTRAN覚書

IF

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

IF
----------------------------------------------------------------------

REAL x, y ! 特に必要はない
READ *, x
!x=16.0 ! デバッグ用

IF (x>0.0) THEN
y=x
ELSE
y=0.0
END IF

PRINT *, y
END

----------------------------------------------------------------------
関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/154-af87ede1