将表格记录写入格式化的直接访问文件

Question

我有类似的记录，并且我试图根据相对Julian日期创建格式化的直接访问文件（该变换工作正常）。 记录结构是：

abc00 20160701 01 -99.0  -99.0  -99.0  -99.0  -99.0  -99.0  -99.0  -99.0
abc00 20160701 02 -99.0  -99.0  -99.0  -99.0  -99.0  -99.0  -99.0  -99.0
......
abc00 20160701 08 -99.0 etc . . . . . .

abc00 20160702 01 etc.

updateLevel:是真实LevelVC值的象征。我希望每天的记录包含所有8行。

我尝试过使用以下格式：

-99.0s

的文件打开声明

8F6.1

并编写

之类的语句

DBfmt = '(8(a5," ",i8," ",i2.2,8(" ",f8.1)," "))' or 
      = '(a5," ",i8," ",i2.2,8(" ",f8.1)," ")' 

或

 OPEN(90,FILE=MODDB(1:ld)//swmo//db, ACCESS='DIRECT',RECL=640,FORM='FORMATTED',status='new',iostat=ios)   

循环。

每次写入单元90都会出错。 我将不胜感激任何帮助。