Znn3bq.jpeg
²é¿´: 4307  |  »Ø¸´: 25
¡¾½±Àø¡¿ ±¾Ìû±»ÆÀ¼Û17´Î£¬×÷Õßqli0218Ôö¼Ó½ð±Ò 13.25 ¸ö
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

qli0218

ľ³æ (СÓÐÃûÆø)


[×ÊÔ´] ¡¾·ÖÏí¡¿DOSCARÊý¾ÝÕûÀíС³ÌÐò

ÎÒÔÚ×÷DOSͼµÄʱºòÒ»µãµãµ¼Êý¾ÝȷʵºÜÂé·³£¬ÓÚÊÇ×Ô¼º±àÁ˸öС³ÌÐò£¬ÔÚÎұʼDZ¾ÀïµÄF90±àµÄ£¬ºÍ´ó¼Ò·ÖÏíһϣ¬ÒªÊÇÓÐʲô½¨Ò龡¹ÜÌᣬÎÒÔÚPolishһϡ£
ÎÒËãµÄÊÇÒ»¸öÔ­×ÓµÄDOSÊÇ·Ö1000Ðеģ¬È¡×Ô¼º¸ÐÐËȤµÄÒ»×é»ò¶à×é¹ìµÀ·ÖÎö£¬×Ô¶¯½«0µãµ÷½ÚΪ·ÑÃ×Äܼ¶¡£Êä³öµÄÎļþ¾Í¿ÉÒÔÖ±½Óµ¼Èëµ½OrigionÀï×÷ͼÁË£¬ÎÒÔÝʱûÓõ½×ÔÐý£¬ËùÒÔ¾Íû¿¼ÂÇ£¬Ò²Ã»¼ÆË㣬Á½ÁÐÀïÖ±½ÓȡһÁÐÁË¡£

Ï£Íû´ó¼ÒÖ¸µã

³ÌÐò£º
PROGRAM DOSCAR
IMPLICIT NONE
REAL::R,E,E1
INTEGER::J,I,N,N1,NUM
REAL,DIMENSION(0:18)::X
OPEN(1,FILE='DOSCAR',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED',ACTION='READ')
OPEN(10,FILE='DOSE.DAT',STATUS='REPLACE',ACCESS='SEQUENTIAL',FORM='FORMATTED')
READ(1,'(I4)'),J
DO I=1,4
  READ(1,*)
END DO
READ(1,'(42X,F11.8)'),E
WRITE(*,'("ϵͳÖÐÓÐÔªËØ",I2,"¸ö£¬·ÑÃ×Äܼ¶Îª",F9.5)')J,E
!WRITE(10,*),J,E
DO I=1,1001
  READ(1,*)
END DO
PRINT*,'ÇëÊäÈëÒª·ÖÎöµÄÔ­×ÓÐòÊý£º'
READ(*,*),E1
PRINT*,'ÇëÊäÈëÒª·ÖÎöµÄ¹ìµÀ£º£¨s¹ìµÀ£¨1£©£»p¹ìµÀ£¨2£©£»d¹ìµÀ£¨4£©¼°ºÏ¹ìµÀ£¨Êý×ּӺͣ©£©'
READ*,N1
N=1
DO
  NUM=0
  DO J=1,1000
    READ(1,'(4X,F7.3,18(2X,E10.4E2))'),(X(I),I=0,18)
    X(0)=X(0)-E
    IF(N==E1)  THEN
        SELECT CASE(N1)
        CASE (1) !S
          WRITE(10,'(1X,F7.3,1(2X,F7.4))')X(0),X(1)
        CASE (2) !P
          WRITE(10,'(1X,F7.3,3(2X,F7.4))')X(0),(X(I),I=3,8,2)
        CASE (3) !S+P
          WRITE(10,'(1X,F7.3,4(2X,F7.4))')X(0),(X(I),I=1,8,2)
        CASE (4) !D
          WRITE(10,'(1X,F7.3,5(2X,F7.4))')X(0),(X(I),I=9,18,2)
        CASE (5) !S+D
          WRITE(10,'(1X,F7.3,6(2X,F7.4))')X(0),X(1),(X(I),I=9,18,2)
        CASE (6) !P+D
          WRITE(10,'(1X,F7.3,8(2X,F7.4))')X(0),(X(I),I=3,18,2)
        CASE (7) !S+P+D
          WRITE(10,'(1X,F7.3,9(2X,F7.4))')X(0),(X(I),I=1,18,2)
        END SELECT
        NUM=1
        END IF
  END DO
  IF(NUM==0) READ(1,*)
  IF(NUM==1) EXIT
  N=N+1
END DO
CLOSE(1)
CLOSE(10)
END



[ Last edited by mazuju028 on 2010-11-28 at 22:52 ]
»Ø¸´´ËÂ¥

» ÊÕ¼±¾ÌûµÄÌÔÌûר¼­ÍƼö

vasp ³ÌÐòÓë½Å±¾ ¼ÆËã-vasp

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

¡ï¡ï¡ï¡ï¡ï ÎåÐǼ¶,ÓÅÐãÍÆ¼ö

ºÃ¶«Î÷£¬°ï¶¥£¡£¡
16Â¥2009-08-13 16:04:39
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 26 ¸ö»Ø´ð

qli0218

ľ³æ (СÓÐÃûÆø)


×Ô¼º×øÉ³·¢ÁË£¬»¶Ó­´ó¼ÒÌáÒâ¼û£¬CopyÍêÁ˱ðÍüÆÀ·Ö£¬ºÙºÙ
2Â¥2009-03-24 07:00:18
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

hdh912

½ð³æ (ÕýʽдÊÖ)


¡ï¡ï¡ï ÈýÐǼ¶,Ö§³Ö¹ÄÀø

ËäÈ»²»ÓÃVASP ¹ÄÀø¸ÐлÏÂ
3Â¥2009-03-24 15:07:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

hakuna

ľ³æ (ÖªÃû×÷¼Ò)


¡ï¡ï¡ï¡ï¡ï ÎåÐǼ¶,ÓÅÐãÍÆ¼ö

*****¹ÄÀøÔ­´´*****
6Â¥2009-03-27 21:22:37
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
¡î ÎÞÐǼ¶ ¡ï Ò»ÐǼ¶ ¡ï¡ï¡ï ÈýÐǼ¶ ¡ï¡ï¡ï¡ï¡ï ÎåÐǼ¶
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 291Çóµ÷¼Á +9 ¹ØÒä±±. 2026-04-14 9/450 2026-04-16 22:49 by cfdbai
[¿¼ÑÐ] Çóµ÷¼Á +8 СÄô°®Ñ§Ï° 2026-04-16 10/500 2026-04-16 22:06 by 1shin_ichi
[¿¼ÑÐ] »¯Ñ§070300 Çóµ÷¼Á +28 ¹þ¹þ¹þ^_^ 2026-04-12 28/1400 2026-04-16 21:36 by ´óÁ¦Ë®ÊÖÁ¦´óÎÞÇ
[¿¼ÑÐ] 294Çóµ÷¼Á +14 µ­È»654321 2026-04-15 14/700 2026-04-16 21:01 by lpl364211
[¿¼ÑÐ] 297£¬¹¤¿Æµ÷¼Á?ºÓÄÏũҵ´óѧ±¾¿Æ +14 ºÓÄÏũҵ´óѧ-ÄÜ 2026-04-14 14/700 2026-04-16 14:41 by dingyanbo1
[¿¼ÑÐ] 289 ·Ö105500ҩѧר˶Çóµ÷¼Á(ÕÒBÇøÑ§Ð£) +4 °×ÔÆ123456789 2026-04-13 4/200 2026-04-16 00:18 by ·ÛÇßÈô³¾
[¿¼ÑÐ] ͨÐŹ¤³ÌÇóµ÷¼Á£¡£¡£¡ +6 zlb770521 2026-04-14 6/300 2026-04-15 20:00 by ѧԱJpLReM
[¿¼ÑÐ] 271Çóµ÷¼Á +35 2261744733 2026-04-11 41/2050 2026-04-14 15:36 by zs92450
[¿¼ÑÐ] ¿¼Ñе÷¼Á +13 ³¤¹­°Á 2026-04-13 14/700 2026-04-14 14:44 by zs92450
[¿¼ÑÐ] 085408¹âµçÐÅÏ¢¹¤³Ìר˶355Ò»Ö¾Ô¸³¤´º¹â»úËùµ÷¼Á +6 Íõymaa 2026-04-13 13/650 2026-04-14 11:33 by Íõymaa
[¿¼ÑÐ] 290Çóµ÷¼Á +18 ¿Â»´È» 2026-04-12 20/1000 2026-04-13 12:56 by cyh¡ª315
[¿¼ÑÐ] 339Çóµ÷¼Á +4 hanwudada 2026-04-12 4/200 2026-04-13 12:03 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 295·ÖÇóµ÷¼Á +13 ?ÒªÉϰ¶? 2026-04-10 13/650 2026-04-12 15:37 by laoshidan
[¿¼ÑÐ] µçÆø¹¤³Ìר˶320Çóµ÷¼Á +5 СÂé×Ó111 2026-04-10 5/250 2026-04-12 10:47 by zhouyuwinner
[¿¼ÑÐ] 352 Çóµ÷¼Á +6 yzion 2026-04-11 8/400 2026-04-11 16:24 by Ã÷Ô´ËʱÓÐ
[¿¼ÑÐ] ũѧ0904 312Çóµ÷¼Á +6 Say Never 2026-04-10 6/300 2026-04-11 10:33 by wwj2530616
[¿¼ÑÐ] 263ÄÜÔ´¶¯Á¦×¨Ë¶Çóµ÷¼Á +3 ¼Ó´óºÅ·¹ºÐ´ü 2026-04-10 3/150 2026-04-10 22:23 by 286640313
[¿¼ÑÐ] 263ÄÜÔ´¶¯Á¦×¨Ë¶Çóµ÷¼Á +4 ¼Ó´óºÅ·¹ºÐ´ü 2026-04-10 4/200 2026-04-10 20:52 by gong120082
[¿¼ÑÐ] 368Çóµ÷¼Á +3 17385968172 2026-04-10 3/150 2026-04-10 20:12 by µç×Ӱµ±ë
[¿¼ÑÐ] ±¾9 Ò»Ö¾Ô¸Î÷¹¤´ó085601 324Çóµ÷¼Á +5 wysyjs25 2026-04-10 5/250 2026-04-10 16:57 by luoyongfeng
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û