categoryFORTRAN覚書

OPEN,CLOSE

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

OPEN,CLOSE
----------------------------------------------------------------------

!----- Character Code Table -----
INTEGER :: i, j
OPEN(8, FILE='Code_Table')
DO i = 0, 31
WRITE(8, "(7(2X, I3, 2X, A))") (i+32*j, CHAR(i+32*j), j = 1, 7)
END DO
CLOSE(8)
END


関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/211-5dca7009