初学FORTRAN,读取文件遇到了问题，求大神帮帮忙

保证晴雨

program temp1
  implicit none
  integer i,j,k,m,n
  parameter(m=12,n=31)
  INTEGER x(m,n)
  open(100,file='D:\FOR\test.txt')
  read(100,*)((x(i,j),j=1,n),i=1,m)
close(100)
  k=0
  do i=1,m
    do j=1,n
      if(x(i,j)>=350)then
         k=k+1
          else
            k=k+0
            endif
    enddo
      enddo
   print*,k
end program
附件是某地某年日最高温度，求出大于35度的天数，调试没问题，可是运行就出错，求大神帮帮忙~~谢谢谢谢~~

保证晴雨

253 240 212 203 219 233 240 263 266 258 236 236 245 254 233 250 234 242 252 242 243 228 260 264 276 255 245 231 253 260 276
285 303 286 295 299 295 294 288 290 292 244 261 267 271 276 288 300 296 300 306 322 325 320 322 321 316 328 318 ***** ***** *****
334 334 336 330 324 306 308 340 317 284 280 323 324 323 326 331 340 335 339 339 349 346 306 336 343 319 288 276 313 328 293
295 301 330 362 357 363 356 344 341 359 350 337 265 285 319 300 263 331 352 345 299 316 345 352 328 289 344 338 344 333 *****
336 286 337 307 293 327 336 356 364 369 356 301 327 323 336 321 312 294 251 275 318 271 270 266 281 305 291 291 281 326 323
324 301 307 301 279 292 303 313 321 340 315 300 330 315 329 330 325 327 282 306 311 297 265 285 311 266 299 302 284 309 *****
307 311 289 322 341 312 299 322 294 299 308 318 312 283 281 307 291 320 330 311 325 331 312 316 291 297 301 301 286 281 288
304 303 309 295 320 290 315 329 343 313 281 314 308 315 331 325 323 301 328 328 283 296 308 321 310 300 270 307 308 272 311
320 294 320 313 301 318 285 291 284 299 301 326 326 313 305 311 318 314 315 316 318 315 314 310 311 323 321 324 334 336 *****
336 324 329 340 294 323 293 314 263 258 269 287 296 304 282 281 266 271 297 296 306 310 295 233 288 245 266 285 281 282 297
302 303 312 309 310 314 284 218 201 195 201 201 278 273 248 222 265 211 253 265 281 279 257 270 283 272 271 269 268 219 *****
201 209 219 226 243 253 222 215 215 245 222 264 277 250 197 214 224 211 197 164 161 189 220 222 228 232 204 197 159 193 234
这是TXT格式数据，大神在哪里？

lqouc

上报错信息。
read最好不要隐式循环。

保证晴雨

lqouc 发表于 2015-6-11 12:57
上报错信息。
read最好不要隐式循环。

forrt1:severe(59):list-directed I/O syntax error,unit 100 ,file D:\FOR\test.txt
image          PC           routine              line                    source
test.exe       00407D59   Unknown         Unknown          Unknown
求指教~~

lqouc

数据里面包含了***，整形读取的时候就出错了，想办法把这个都替换掉吧。

言深深

program temp1
integer i,j,k,m,n,mon(12)
parameter(m=12,n=31)
INTEGER x(m,n)
data mon/31,28,31,30,31,30,31,31,30,31,30,31/
open(100,file='D:\FOR\test.txt')
do i=1,m
read(100,*)x(i,1:mon(i))
enddo
close(100)
k=0
do i=1,m
do j=1,mon(i)
if(x(i,j)>=350)then
k=k+1
else
endif
enddo
enddo
print*,k
end

保证晴雨

言深深 发表于 2015-6-11 14:40
program temp1
integer i,j,k,m,n,mon(12)
parameter(m=12,n=31)

非常感谢~！您的解答很好的帮助了我，但我还想问下，如果是30年的数据呢，要求输出每年高温天数，要考虑到闰年，每12个月重新累加K值，输出30年各年的高温天数，

dxj2014

在年循环里，加个判断，如果是闰年，把mon（2）改为29。

言深深

保证晴雨 发表于 2015-6-11 15:09
非常感谢~！您的解答很好的帮助了我，但我还想问下，如果是30年的数据呢，要求输出每年高温天数，要考虑 ...

就是8楼的做法，可以增加一个循环，判断一下平年还是闰年。
这个判断，我在论坛发过好多次了。

保证晴雨

言深深 发表于 2015-6-11 18:28
就是8楼的做法，可以增加一个循环，判断一下平年还是闰年。
这个判断，我在论坛发过好多次了。

谢谢谢谢~问题已经解决