| ²é¿´: 1584 | »Ø¸´: 6 | ||||
ÐÐÔÆÁ÷Ë®cs½ð³æ (СÓÐÃûÆø)
|
[ÇóÖú]
FORTRAN ¶ÁÈ¡ÎļþÊý¾Ý³ö´í
|
|
PROGRAM MAIN REAL L(1340,4) M=1340 N=4 OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED') READ(1,*) ((L(M,N),I=1,N),J=1,M) OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED') WRITE(2,200) L CLOSE(1) CLOSE(2) 200 FORMAT(1X,4F10.2) END F1.DAT ²¿·ÖÎļþ 2570 2649 2540 2530 2532 2558 2544 2459 2479 2494 2515 2450 2448 2511 2458 2448 2407 2515 2510 2407 2436 2444 2384 2396 2320 2362 2330 2316 2280 2382 2320 2315 2324 2369 2252 2260 2282 2284 2303 2241 2239 2347 2232 2215 µ«ÊÇF2.DAT ÔõôȫÊÇ0 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 |
» ÊÕ¼±¾ÌûµÄÌÔÌûר¼ÍƼö
Linuxϵͳѧϰ |
» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©
» ²ÂÄãϲ»¶
[¸´ÊÔµ÷¼Á]Î÷ÄϿƼ¼´óѧ¹ú·À/²ÄÁϵ¼Ê¦ÍƼö
ÒѾÓÐ6È˻ظ´
»¯Ñ§¹¤³Ì321·ÖÇóµ÷¼Á
ÒѾÓÐ12È˻ظ´
211±¾£¬11408Ò»Ö¾Ô¸ÖпÆÔº277·Ö£¬ÔøÔÚÖпÆÔº×Ô¶¯»¯Ëùʵϰ
ÒѾÓÐ4È˻ظ´
²ÄÁÏר˶326Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
¶«ÄÏ´óѧ364Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
¹ú×Ô¿ÆÃæÉÏ»ù½ð×ÖÌå
ÒѾÓÐ7È˻ظ´
ҩѧ383 Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
286Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
085601Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
302Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
fortran³ÌÐòopenÎļþʱµÄ¼òµ¥ÎÊÌâ
ÒѾÓÐ3È˻ظ´
fortranת»»CHGCAR³ö´í
ÒѾÓÐ4È˻ظ´
Fortran ±àÒëÎÊÌâ
ÒѾÓÐ9È˻ظ´
Çë½ÌÒ»¸öfortranС³ÌÐò±àÒë³ö´íµÄÎÊÌ⣬лл
ÒѾÓÐ9È˻ظ´
¡¾ÇóÖú¡¿FortranÓïÑÔ¸³ÖµÎÊÌ⣿
ÒѾÓÐ3È˻ظ´
FortranµÄ¸ñʽ»¯ÊäÈëÊä³öÎÊÌâ
ÒѾÓÐ14È˻ظ´
ÈýάÊý×é»»ÐÐÊäÈëµ½Îļþ£¨intel fortran ±àÒëÆ÷£©
ÒѾÓÐ6È˻ظ´
ÓйØfortranµÄÒ»´Î¶øÎÊÌ⣬ϣÍû´ó¼ÒÄܰï°ï棬лл
ÒѾÓÐ4È˻ظ´
¡¾ÕûÀí¡¿½ñÌìÕûÀíÓ²ÅÌÉϵÄ×ÊÁÏ£¬Å¼È»·¢ÏֵĺÃÍæµÄС¶«Î÷¾ÍÖ±½Ó·¢ÉÏÀ´°É
ÒѾÓÐ105È˻ظ´
¡¾ÇóÖú¡¿ÈçºÎдFORTRAN³ÌÐòʵÏÖÇ󯽾ù×î½üÁÚ¾àÀë
ÒѾÓÐ34È˻ظ´
¡¾ÇóÖú¡¿Çó¸ßÊÖ¹ØÓÚFortranÊý¾Ý¶ÁдµÄÎÊÌâ¡£¡¾ÒÑÍê½á¡¿
ÒѾÓÐ12È˻ظ´
¡¾·ÖÏí¡¿½«ELFCAR¡¢CHGCARת»¯³ÉMSÔĶÁ¿É¶ÁµÄfortran´úÂë
ÒѾÓÐ142È˻ظ´
¡¾ÇóÖú¡¿DL_POLYµÄconfigÎļþÈçºÎÉú³É??
ÒѾÓÐ98È˻ظ´

mingkeng
ÖÁ×ðľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 11 (СѧÉú)
- ½ð±Ò: 9386.4
- Ìû×Ó: 620
- ÔÚÏß: 213.2Сʱ
- ³æºÅ: 194003
- ×¢²á: 2006-02-22
- רҵ: ´óÆø¿ÆÑ§
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
jjdg: ½ð±Ò+1, ¸Ðл²ÎÓë 2012-06-25 00:07:55
ÐÐÔÆÁ÷Ë®cs: ½ð±Ò+5, ¡ï¡ï¡ïºÜÓаïÖú 2012-06-25 10:36:02
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
jjdg: ½ð±Ò+1, ¸Ðл²ÎÓë 2012-06-25 00:07:55
ÐÐÔÆÁ÷Ë®cs: ½ð±Ò+5, ¡ï¡ï¡ïºÜÓаïÖú 2012-06-25 10:36:02
|
PROGRAM MAIN REAL L(1340,4) M=1340 N=4 OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED') READ(1,*) ((L(j,i),I=1,N),J=1,M) OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED') WRITE(2,200) L CLOSE(1) CLOSE(2) 200 FORMAT(1X,4F10.2) END ½«READ(1,*) ((L(M,N),I=1,N),J=1,M)ÐÞ¸ÄΪREAD(1,*) ((L(j,i),I=1,N),J=1,M)¼´¿É |
2Â¥2012-06-24 22:47:25
ÐÐÔÆÁ÷Ë®cs
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1485.2
- É¢½ð: 6
- Ìû×Ó: 93
- ÔÚÏß: 78.3Сʱ
- ³æºÅ: 856236
- ×¢²á: 2009-09-25
- רҵ: »¯Ñ§¶¯Á¦Ñ§
|
PROGRAM MAIN INTEGER L(1340,4) M=1340 N=4 OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED') READ(1,100) ((L(j,i),I=1,N),J=1,M) OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED') WRITE(2,200) L CLOSE(1) CLOSE(2) 100 FORMAT£¨4I6£© 200 FORMAT(4£¨2X,4I6£©) END ¶Ô³ÌÐòÉÔ΢¸ÄÁËһϣ¬µ«ÊdzöÏÖÁËinput conversion error¡£ÎÒÖªµÀ READ(1,100) ((L(j,i),I=1,N),J=1,M) 100 FORMAT£¨4I6£©ÓдíÎó¡£µ«²»ÖªµÀÔõô¸Ä¡£Âé·³Äã°ïÎÒ¿´¿´¡£ |

3Â¥2012-06-25 10:40:58
mingkeng
ÖÁ×ðľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 11 (СѧÉú)
- ½ð±Ò: 9386.4
- Ìû×Ó: 620
- ÔÚÏß: 213.2Сʱ
- ³æºÅ: 194003
- ×¢²á: 2006-02-22
- רҵ: ´óÆø¿ÆÑ§
4Â¥2012-06-26 17:41:15
purplewds
ͳæ (СÓÐÃûÆø)
- Ó¦Öú: 4 (Ó×¶ùÔ°)
- ½ð±Ò: 124.8
- Ìû×Ó: 64
- ÔÚÏß: 17.4Сʱ
- ³æºÅ: 1111551
- ×¢²á: 2010-09-30
- ÐÔ±ð: GG
- רҵ: ½á¹¹¹¤³Ì
5Â¥2012-06-26 18:53:35
haizhfly
ľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 16 (СѧÉú)
- ½ð±Ò: 3134.8
- Ìû×Ó: 316
- ÔÚÏß: 67.4Сʱ
- ³æºÅ: 925614
- ×¢²á: 2009-12-11
- רҵ: ÌìÆøÑ§
6Â¥2012-06-27 06:59:49
ÐÐÔÆÁ÷Ë®cs
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1485.2
- É¢½ð: 6
- Ìû×Ó: 93
- ÔÚÏß: 78.3Сʱ
- ³æºÅ: 856236
- ×¢²á: 2009-09-25
- רҵ: »¯Ñ§¶¯Á¦Ñ§
ËÍÏÊ»¨Ò»¶ä |
PROGRAM MAIN INTEGER,ALLOCATABLE::A(:, ![]() INTEGER M,N WRITE(*,*)'ENTER M AND N :' READ(*,*) M,N ALLOCATE(A(M,N)) OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED') DO 10,I=1,M DO 20,J=1,N READ(1,*) A(I,J) 20 CONTINUE CALL SORT(A,N) 10 CONTINUE OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED') WRITE(2,100) ((A(I,J),J=1,N),I=1,M) CLOSE(1) CLOSE(2) 100 FORMAT(1X,4(3X,I6)) END C SUBROUTINE SORT(A,N) INTEGER N,P,A(N),K DO 10,J=1,N-1 P=J DO 20,I=J+1,N IF(A(I).LT.A(P)) THEN P=I END IF 20 CONTINUE K=A(J) A(J)=A(P) A(P)=K 10 CONTINUE END F1.DATÈçÏ£¬Ï£Íû¸ßÊÖ°ïÎÒµ÷ÊÔһϣ¬ÎÒµÄÄ¿µØÊǽ«F1.datÖеÄÊý¾Ý£¬¶ÁÒ»ÐÐÈ»ºóÅÅÐò£¬ÔÙ¶ÁÒ»ÐÐÔÙÅÅÐò¡£µ«ÊÇÎÒ·¢ÏÖ³ÌÐò¶ÁÈ¡ÎļþÍêÈ«ÊÇÒ»ÁжÁÈ¡µÄ¡£¼¸¸öÀý×Ó:ÎÒ±¾À´Ïë¶Á4*4 ¾ØÕ󣬵«ÊdzÌÐòÈ´¶ÁÁ˵ÚÒ»ÁеÄ16¸öÊý¾Ý¡£ 2570 2649 2540 2530 2532 2558 2544 2459 2479 2494 2515 2450 2448 2511 2458 2448 2407 2515 2510 2407 2436 2444 2384 2396 2320 2362 2330 2316 2280 2382 2320 2315 2324 2369 2252 2260 2282 2284 2303 2241 2239 2347 2232 2215 2207 2220 2216 2200 2204 2212 2174 2133 2135 2137 2140 2079 2115 2176 2203 2036 2107 2139 2742 2067 2053 2036 5555 2020 2009 1998 3807 1960 1947 2003 4393 1978 1986 1997 4894 1929 1955 1995 2131 1959 1909 1951 1927 1903 1910 1949 1873 1849 1852 1928 1842 1848 1882 1871 1830 1829 1869 1901 1772 1768 |

7Â¥2012-06-27 11:17:07













»Ø¸´´ËÂ¥

50