Fortran Coder

标题: CESHI [打印本页]

作者: 大头鼹鼠 时间: 2016-5-26 13:53
标题: CESHI

[Fortran] 纯文本查看 复制代码

Subroutine  NUM_LINE(Num)

02

    Integer::Numline=0,value=0,Num

03

    Character line

04

    OPEN(UNIT=11,FILE='material.txt',STATUS='OLD')

05

    Do While(value==0)

06

    Read(11,*,iostat=value) line

07

    If(value/=0)cycle

08

    Numline=Numline+1

09

    End Do

10

    Num=Numline

11

    Close(11)

12

    End

作者: 大头鼹鼠 时间: 2016-5-26 13:55
这个只是用来验证怎么可以发表有颜色文字的帖子的不用回复我删不了

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)