跪求高手帮忙解决：Fortran读取数据 
编号    时间
4490    0416 0508 0530 0545 1033 1131 1329 2000
5216    0230 0410 0550 1200 1620 1820 1845 2000
5294    0010 0045 0351 0407 0550 1420 1735 2000
147    0420 0625 1227 1350 1440 2000
189    0045 1900 0109 0520 0640 0808
972    0330 0710 1440 1600 1850 2000
1187    2000 0610 0715 1541 1619 2000
1984    2000 0645 0913 1244 1640 2000
2082    2035 2335 0315 0520 1005 2000
2677    2000 2255 0024 1139 1812 1959
2932    2238 0130 0635 1154 1618 2000
3142    2135 0630 0920 1038 1110 2000
4490    0416 0508 0530 0545 1033 1131 1329 2000
5216    0230 0410 0550 1200 1620 1820 1845 2000
5294    0010 0045 0351 0407 0550 1420 1735 2000
147    0420 0625 1227 1350 1440 2000
189    0045 1900 0109 0520 0640 0808
972    0330 0710 1440 1600 1850 2000
1187    2000 0610 0715 1541 1619 2000
1984    2000 0645 0913 1244 1640 2000
2082    2035 2335 0315 0520 1005 2000
2677    2000 2255 0024 1139 1812 1959
2932    2238 0130 0635 1154 1618 2000
3142    2135 0630 0920 1038 1110 2000
时间指的几点几分，读取数据把它们转换成小时，例如13点30分变成13.5，然后每行各自相加输出[em18]