| 查看: 546 | 回复: 3 | ||
arsc金虫 (小有名气)
|
[求助]
FORTRAN Scientific Notation的問題
|
|
各位好！我現有一個FORTRAN的問題，就是我有一個純文字的檔案，格式如下: 0.685397409669 -0.037711621465 0.190884331269 0.027385476901 0.325064094772 0.462804401917 -0.117353976805 -0.023869972050 -0.038835320256 0.586564862921 -0.010441895361 -0.065817733455 -0.097512750785 -0.033862209379 0.191761907414 -0.059808823557 -0.167301876690 -0.257048149005 -0.028249982206 0.186605198910 0.588005709144 -0.006263460893 0.000034661655 -0.016796615840 -0.210188539799 -0.020770985491 -0.045579498778 0.502021118626 -0.009096699792 0.000508641947 0.007159775177 -0.015591466453 -0.063408579382 -0.021999152151 0.017394056689 0.466199912996 -0.034585463573 -0.005729707727 -0.008617777786 -0.042525494546 -0.014796702670 -0.102485949978 0.026701970270 -0.032481390131 0.616372608337 -0.198352441955 0.107762270210 0.100955565583 (原本是一行6個數值) 我是剛剛接觸FORTRAN, 嘗試寫一個程式?戆鸭兾淖謾n案中的數值以SCIENTIFIC NOTATION?盹@示，而不是以上的小數。我知道在FORTRAN中的FORMAT有一倨ES的功能是?鞦ORMAT 數字做SCIENTIFIC NOTATION，以下是我的CODE，但是我做不到我想要的效果，多謝指教！ program testhess REAL*8 hess(6,12) NLINES=40 NFIELDS=6 OPEN(1,FILE='hessian.txt') DO 10 I=1,NLINES READ(1, 100, END=15)(hess(I,J),J=1,NFIELDS) 100 FORMAT (6(5x, F15.12)) 10 CONTINUE 15 close(1) DO 20 I=1,NLINES WRITE(6, 200)(hess(I,J),J=1,NFIELDS) 200 FORMAT (6(5x, F15.12)) 20 CONTINUE STOP END |
回复此楼» 猜你喜欢
» 本主题相关价值贴推荐，对您同样有帮助:
4 CS PhD Positions @ Univ of California, Riverside
已经有17人回复
- 4 CS PhD Positions @ Univ of California, Riverside
已经有43人回复
- 请教各位懂Fortran的大侠！！！！！！！！！！
已经有0人回复
- $41000全奖（$25000生活费）等你拿！计算化学与生物学博士2015秋季与2016年春季入学
已经有82人回复
- CS PhD Positions @ University of California, Riverside
已经有2人回复
- 几个计算化学/理论化学职位（六月份刚出炉还热乎的）
已经有4人回复
- openMP并行入门
已经有2人回复
- PhD Positions @ University of California, Riverside; 加州大学河滨校区 博士招生
已经有22人回复
- Fortran程序库
已经有9人回复
- RA Position (U of Houston: HPCTools Lab)
已经有7人回复
- 如何欧诺个fortran语言提取出我想要的部分数据
已经有6人回复
- postdoctoral position in theoretical chemistry
已经有2人回复
- 【分享】PWscf 4.3正式版发布
已经有18人回复
- 【资源】转发一个德国博士机会 Max Planck Institute for Meteorology
已经有8人回复
- 【资源】有用的链接@厦门大学理论化学研究中心
已经有8人回复
- 【求助】求解bus error
已经有13人回复
2楼2012-12-29 23:32:23
chembetsey
木虫 (小有名气)
- 应助: 125 (高中生)
- 金币: 3820.1
- 散金: 5
- 红花: 9
- 帖子: 262
- 在线: 281.8小时
- 虫号: 1781694
- 注册: 2012-04-27
- 专业: 理论和计算化学
3楼2012-12-30 01:15:37
chembetsey
木虫 (小有名气)
- 应助: 125 (高中生)
- 金币: 3820.1
- 散金: 5
- 红花: 9
- 帖子: 262
- 在线: 281.8小时
- 虫号: 1781694
- 注册: 2012-04-27
- 专业: 理论和计算化学
|
program testhess REAL*8 hess(6,12) ！不要用固定的数字 NLINES=40 NFIELDS=6 OPEN(1,FILE='hessian.txt') DO 10 I=1,NLINES READ(1, 100, END=15)(hess(I,J),J=1,NFIELDS) 100 FORMAT (6(5x, F15.12)) 10 CONTINUE 15 close(1) ！既然只是要读进来，一句就可以了：read(1, *) (hess(i,j),j=1, Nfields), i=1, Nlines) DO 20 I=1,NLINES WRITE(6, 200)(hess(I,J),J=1,NFIELDS) 200 FORMAT (6(5x, F15.12)) 20 CONTINUE ！写出来也一样：write(6, '(E15.12)') (hess(i,j),j=1, Nfields), i=1, Nlines) STOP END |
4楼2012-12-30 08:37:07
