执行一些从 matlab 代码到 fortran 的简单转换

{"FunName":"DeviceInfoReq","Cot":"1","Mid":"11444","Timestamp":"2022-11-08 10:00:00.204","RequestData":"{}","ResponseData":"����\u0007�\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"DeviceInfoResp\",\"Cot\":\"2\",\"Mid\":\"11444\",\"Timestamp\":\"2022-11-08 10:00:02.062\"},\"Data\":{\"Dev\":{\"DevType\":\"nari\",\"DevName\":\"nari20221103\",\"MfgInfo\":\"nari\",\"HardVersion\":\"1.0\"},\"Cpu\":{\"Cpus\":\"6\",\"Frequency\":\"1.42\",\"Arch\":\"arm64\",\"CpuLmt\":\"70\"},\"Mem\":{\"Phy\":\"3844\",\"Virt\":\"0\",\"MemLmt\":\"75\"},\"Disk\":{\"Disk\":\"14047\",\"DiskLmt\":\"20\"},\"Temperature\":{\"TemLow\":\"55\",\"TemHigh\":\"66\"},\"Os\":{\"Distro\":\"Linaro\",\"Version\":\"4.4.194\",\"Kernel\":\"4.4.194\",\"SoftVersion\":\"4.11.3\"},\"Links\":[{\"Type\":\"ETH\",\"Name\":\"lo\"},{\"Type\":\"ETH\",\"Name\":\"dummy0\",\"Mac\":\"4a:7c:eb:d2:a0:5a\"},{\"Type\":\"ETH\",\"Name\":\"eth0\",\"Mac\":\"00:0a:32:31:24:27\"},{\"Type\":\"ETH\",\"Name\":\"eth1\",\"Mac\":\"e6:bf:c4:ab:24:e4\"},{\"Type\":\"ETH\",\"Name\":\"wwan0\",\"Mac\":\"5a:35:66:df:67:2c\"},{\"Type\":\"ETH\",\"Name\":\"docker0\",\"Mac\":\"02:42:1e:9f:1d:95\"},{\"Type\":\"ETH\",\"Name\":\"br-cb912f9507c6\",\"Mac\":\"02:42:9d:bd:18:a3\"},{\"Type\":\"ETH\",\"Name\":\"br-74ff4c0f57fb\",\"Mac\":\"02:42:7f:3a:4f:ed\"},{\"Type\":\"ETH\",\"Name\":\"veth8d9da33\",\"Mac\":\"06:38:70:b7:b8:ac\"},{\"Type\":\"ETH\",\"Name\":\"veth78dd1d9\",\"Mac\":\"5e:d3:b0:e0:95:8e\"},{\"Type\":\"ETH\",\"Name\":\"veth68fec20\",\"Mac\":\"ee:d4:c6:16:23:3e\"},{\"Type\":\"ETH\",\"Name\":\"veth279a1c0\",\"Mac\":\"a2:df:86:c6:12:9e\"},{\"Type\":\"ETH\",\"Name\":\"veth859d595\",\"Mac\":\"72:74:98:f5:2a:25\"},{\"Type\":\"ETH\",\"Name\":\"veth8ca1ab9\",\"Mac\":\"ee:a7:1a:7e:60:53\"},{\"Type\":\"ETH\",\"Name\":\"veth9328f73\",\"Mac\":\"5e:8d:64:3d:52:c3\"},{\"Type\":\"ETH\",\"Name\":\"vethb1fc39e\",\"Mac\":\"7a:4b:5e:6a:9b:d4\"},{\"Type\":\"ETH\",\"Name\":\"vethbd9ad9a\",\"Mac\":\"86:66:99:b3:39:05\"},{\"Type\":\"ETH\",\"Name\":\"veth31173d7\",\"Mac\":\"0a:a1:19:e4:f0:0f\"},{\"Type\":\"ETH\",\"Name\":\"veth18934b9\",\"Mac\":\"b2:eb:3c:16:3a:1c\"},{\"Type\":\"ETH\",\"Name\":\"veth2ab2dd3\",\"Mac\":\"b6:9d:c7:e3:bb:b0\"},{\"Type\":\"ETH\",\"Name\":\"veth72fc1f8\",\"Mac\":\"d2:07:5c:90:23:fc\"},{\"Type\":\"ETH\",\"Name\":\"vethd41fdbb\",\"Mac\":\"2e:4e:21:34:1b:ca\"},{\"Type\":\"USB\",\"Id\":\"2c7c:0125\",\"Name\":\"Quectel Wireless Solutions Co., Ltd. EC25 LTE modem\"},{\"Type\":\"USB\",\"Id\":\"1a86:e018\",\"Name\":\"QinHeng Electronics \"},{\"Type\":\"USB\",\"Id\":\"1a86:e018\",\"Name\":\"QinHeng Electronics \"}]}}","Time":"2022-11-08T02:00:02.079400804Z"}{"FunName":"DeviceStatusReq","Cot":"1","Mid":"11445","Timestamp":"2022-11-08 10:00:00.204","RequestData":"{}","ResponseData":"����\u0004�\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"DeviceStatusResp\",\"Cot\":\"2\",\"Mid\":\"11445\",\"Timestamp\":\"2022-11-08 10:00:02.148\"},\"Data\":{\"CpuRate\":\"9.48\",\"MemUsed\":\"0.28\",\"DiskUsed\":\"99.11\",\"TempValue\":\"31.00\",\"DevDateTime\":\"2022-11-08 10:00:01.096\",\"DevStDateTime\":\"2022-11-08 08:41:00.000\",\"DevRunTime\":\"4741\",\"LinkState\":[{\"Name\":\"lo\",\"Status\":\"up\"},{\"Name\":\"dummy0\",\"Status\":\"up\"},{\"Name\":\"eth0\",\"Status\":\"up\"},{\"Name\":\"eth1\",\"Status\":\"up\"},{\"Name\":\"wwan0\",\"Status\":\"up\"},{\"Name\":\"docker0\",\"Status\":\"up\"},{\"Name\":\"br-cb912f9507c6\",\"Status\":\"up\"},{\"Name\":\"br-74ff4c0f57fb\",\"Status\":\"up\"},{\"Name\":\"veth8d9da33\",\"Status\":\"up\"},{\"Name\":\"veth78dd1d9\",\"Status\":\"up\"},{\"Name\":\"veth68fec20\",\"Status\":\"up\"},{\"Name\":\"veth279a1c0\",\"Status\":\"up\"},{\"Name\":\"veth859d595\",\"Status\":\"up\"},{\"Name\":\"veth8ca1ab9\",\"Status\":\"up\"},{\"Name\":\"veth9328f73\",\"Status\":\"up\"},{\"Name\":\"vethb1fc39e\",\"Status\":\"up\"},{\"Name\":\"vethbd9ad9a\",\"Status\":\"up\"},{\"Name\":\"veth31173d7\",\"Status\":\"up\"},{\"Name\":\"veth18934b9\",\"Status\":\"up\"},{\"Name\":\"veth2ab2dd3\",\"Status\":\"up\"},{\"Name\":\"veth72fc1f8\",\"Status\":\"up\"},{\"Name\":\"vethd41fdbb\",\"Status\":\"up\"},{\"Name\":\"Quectel Wireless Solutions Co., Ltd. EC25 LTE modem\",\"Status\":\"up\"},{\"Name\":\"QinHeng Electronics \",\"Status\":\"up\"},{\"Name\":\"QinHeng Electronics \",\"Status\":\"up\"}]}}","Time":"2022-11-08T02:00:02.157363888Z"}{"FunName":"ConStatusReq","Cot":"1","Mid":"11447","Timestamp":"2022-11-08 10:00:47.376","RequestData":"{\"Container\":\"amdyes\"}","ResponseData":"����\u0000l\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"ConStatusResp\",\"Cot\":\"2\",\"Mid\":\"11447\",\"Timestamp\":\"2022-11-08 10:00:47.050\"},\"Data\":{}}","Time":"2022-11-08T02:00:47.061105784Z"}{"FunName":"AppStatusReq","Cot":"1","Mid":"11448","Timestamp":"2022-11-08 10:01:17.461","RequestData":"{\"App\":\"\",\"Container\":\"amdyes\"}","ResponseData":"����\u0000�\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"AppStatusResp\",\"Cot\":\"2\",\"Mid\":\"11448\",\"Timestamp\":\"2022-11-08 10:01:17.259\"},\"Data\":{\"Container\":\"amdyes\"}}","Time":"2022-11-08T02:01:17.273453882Z"}{"FunName":"HealthResp","Cot":"2","Mid":"148","Timestamp":"2022-11-08 02:01:19.642","RequestData":"null","ResponseData":"","Time":"2022-11-08T02:01:19.256487174Z"}{"FunName":"TimeSyncReq","Cot":"1","Mid":"11449","Timestamp":"2022-11-08 10:02:09.299","RequestData":"{\"Time\":\"2022-11-08 10:02:09.299\"}","ResponseData":"����\u0000w\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"TimeSyncResp\",\"Cot\":\"2\",\"Mid\":\"11449\",\"Timestamp\":\"2022-11-08 10:02:09.014\"},\"Data\":{\"Status\":\"0\"}}","Time":"2022-11-08T02:02:09.02555Z"}{"FunName":"TimeReadReq","Cot":"1","Mid":"11450","Timestamp":"2022-11-08 10:02:11.460","RequestData":"{}","ResponseData":"����\u0000�\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"TimeReadResp\",\"Cot\":\"2\",\"Mid\":\"11450\",\"Timestamp\":\"2022-11-08 10:02:11.026\"},\"Data\":{\"Time\":\"2022-11-08 10:02:11\"}}","Time":"2022-11-08T02:02:11.034261042Z"}{"FunName":"HealthResp","Cot":"2","Mid":"149","Timestamp":"2022-11-08 02:02:49.646","RequestData":"null","ResponseData":"","Time":"2022-11-08T02:02:49.15560806Z"}{"FunName":"HealthResp","Cot":"2","Mid":"150","Timestamp":"2022-11-08 02:03:19.661","RequestData":"null","ResponseData":"","Time":"2022-11-08T02:03:19.163441075Z"}{"FunName":"HealthResp","Cot":"2","Mid":"151","Timestamp":"2022-11-08 02:04:19.648","RequestData":"null","ResponseData":"","Time":"2022-11-08T02:04:19.157405187Z"}{"FunName":"HealthResp","Cot":"2","Mid":"152","Timestamp":"2022-11-08 02:04:49.666","RequestData":"null","ResponseData":"","Time":"2022-11-08T02:04:49.174232201Z"}{"FunName":"TimeReadReq","Cot":"1","Mid":"11451","Timestamp":"2022-11-08 10:05:01.045","RequestData":"{}","ResponseData":"����\u0000�\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"TimeReadResp\",\"Cot\":\"2\",\"Mid\":\"11451\",\"Timestamp\":\"2022-11-08 10:05:00.634\"},\"Data\":{\"Time\":\"2022-11-08 10:05:00\"}}","Time":"2022-11-08T02:05:00.65270879Z"}{"FunName":"TimeSyncReq","Cot":"1","Mid":"11452","Timestamp":"2022-11-08 10:05:03.175","RequestData":"{\"Time\":\"2022-11-08 10:05:03.175\"}","ResponseData":"����\u0000w\u000000010002000300040005011\u0000\u0000{\"Head\":{\"FunName\":\"TimeSyncResp\",\"Cot\":\"2\",\"Mid\":\"11452\",\"Timestamp\":\"2022-11-08 10:05:03.016\"},\"Data\":{\"Status\":\"0\"}}","Time":"2022-11-08T02:05:03.038398791Z"}{"FunName":"HealthResp","Cot":"2","Mid":"153","Timestamp":"2022-11-08 02:05:49.651","RequestData":"null","ResponseData":"","Time":"2022-11-08T02:05:49.410029397Z"}{"FunName":"HealthResp","Cot":"2","Mid":"154","Timestamp":"2022-11-08 02:06:19.674","RequestData":"null","ResponseData":"","Time":"2022-11-08T02:06:19.432139536Z"}{"FunName":"TimeSyncReq","Cot":"1","Mid":"11455","Timestamp":"2022-11-08 10:06:58.156","RequestData":"{\"Time\":\"202