open(2,file='C:\Users\dell\Desktop\speed.txt')
subroutine pre_speed
use global_variable
implicit real*8(a-h,o-z)
integer :: i,j
character*8 :: filelist
do i=1,141
read(2,*) j, Gspeed(i)
enddo
1 244.89
2 294.42
3 192.68
4 177.66
5 207.68
6 253.15
7 177.29
8 159.93
9 214.01
10 216.74
11 244.26
12 190.23
13 212.52
14 198.26
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |