Znn3bq.jpeg
±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 768  |  »Ø¸´: 9
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

405963512

Í­³æ (ÕýʽдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿split_dosÇóÖú~

¸÷룬ÎÒÓÃһλÈÊÐÖ¸øµÄsplit_dos´¦ÀíDOSCAR,ÎļþÈçÏ£º
°ÑÕâ¸öÎļþÓÃchmod +x split_dos±ä³É¿ÉÖ´ÐÐÎļþºó£¬Îҷŵ½ÁË/binĿ¼Ï£¬È»ºó»Øµ½¹¤×÷Ŀ¼Ï£¬ÊäÈësplit_dos£¬./split_dos£¬sh ./split_dos
¶¼ÔËÐв»ÁË£¬ÌáʾÒÀ´Î
bash: ./split_dos: No such file or directory
./split_dos: ./split_dos: No such file or directory£¬
ÕâʱÔõô»ØÊ£¿ÄÄλ°ïÎÒ½â´ðһϣ¬Ð»Ð»£¡£¡
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

405963512

Í­³æ (ÕýʽдÊÖ)

¡ï
wuli8(½ð±Ò+1,VIP+0):¸Ðл½»Á÷£¬(*^__^*) ¡­¡­ 5-25 19:39
ÕâʱÎļþ

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
2Â¥2009-05-22 20:44:00
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

stractor

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

¡ï ¡ï ¡ï
fegg7502(½ð±Ò+2,VIP+0):thank you very much! 5-23 17:09
405963512(½ð±Ò+1,VIP+0): 5-24 08:32
split_dosÒªºÍÒ»¸ö½ÐvpµÄÎļþºÏÓá£ÄãȱÉÙÁËvpÎļþ¡£
3Â¥2009-05-22 22:49:10
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

veryman

ľ³æ (ÕýʽдÊÖ)

$_$

¡ï ¡ï ¡ï
fegg7502(½ð±Ò+2,VIP+0):thank you very much! 5-23 17:09
405963512(½ð±Ò+1,VIP+0): 5-24 08:32
ÎҼǵÃÄãÒªÊäÈëµÄÊÇ./split_dos.sh°É£¬È»ºó»¹ÒªÔÚÎļþÀïÃæÖ¸Ã÷vpµÄµØÖ·£¬vpÊDz»´øshÀ©Õ¹ÃûµÄ¡£
4Â¥2009-05-22 23:07:08
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

405963512

Í­³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
Originally posted by stractor at 2009-5-22 22:49:
split_dosÒªºÍÒ»¸ö½ÐvpµÄÎļþºÏÓá£ÄãȱÉÙÁËvpÎļþ¡£

ÄãºÃ£¬ÎÒ°Ñsplit_dosºÍvp¶¼·ÅÔÚÁË/BINÏ£¬µ«ÊÇÔËÐл¹ÊÇÏÔʾ
[root@yh01 Cu]# ./split_dos
bash: ./split_dos: No such file or directory
ÄܰïÎÒÒ»ÏÂÂð£¿
5Â¥2009-05-24 11:50:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

veryman

ľ³æ (ÕýʽдÊÖ)

$_$

¡ï ¡ï
fegg7502(½ð±Ò+2,VIP+0):¹ÄÀø½»Á÷£¡ 5-25 03:52
·ÅÔÚ/binÏµĻ°Ö±½ÓÊäÈë¾ÍºÃÁË£¬./Êǵ±Ç°Ä¿Â¼µÄÒâ˼¡£
6Â¥2009-05-24 14:52:25
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lvjian8596

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

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
·Åµ½/binÏÂÃæÖ´ÐеÄʱºò¾Í²»ÓÃ./ÁË
Ö±½ÓÊäÃû×־ͺÃÁË£¡
7Â¥2009-05-25 10:53:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zhangkun7581

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

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÒýÓûØÌû:
Originally posted by veryman at 2009-5-22 23:07:
ÎҼǵÃÄãÒªÊäÈëµÄÊÇ./split_dos.sh°É£¬È»ºó»¹ÒªÔÚÎļþÀïÃæÖ¸Ã÷vpµÄµØÖ·£¬vpÊDz»´øshÀ©Õ¹ÃûµÄ¡£

ÇëÎÊÔõÑùÔÚÎļþÀïÃæÖ¸Ã÷vpµÄµØÖ·
8Â¥2009-07-28 21:48:26
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Áù198

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

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
qasd(½ð±Ò+1,VIP+0):лл~ 7-29 18:28
·Åµ½/binÏÂÃæÖ´ÐеÄʱºò¾Í²»ÓÃ./ÁË
ÇîÀíÇóÕæÕæ¹á×ݺá½ÔÈëÓ½ÖÂÖª¸ñÎïÎﺬÃîÀí×Ü¿°Ñ°
9Â¥2009-07-29 07:38:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

hakuna

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

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
wuchenwf(½ð±Ò+1,VIP+0):лл»ØÌû½»Á÷ 7-30 22:18
ÒýÓûØÌû:
Originally posted by 405963512 at 2009-5-22 20:44:
ÕâʱÎļþ

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( ...

ÄãÕâÊǸöFORTRAN³ÌÐò£¬ÓÖ²»Êǽű¾£¬Ôõô¿ÉÄÜÖ±½ÓÔËÐÐÄØ£¬ÒªÏȱàÒë³É¿ÉÖ´ÐÐÎļþ²ÅÄÜÔËÐС£
10Â¥2009-07-30 17:01:38
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ 405963512 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 288Çóµ÷¼Á +12 ûÓдð°¸_ 2026-04-05 12/600 2026-04-08 00:17 by T¿É¿ÉÎ÷ÀïT
[¿¼ÑÐ] ¿¼Ñе÷¼Á +8 ±ù±ù£¬£¬£¬ 2026-04-07 8/400 2026-04-07 22:49 by JourneyLucky
[¿¼ÑÐ] 285Çóµ÷¼Á +11 AZMK 2026-04-05 17/850 2026-04-07 19:05 by ÖзÉÔº¿Õ¹ÜѧԺÑ
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +15 Ò»ÑùYWY 2026-04-01 15/750 2026-04-07 15:54 by dxlg
[¿¼ÑÐ] 333Çóµ÷¼Á +6 ºÏ³ËÑîϰϦ 2026-04-06 6/300 2026-04-07 09:44 by Öí»á·É
[¿¼ÑÐ] 304Çóµ÷¼Á +4 luoye0105 2026-04-05 4/200 2026-04-06 21:05 by ľ×Ó¾ý1218
[¿¼ÑÐ] 287Çóµ÷¼Á +3 ͨÐÅѧ˶081000 2026-04-03 4/200 2026-04-06 21:03 by going home
[¿¼ÑÐ] 324Çóµ÷¼Á +3 k¿ÉÀÖ 2026-04-05 4/200 2026-04-06 09:54 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ÉúÎïÓëÒ½Ò©086000µ÷¼ÁÒ»Ö¾Ô¸Î÷±±Å©ÁÖ320·Ö +3 ÃÀÃÀŮʿ 2026-04-03 3/150 2026-04-05 21:55 by ѧԱ8dgXkO
[¿¼ÑÐ] 296Çóµ÷¼Á +3 Íô£¡£¿£¡ 2026-04-05 5/250 2026-04-05 17:38 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 0854Çóµ÷¼Á +4 assdll 2026-04-04 4/200 2026-04-05 09:44 by zhq0425
[¿¼ÑÐ] 290Çóµ÷¼Á +7 luoziheng 2026-04-04 7/350 2026-04-04 23:17 by lqwchd
[¿¼ÑÐ] ¡£ +5 ÎíÓ뺣 2026-04-02 6/300 2026-04-04 19:53 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ÔõôɾÌû×Ó°¡ +3 ·ìêØ1000 2026-04-04 3/150 2026-04-04 14:20 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] Ò»Ö¾Ô¸±±½»´ó²ÄÁϹ¤³Ì×Ü·Ö358 +6 cs0106 2026-04-03 6/300 2026-04-04 11:20 by w_xuqing
[¿¼ÑÐ] 282Çóµ÷¼Á +20 ycy1201 2026-04-01 22/1100 2026-04-04 00:42 by userper
[¿¼ÑÐ] Ò»Ö¾Ô¸Éî´ó085601²ÄÁϹ¤³Ìרҵ£¨×¨Ë¶£©300·Ö¿ÉÒÔµ÷¼ÁÈ¥ÄÄ +8 10160315 2026-04-02 8/400 2026-04-03 09:36 by hypershenger
[¿¼ÑÐ] 302Çóµ÷¼Á +9 zyxÉϰ¶£¡ 2026-04-02 9/450 2026-04-02 23:07 by Âí¶ù¿ì¿ìµØÅÜ
[¿¼ÑÐ] 293Çóµ÷¼Á +4 çæçæÀÖ 2026-04-02 4/200 2026-04-02 20:10 by 6781022
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¿Æ¼¼£¬085601×Ü·Ö305Çóµ÷¼Á +9 °ëÉú¹Ï£¡ 2026-04-01 11/550 2026-04-02 08:28 by Wang200018
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û