Znn3bq.jpeg
ÉÇÍ·´óѧº£Ñó¿ÆÑ§½ÓÊܵ÷¼Á
²é¿´: 570  |  »Ø¸´: 5
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

tpp001

½ð³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿ÎҵijÌÐòÖÐÓÐÒ»¸ö¸ºµÄʵÊýÊä³öʱ£¬ÀÏÊÇÏÔʾ******¡¾ÒÑÍê½á¡¿ ÒÑÓÐ2È˲ÎÓë

ÎҵijÌÐò¾ÍÊÇ´ÓSTATISÎļþÖжÁÈëһЩÊý¾Ý£¬È»ºóÊä³öÆäÖÐһЩÏà¹ØµÄÊý¾Ý£¬¿ÉÊÇÓÐÒ»¸ö¸ºµÄʵÊýÊä³öʱÀÏÊÇÏÔʾ*******£¬Çë´ó¼Ò°ï棬лл

PROGRAM MAIN
IMPLICIT NONE

  DOUBLE PRECISION STEP(80000), TIM(80000), ENERGY(5),  INTEGER, PARAMETER:: nstep=80000                 
  INTEGER I, DUM
!===================================================
  OPEN (UNIT=21, FILE='energy')
  OPEN (UNIT=11, FILE='STATIS')

  DO I = 1, nstep
         READ (11, *) STEP(I), TIM(I), DUM
         READ (11, *) ENERGY(1), ENERGY(2), ENERGY(3), ENERGY(4), ENERGY(5)
  WRITE (21, "(3F12.6)" TIM(I), ENERGY(1), ENERGY(2)
  END DO
  CLOSE (11)
  CLOSE (21)

STOP
END

[ Last edited by ÓàÔó³É on 2010-12-13 at 22:03 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ÃÔãÔÚ֪ʶµÄº£ÑóÀÐèÒªÄãµÄÖ¸µ¼¡£thankyou
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

tpp001

½ð³æ (ÖøÃûдÊÖ)

¶÷£¬Êǰ¡£¬·Ç³£¸Ðл¡£
ÃÔãÔÚ֪ʶµÄº£ÑóÀÐèÒªÄãµÄÖ¸µ¼¡£thankyou
6Â¥2010-12-13 12:53:59
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 6 ¸ö»Ø´ð

tpp001

½ð³æ (ÖøÃûдÊÖ)

ÕâÊǶÁÈëÎļþµÄÒ»²¿·Ö

10  1.000000E-02        45
-1.065357E+05  3.980531E+02 -1.335040E+05 -1.460154E+05 -8.795743E+02
....
....
....
ÃÔãÔÚ֪ʶµÄº£ÑóÀÐèÒªÄãµÄÖ¸µ¼¡£thankyou
2Â¥2010-12-13 11:32:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

tpp001

½ð³æ (ÖøÃûдÊÖ)

ÕâÊÇÉÏÃæ¶ÔÓ¦µÄÊä³öÎļþÖеÄÊý¾Ý

0.010000************  398.053100
ÃÔãÔÚ֪ʶµÄº£ÑóÀÐèÒªÄãµÄÖ¸µ¼¡£thankyou
3Â¥2010-12-13 11:33:16
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

tpp001

½ð³æ (ÖøÃûдÊÖ)

ÎÒ¾ÍÊDz»ÖªµÀΪʲôÊäÈëÎļþÖеڶþÐпªÍ·Õâ¸öÊý¾Ý£¬³ÌÐòÖжÔÓ¦ENERGY(1)£º-1.065357E+05£¬ÔÚÊä³öÎļþÖÐÊÇ*******ÄØ£¿
ÃÔãÔÚ֪ʶµÄº£ÑóÀÐèÒªÄãµÄÖ¸µ¼¡£thankyou
4Â¥2010-12-13 11:35:13
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 105500ҩѧÇóµ÷¼Á +4 x_skys 2026-04-12 4/200 2026-04-14 13:37 by rndfc
[¿¼ÑÐ] ²ÄÁϹ¤³Ì281»¹Óе÷¼Á»ú»áÂð +38 xaw. 2026-04-11 39/1950 2026-04-14 13:04 by wanganpin
[¿¼ÑÐ] 08¹¤Ñ§ 309·ÖÇóµ÷¼Á +11 Yin DY 2026-04-08 11/550 2026-04-14 12:55 by fqwang
[¿¼ÑÐ] 271Çóµ÷¼Á +34 2261744733 2026-04-11 40/2000 2026-04-13 23:15 by pies112
[¿¼ÑÐ] Ò»Ö¾Ô¸085502£¬267·ÖÇóµ÷¼Á +18 ÔÙæҲҪ³Ô·¹°¡ 2026-04-08 19/950 2026-04-13 21:27 by wunaiy88
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +17 »ý¼«ÏòÉÏ£» 2026-04-10 19/950 2026-04-13 19:53 by ÏÐÈËÖÕÄÏɽ
[¿¼ÑÐ] 0831Ò»ÂÖµ÷¼Áʧ°ÜÇóÖú +10 СÐÜî£î£_s 2026-04-11 10/500 2026-04-12 22:43 by ³¤¹­°Á
[¿¼ÑÐ] µ÷¼Á +10 Ö»ÐðÀë±ð´Ç 2026-04-09 12/600 2026-04-11 20:57 by ÄæË®³Ë·ç
[¿¼ÑÐ] µ÷¼Á +6 ÇàµÆ²»¸º 2026-04-09 6/300 2026-04-11 20:35 by dongdian1
[¿¼ÑÐ] 343Çóµ÷¼Á +9 Íõ¹ú˧ 2026-04-10 9/450 2026-04-11 20:31 by dongdian1
[¿¼ÑÐ] 269Çóµ÷¼Á +11 °¡°¡ÎÒÎÒ 2026-04-07 11/550 2026-04-11 16:45 by vgtyfty
[¿¼ÑÐ] Çóµ÷¼Á +3 θ¾·ÂÎÀÛÁË 2026-04-11 5/250 2026-04-11 14:13 by luhong1990
[¿¼ÑÐ] 346£¬¹¤¿Æ0854Çóµ÷¼Á£¬×¨Ë¶ +7 moser233 2026-04-10 8/400 2026-04-11 08:52 by Öí»á·É
[¿¼ÑÐ] 282£¬µçÆø¹¤³Ìרҵ£¬Çóµ÷¼Á£¬²»Ìôרҵ +9 jggshjkkm 2026-04-10 9/450 2026-04-10 14:55 by ÄæË®³Ë·ç
[¿¼ÑÐ] Çóµ÷¼Á ²ÄÁÏÓ빤³Ì 324·Ö ר˶ +19 ôæôæÒ»ÊéÉú 2026-04-10 21/1050 2026-04-10 11:41 by wp06
[¿¼ÑÐ] ±¾¿Æ211 ¹¤¿Æ085400 280·ÖÇóµ÷¼Á ¿É¿çרҵ +3 LZH£¨µÈ´ýµ÷¼ÁÖÐ 2026-04-09 3/150 2026-04-09 21:29 by wutongshun
[¿¼ÑÐ] ¿¼Ñе÷¼Á-²ÄÁÏÀà-284 +28 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 28/1400 2026-04-09 20:08 by µ¹Êý321?
[¿¼ÑÐ] 337Çóµ÷¼Á +4 Gky09300550£¬ 2026-04-09 4/200 2026-04-09 17:18 by ÅÁ¶ûÂíÀ­ÌØ
[¿¼ÑÐ] 086004 Çóµ÷¼Á 309 +7 Yin DY 2026-04-08 7/350 2026-04-09 13:59 by Delta2012
[¿¼ÑÐ] ²ÄÁÏ307·ÖÇó´óÀÐ×éÊÕÁô +17 Hllºú 2026-04-07 17/850 2026-04-09 10:53 by liuhuiying09
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û