OPEN (1, File='E.txt', Status='old')
READ (1,*) vnt, pw, pss, g, d, db
CLOSE(1)
READ (1,*) vnt
READ (1,*) pw
READ (1,*) pss
READ (1,*) g
READ (1,*) d
READ (1,*) db
vvt 发表于 2017-2-17 18:25
[mw_shl_code=fortran,true]READ (1,*) vnt
READ (1,*) pw
READ (1,*) pss
vvt 发表于 2017-2-17 18:50
又想功能强大,又想书写简便。
你的要求太高了,能实现就不错了,还要什么手表呀。 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |