24小时热门版块排行榜

返回列表

cxf19850210

木虫 (正式写手)

应助: 11 (小学生)
金币: 2330.8
散金: 379
红花: 3
帖子: 820
在线: 230.6小时
虫号: 1535502
注册: 2011-12-13
专业: 河口海岸学

[求助] 怎么解读二进制文件

Sample TextSample Text
大家好，我现在手头上有一个二进制文件，怎么将其读取为十进制文件呢？谢谢大家。
下面是输入该二进制的程序，请问根据它可以解译该程序写出来的二进制文件吗？谢谢
C *** WATER QUALITY
   IF(ISTRAN(8).GT.0)THEN
      !  1) CHC - cyanobacteria
      !  2) CHG - diatom algae
      !  3) CHD - green algae
      !  4) ROC - refractory particulate organic carbon
      !  5) LOC - labile particulate organic carbon
      !  6) DOC - dissolved organic carbon
      !  7) ROP - refractory particulate organic phosphorus
      !  8) LOP - labile particulate organic phosphorus
      !  9) DOP - dissolved organic phosphorus
      ! 10) P4D - total phosphate
      ! 11) RON - refractory particulate organic nitrogen 22) macroalgae
      ! 12) LON - labile particulate organic nitrogen
      ! 13) DON - dissolved organic nitrogen
      ! 14) NHX - ammonia nitrogen
      ! 15) NOX - nitrate nitrogen
      ! 16) SUU - particulate biogenic silica
      ! 17) SAA - dissolved available silica
      ! 18) COD - chemical oxygen demand
      ! 19) DOX - dissolved oxygen
      ! 20) TAM - total active metal
      ! 21) FCB - fecal coliform bacteria
      OPEN(97,FILE='WQ_EE.OUT',STATUS='UNKNOWN',POSITION='APPEND',
   &       FORM='BINARY')
      WRITE(97)TIME
      DO L=2,LA
      DO K=1,KC
         DO NW=1,NWQV
            IF(IWQ(NW).GT.0)THEN
            WQ=WQV(L,K,NW)
            IF(NW.EQ.1.AND.ISTRWQ(1).EQ.1)THEN
               WQ=WQ*WQCHLC
            ENDIF
            IF(NW.EQ.2.AND.ISTRWQ(2).EQ.1)THEN
               WQ=WQ*WQCHLD
            ENDIF
            IF(NW.EQ.3.AND.ISTRWQ(3).EQ.1)THEN
               WQ=WQ*WQCHLG
            ENDIF
            WRITE(97)WQ
            ENDIF
         ENDDO
      ENDDO
      ENDDO
      CLOSE(97,STATUS='KEEP')
      !WQV(L,K,NW)
      !READ(1,*)(ICWQTS(NW,M),NW=14,NTSWQV),ICWQTS(IDNOTRVA,M)
   ENDIF

   RETURN
   END

回复此楼