[Fortran] Dump Data To File

最新推荐文章于 2023-01-09 17:17:59 发布

weixin_30615767

最新推荐文章于 2023-01-09 17:17:59 发布

阅读量170

点赞数

原文链接：http://www.cnblogs.com/alimy/p/4152754.html

版权

本文提供了一个Fortran语言中进行文件操作的例子程序。该程序演示了如何打开、写入并关闭一个名为'DumpErr.dat'的文件。通过定义子程序`DumpData`来实现变量I、J和K的写入，并将K的值加1后再写入。

摘要由CSDN通过智能技术生成

 1 PROGRAM MAIN
 2   I = 1
 3   J = 2
 4   K = 11
 5   Call DumpData(I,J,K)
 6 END  PROGRAM MAIN
 7 
 8 SubRoutine DumpData(I,J,K)
 9     OPEN(    UNIT   =   112                     &
10             ,FILE   =   'DumpErr.dat'           &       
11             ,FORM   = 'FORMATTED'               &
12             ,STATUS = 'REPLACE'                 &
13             ,ACCESS = 'SEQUENTIAL'              &
14     )
15     
16     WRITE(112,*),"I = ",I
17     WRITE(112,*),"J = ",J
18     WRITE(112,*),"K = ",K+1
19     
20     Close(112)
21     RETURN
22 End SubRoutine DumpData