IF(MOD(NT,10).EQ.0.AND.NT.LE.200000)THEN 
         HTRACK(NT)=HF(1)
         OPEN( 100, FILE='HTRACK.dat',action='write',status='UNKNOWN')
         WRITE(100,360)T, HTRACK(NT)
360      FORMAT(1F8.3,1F12.8)
      END IF
      CONTINUE

OPEN(UNIT,...)
WRITE(UNIT,...)
两个UNIT是否对应上？或者根本没有执行WRITE语句？或者写的就是空的？或者......