24СʱÈÈÃŰæ¿éÅÅÐаñ    

±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 2326  |  »Ø¸´: 5

exabyss916

гæ (СÓÐÃûÆø)

[ÇóÖú] ifortºÍgfortranÎÞ¸ñʽÊä³öµÄÇø±ð

±ÈÈçÓÐÒ»¸ö³¤¶ÈΪ20µÄÊý×éA(20)£¬ÓÃÎÞ¸ñʽÊä³ö£º

write(10,*)A

gfortran±àÒëµÄ½á¹ûÕýÈ·ÏÔʾ£¬A(1)£¬A(2)£¬...£¬A(20)¶¼Êä³öµ½Ò»ÐС£

ifort±àÒëµÄ½á¹ûÈ´·ÖÐÐÏÔʾÁË£¬Ã¿ÐÐÖ»ÓÐ3¸öÊý£¬ÈçºÎÈÃÊä³ö½á¹ûÖ»ÓÐÒ»ÐУ¿
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
ÓàÔó³É(½ð±Ò+1): лл²ÎÓëÓ¦Öú£¡ 2011-11-19 14:30:48
exabyss916(½ð±Ò+2): 2011-11-23 09:13:44
ÄÇÄã¾ÍÓøñʽ»¯·½Ê½Êä³ö¾ÍÊÇÁË¡­¡­
2Â¥2011-11-19 10:56:23
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÈñÀûµÄË鯬

ľ³æ (ÕýʽдÊÖ)

star watcher

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
xzhdty(½ð±Ò+1): »¶Ó­³£À´³ÌÐòÓïÑÔ¿´¿´ 2011-11-19 12:38:07
exabyss916(½ð±Ò+2): 2011-11-23 09:13:12
do i=1,20
    write(*,'(G18.10)',advance='no') A(i)
end do
»òÕß
write(*,'(20G18.10)') A
ÎÞ¸ñʽÊä³öµÄ½á¹û²»Í¬±àÒëÆ÷¶¼²»Ò»Ñù£¬ËùÒÔÊä³öʱӦ¸ÃÃ÷È·¸ø³ö¸ñʽ¡£
3Â¥2011-11-19 11:02:42
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

magang26

½ð³æ (СÓÐÃûÆø)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

exabyss916(½ð±Ò+1): 2011-11-30 15:11:53
ͳһ¥Éϵ쬏ñʽ»¯Êä³ö¡£
write(*,"(20F12.3)" (A(i),i=1,20)

²»Ã÷°×Â¥ÉϵÄGÊÇʲôÒâ˼£¿ÓÐÕâ¸öÀàÐÍ£¿
³É³¤°É
4Â¥2011-11-30 12:22:41
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

magang26

½ð³æ (СÓÐÃûÆø)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-11-30 16:09:15
ͳһ¥Éϵ쬏ñʽ»¯Êä³ö¡£
write(*,"(20F12.3)" (A(i),i=1,20)

²»Ã÷°×Â¥ÉϵÄGÊÇʲôÒâ˼£¿ÓÐÕâ¸öÀàÐÍ£¿
³É³¤°É
5Â¥2011-11-30 12:23:26
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-11-30 16:09:03
ÓàÔó³É(½ð±Ò+1): лл²ÎÓëÓ¦Öú£¡ 2011-12-02 17:23:36
ÒýÓûØÌû:
5Â¥: Originally posted by magang26 at 2011-11-30 12:23:26:
ͳһ¥Éϵ쬏ñʽ»¯Êä³ö¡£
write(*,"(20F12.3)" (A(i),i=1,20)

²»Ã÷°×Â¥ÉϵÄGÊÇʲôÒâ˼£¿ÓÐÕâ¸öÀàÐÍ£¿

Fortran 77 ±ê×¼ÖÐÓÐÕâ¸öÀàÐÍ£¬²»¹ý²»³£Ó㬺Ǻǡ­¡­

[qutoe]
13.5.9.2.3 G Editing.
The Gw.d and Gw.dEe edit descriptors indicate that the external field occupies w positions, the fractional part of which consists of d digits, unless a scale factor greater than one is in effect, and the exponent part consists of e digits.

G input editing is the same as for F editing ( 13.5.9.2.1).

The method of representation in the output field depends on the magnitude of the datum being edited. Let N be the magnitude of the internal datum. If N < 0.1 or N >= 10**d,Gw.d output editing is the same as kPEw.d output editing and Gw.dEe output editing is the same as kPEw.dEe output editing, where k is the scale factor currently in effect. If N is greater than or equal to 0.1 and is less than 10**d , the scale factor has no effect, and the value of N determines the editing as follows:

________________________________________________
     |                       |                       |
     |_Magnitude_of_Datum____|__Equivalent_Conversion|
     |                       |                       |
     | 0.1=N<=1              |  F(w-n).d, n('b')     |
     |                       |                       |
     | 1<=N<10               |  F(w-n).(d-1), n('b') |
     |                       |                       |
     |   .                   |        .              |
     |   .                   |        .              |
     |   .                   |        .              |
     | 10**(d-2)<=N<10**(d-1)|  F(w-n).1, n('b')     |
     |                       |                       |
     | 10**(d-1)<=N<10**d    |  F(w-n).0, n('b')     |
     |                       |                       |
     |_______________________|_______________________|

    where: b is a blank

    n is 4 for Gw.d and e+2 for Gw.dEe

Note that the scale factor has no effect unless the magnitude of the datum to be edited is outside of the range that permits effective use of F editing. [/quote]
6Â¥2011-11-30 13:43:45
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ exabyss916 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 307Çóµ÷¼Á +8 ³¬¼¶ÒÁ°º´óÍõ 2026-04-06 8/400 2026-04-06 22:50 by qlm5820
[¿¼ÑÐ] Ò»Ö¾Ô¸ÄϿƴóÉúÎïѧ297·Ö£¬Çóµ÷¼ÁÍÆ¼ö +6 Y-yyusx 2026-04-06 7/350 2026-04-06 22:39 by 52305043001
[¿¼ÑÐ] 297·Ö083200ÇóÖú +9 aekx 2026-04-05 9/450 2026-04-06 20:57 by flysky1234
[¿¼ÑÐ] 285Çóµ÷¼Á +5 mapmath 2026-04-06 6/300 2026-04-06 17:18 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ²ÄÁÏר˶(0856) 339·ÖÇóµ÷¼Á +10 ¹þ¹þ¹þ¶ì¹þ¹þ¹þ 2026-04-05 10/500 2026-04-06 09:35 by jp9609
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷°²½»´ó²ÄÁÏѧ˶£¨Ó¢Ò»Êý¶þ£©347£¬Çóµ÷¼Áµ½¸ß·Ö×Ó/²ÄÁÏÏà¹Ø×¨Òµ +8 zju51 2026-03-31 10/500 2026-04-06 09:03 by ×íÎÌwl
[¿¼ÑÐ] 301Çóµ÷¼Á +6 ϸ°ûÏà¹Øµ°°× 2026-04-02 10/500 2026-04-06 08:34 by jp9609
[¿¼ÑÐ] ÕÒµ÷¼Á +10 ³þÇÇÇÇ 2026-04-01 10/500 2026-04-05 22:19 by syh9288
[¿¼ÑÐ] 298Çóµ÷¼Á +3 manman511 2026-04-05 3/150 2026-04-05 18:09 by kk112233
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +8 ÏàÐűػá¹ââÍòÕ 2026-04-05 10/500 2026-04-05 12:19 by Hdyxbekcb
[¿¼ÑÐ] 312Çóµ÷¼Á +3 Say Never 2026-04-04 3/150 2026-04-05 11:19 by guoweigw
[¿¼ÑÐ] 288Çóµ÷¼Á£¬Ò»Ö¾Ô¸»ªÄÏÀí¹¤´óѧ071005 +6 ioodiiij 2026-04-04 6/300 2026-04-05 10:09 by guoweigw
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +15 Ò»ÑùYWY 2026-04-01 15/750 2026-04-04 22:23 by hemengdong
[¿¼ÑÐ] ÇóÉúÎïѧµ÷¼Á +14 15172915737 2026-04-01 14/700 2026-04-04 20:13 by babysonlkd
[¿¼ÑÐ] 282Çóµ÷¼Á +20 ycy1201 2026-04-01 22/1100 2026-04-04 00:42 by userper
[¿¼ÑÐ] ¿¼Ñе÷¼Á +3 15615482637 2026-04-03 3/150 2026-04-03 22:50 by ms629
[¿¼ÑÐ] ÊÞÒ½µ÷¼Á +3 wh119216 2026-04-02 3/150 2026-04-03 19:34 by zrongyan
[¿¼ÑÐ] 326·ÖÇóµ÷¼Á +3 ÓÚÊǺõÄØ 2026-04-01 5/250 2026-04-03 14:23 by ÓÚÊǺõÄØ
[¿¼ÑÐ] Çó²ÄÁϵ÷¼Á Ò»Ö¾Ô¸Äϲý´óѧ 328·Ö +5 yyy..... 2026-04-03 5/250 2026-04-03 13:46 by °ÙÁéͯ888
[¿¼ÑÐ] ²ÄÁÏרҵÇóµ÷¼Á +10 ÔÂÔÂÄñľ 2026-04-01 10/500 2026-04-02 12:57 by wxiongid
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û