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

Íõ¾©

Í­³æ (СÓÐÃûÆø)

[ÇóÖú] ¹ØÓÚimsl¿âµÄʹÓóö´í£¨ÒÑÍê½á£©

program matest
        use IMSL
                implicit none
        INTEGER n,lda
        parameter(n=4,lda=n)
        real A(lda,n)
        complex eval(n)
        EXTERNAL EVLRG,WRCRN
        DATA A/-2.0, -3.0, -2.0, -1.0, 2.0, 3.0, 0.0, 0.0, 2.0, 2.0,4.0, 0.0, 2.0, 2.0, 2.0, 5.0/
                CALL EVLRG (N, A, LDA, EVAL)
        CALL WRCRN ('EVAL',1,N,EVAL,1,0)
    end program matest
ÎÒ¾ÍÊǶÔ×ÅIMSL fortran90 library helperÀïµÄÀý×Ó×öµÄ£¬µ«ÊdzöÏÖÁ½¸ö´íÎó£¬Çó´ó¼Ò°ïæ°¡
Error: The attributes of this name conflict with those made accessible by a USE statement.   [EVLRG]
Error: The attributes of this name conflict with those made accessible by a USE statement.   [WRCRN]

[ Last edited by ÓàÔó³É on 2011-9-19 at 17:28 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

Íõ¾©

Í­³æ (СÓÐÃûÆø)

Ū³öÀ´ÁË£¬ÏëÆðÒÔǰҲÃÔ»ó¹ý£¬ºóÀ´ÒѾ­Åª³öÀ´ÁË£¬·­ÁË·­ÒÔǰµÄ¶«Î÷£¬ÕæÊµ±¿°¡ÎÒ£¬ÔÚÒ»¸öµØ·½Ë¤µ¹Á½´Î

²»¹ý»¹ºÃ¶¼ÊÇ×Ô¼ºÅÀÆðÀ´µÄ
2Â¥2011-09-19 14:53:57
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÐϺãºã

Ìú³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by Íõ¾© at 2011-09-19 14:53:57
Ū³öÀ´ÁË£¬ÏëÆðÒÔǰҲÃÔ»ó¹ý£¬ºóÀ´ÒѾ­Åª³öÀ´ÁË£¬·­ÁË·­ÒÔǰµÄ¶«Î÷£¬ÕæÊµ±¿°¡ÎÒ£¬ÔÚÒ»¸öµØ·½Ë¤µ¹Á½´Î

²»¹ý»¹ºÃ¶¼ÊÇ×Ô¼ºÅÀÆðÀ´µÄ

Â¥Ö÷Ôõô½â¾öµÄÄÜ·ÖÏíÒ»ÏÂÂð£¿ÎÒÏÖÔÚÒ²Óöµ½Õâ¸öÎÊÌâ
3Â¥2018-07-02 08:47:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ Íõ¾© µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ²ÄÁϹ¤³Ì322·Ö +5 ¹þ¹þ¹þºðºðºð¹þ 2026-04-01 5/250 2026-04-01 23:14 by ÎÞи¿É»÷111
[¿¼ÑÐ] 295²ÄÁϹ¤³Ìר˶Çóµ÷¼Á +19 1428151015 2026-03-27 19/950 2026-04-01 22:34 by peike
[¿¼ÑÐ] 266·ÖÇó²ÄÁÏ»¯¹¤Ò±½ð¿óÒµµÈרҵµÄµ÷¼Á +7 ÍÛºôºßºôºß 2026-03-26 7/350 2026-04-01 20:47 by cqupH
[¿¼ÑÐ] 320·Ö£¬²ÄÁÏÓ뻯¹¤×¨Òµ£¬Çóµ÷¼Á +14 Ò»¶¨Éϰ¶aaa 2026-03-27 18/900 2026-04-01 20:10 by »ý¼«µ÷¼ÁµÄСѧÉ
[¿¼ÑÐ] 08¹¤¿Æ275·ÖÇóµ÷¼Á +12 AaAa7420 2026-03-31 12/600 2026-04-01 15:45 by jp9609
[¿¼ÑÐ] 085600£¬²ÄÁÏÓ뻯¹¤321·Öµ÷¼Á +5 ´ó²öС×Ó 2026-03-27 7/350 2026-04-01 15:13 by oooqiao
[¿¼ÑÐ] 0855»úе³õÊÔ280Çóµ÷¼Á +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
[¿¼ÑÐ] 333Çóµ÷¼Á +4 °¢¿ÆÒÝ 2026-03-31 4/200 2026-04-01 09:11 by jp9609
[¿¼ÑÐ] 0856µ÷¼Á +7 ÇúÌýóÞ 2026-03-30 7/350 2026-04-01 08:51 by JourneyLucky
[¿¼ÑÐ] ²ÄÁÏ¿ÆÑ§Ó빤³ÌÇóµ÷¼Á +13 ÉîVËÞÉá°É 2026-03-29 13/650 2026-03-31 19:50 by Dyhoer
[¿¼ÑÐ] Çóµ÷¼Á +9 akdhjs 2026-03-31 10/500 2026-03-31 17:14 by zhyzzh
[¿¼ÑÐ] ¿¼Ñе÷¼ÁÇóÖú +7 13287130938 2026-03-31 7/350 2026-03-31 16:39 by 690616278
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷µç085401ÊýÒ»Ó¢Ò»299Çóµ÷¼Á Áù¼¶521 +4 °®³Ô´óѼÀæ 2026-03-31 4/200 2026-03-31 11:51 by ²«»÷518
[¿¼ÑÐ] 085601Ò»Ö¾Ô¸Î÷±±¹¤Òµ´óѧ³õÊÔ346 +4 085601³õÊÔ346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[¿¼ÑÐ] 085600 286·Ö ²ÄÁÏÇóµ÷¼Á +11 ÂéÀ±öÏÓã 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[¿¼ÑÐ] 085602 »¯Ñ§¹¤³Ìר˶ 340·ÖÇóµ÷¼Á +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by ÌÆãå¶ù
[¿¼ÑÐ] 340Çóµ÷¼Á +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 316Çóµ÷¼Á +7 ½­´Ç666 2026-03-26 7/350 2026-03-28 21:28 by sanrepian
[¿¼ÑÐ] 312£¬ÉúÎïѧÇóµ÷¼Á +3 СÒëͬѧabc 2026-03-28 3/150 2026-03-28 15:32 by ÂäÉ˼
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤£¨0856£©304ÇóBÇøµ÷¼Á +8 Çñgl 2026-03-27 8/400 2026-03-28 12:42 by ÌÆãå¶ù
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û