CyRhmU.jpeg
ÄÏ·½¿Æ¼¼´óѧ¹«¹²ÎÀÉú¼°Ó¦¼±¹ÜÀíѧԺ2026¼¶²©Ê¿Ñо¿ÉúÕÐÉú±¨¿¼Í¨Öª£¨³¤ÆÚÓÐЧ£©
²é¿´: 2171  |  »Ø¸´: 1

º£±ý¸É01

гæ (³õÈëÎÄ̳)

[ÇóÖú] fortranÖ±½Ó¶ÁÈ¡ÎļþÒÑÓÐ1È˲ÎÓë

ÇóÖú¸÷λ´óÉñ£¬ÓÐÒ»¸öÎı¾Îļþ£¬ÎÒÏëÑ­»·¶ÁÈ¡Îļþ£¬±ÈÈçÒª´Ó2µ½5ÐУ¬12µ½15ÐеÄÊý¾Ý£¬ÒÔ´ËÀàÍÆ

·¢×ÔСľ³æAndroid¿Í»§¶Ë
»Ø¸´´ËÂ¥
γîǰ·ÎÞÖª¼º£¬ÌìÏÂË­È˲»Ê¶¾ý
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

rex0707

гæ (³õÈëÎÄ̳)

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

¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
xzhdty: ½ð±Ò+1, ¸Ðл²ÎÓë 2017-07-05 12:47:16
INTEGER,PARAMETER :: SkipLine ! how many lines you want to skip, in your case SkipLine = 12-2 = 10
INTEGER :: Line1      ! in your case Line1 = 2
INTEGER :: MaxLine ! how many lines in your file

DO i = Line1 : MaxLine : SkipLine
    DO j = i : ReadNLine
        READ(UNIT,*) A(j)
    ENDDO
ENDDO

î?ËÆµÄ×ö·¨‘ªÔ“¾Í¿ÉÒÔÁ˰É
2Â¥2017-07-04 20:14:51
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ º£±ý¸É01 µÄÖ÷Ìâ¸üÐÂ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û