txt文件转成MICAPS 四类数据

lxk81216

我将NC格式闪电资料按月读成TXT格式，现在有每月的TXT文件，想用FORTRAN将每月的TXT转成MICAPS四类格式的（6分钟的）TXT格式文件，从论坛上找的一些帖子看过，但小弟刚接触FROTRAN 不会触类旁通，所以请高手指导一下。十分感谢。

现有数据：
年   月 日 时 分 秒 纬度   经度    强度（可忽略）
2018 04 01 00 09 10 36.85 120.48  114.77597
2018 04 01 00 09 10 36.75 120.55  105.60000
2018 04 01 00 09 10 36.66 120.63  105.41026
2018 04 01 00 09 10 36.56 120.70  101.90315
2018 04 01 00 26 10 33.17 123.24   84.92941
2018 04 01 00 26 10 33.17 123.34   84.18808
2018 04 01 00 26 10 33.07 123.22   77.87558
2018 04 01 00 26 10 33.27 123.36   79.71311
2018 04 01 00 26 10 33.36 123.38   79.76608
2018 04 01 00 26 10 33.26 123.26   75.04103
2018 04 01 00 36 10 38.94 123.28  123.60535
2018 04 01 00 36 10 38.94 123.17  121.39534
2018 04 01 00 36 10 38.95 123.38  122.63795
2018 04 01 00 36 10 38.85 123.45  128.12761
2018 04 01 00 36 10 38.93 123.07  123.23310
2018 04 01 00 36 10 38.93 122.97  117.24738
2018 04 01 00 36 10 38.92 122.86  113.64411
2018 04 01 01 14 10 33.06 119.04   90.40164
2018 04 01 01 14 10 33.15 119.05   99.70760
2018 04 01 01 14 10 33.24 118.98  100.93654
2018 04 01 01 14 10 33.33 119.00   99.60935
2018 04 01 01 31 10 37.51 112.10   62.01746
2018 04 01 01 31 10 37.51 112.00   59.18087
2018 04 01 01 31 10 37.51 111.91   60.72333
2018 04 01 01 44 10 35.21 117.73   87.89056
2018 04 01 01 44 10 35.22 117.82   83.30840
2018 04 01 01 44 10 35.21 117.64   80.11902
2018 04 01 01 44 10 35.30 117.56   77.43317
2018 04 01 01 44 10 35.12 117.90   89.18203
2018 04 01 01 57 10 33.57 113.44  125.23185
2018 04 01 01 57 10 33.48 113.52  118.74941
2018 04 01 01 57 10 33.49 113.61  119.15041
2018 04 01 01 57 10 33.67 113.36  115.36929
2018 04 01 01 57 10 33.76 113.28  104.32826

lxk81216

哪位老师能帮忙解决一下这个问题