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

bmw1818

гæ (³õÈëÎÄ̳)

[½»Á÷] ×Éѯһ¸öµ÷ÓÃIMSLµÄÎÊÌâ

¸÷λ´óÏÀºÃ£¡Ð¡µÜ¸Õ¸Õ¿ªÊ¼±à³Ì£¬ÔÚÀûÓÃIMSLÇó¾ØÕóÄæÊ±³öÏÖÒ»¸ö²»Àí½âµÄÎÊÌâ¡£
ÔËÐÐIMSL°ïÖúÀïLINCGÇóÄæ³ÌÐòÊÇ¿ÉÒÔÔËÐе쬵«ÊǷŵ½×Ô¼º³ÌÐòÀïÃæÈ´±¨´í£¬ÕÒ²»µ½Õâ¸ö³ÌÐò¡£
error #6285: There is no matching specific subroutine for this generic subroutine call.   [CSSCAL]
ÏëÎÊÏÂÄÄÀï³öÎÊÌâÁË£¿


¸½Àý×Ó£º
       include 'link_fnl_shared.h'
       USE LINCG_INT
       USE WRCRN_INT
       USE CSSCAL_INT
! Declare variables
       PARAMETER (LDA=3, LDAINV=3, N=3)
       REAL THIRD
       COMPLEX A(LDA,LDA), AINV(LDAINV,LDAINV),ccc(LDA,LDA)
! Set values for A
!
! A = ( 1.0+1.0i 2.0+3.0i 3.0+3.0i)
! ( 2.0+1.0i 5.0+3.0i 7.0+4.0i)
! ( -2.0+1.0i -4.0+4.0i -5.0+3.0i)
!
        DATA A/(1.0,1.0), (2.0,1.0), (-2.0,1.0), (2.0,3.0), (5.0,3.0),
     & (-4.0,4.0), (3.0,3.0), (7.0,4.0), (-5.0,3.0)/
!
! Scale A by dividing by three
        THIRD = 1.0/3.0
        DO 10 I=1, N
        CALL CSSCAL (N, THIRD, A(:,I), 1)
10     CONTINUE
! Calculate the inverse of A
        CALL LINCG (A, AINV)
! Print results
       ccc= matmul(rn,ra3)
       CALL WRCRN ('AINV', AINV)
        read(*,*)
        END
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

bmw1818

гæ (³õÈëÎÄ̳)

×Ô¼º½â¾öÁË£¬ÊÇcsscalº¯ÊýµÄ¾«¶ÈÎÊÌ⣬ÎÒµÄÊý¾ÝÊÇË«¾«¶ÈµÄ£¬º¯ÊýĬÈÏÊǵ¥¾«¶È¡£
2Â¥2017-01-23 20:28:29
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ bmw1818 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸Äϲý´óѧ324Çóµ÷¼Á +11 hanamiko 2026-04-01 11/550 2026-04-02 09:00 by sanrepian
[¿¼ÑÐ] 0856£¬269·ÖÇóµ÷¼Á +8 ÓÐѧÉϾÍÐÐÇóÇóÁ 2026-03-30 11/550 2026-04-01 22:33 by 2026²ÄÁϵ÷¼Á
[¿¼ÑÐ] 273Çóµ÷¼Á +19 ÀîÜÆÐÂ1 2026-03-31 19/950 2026-04-01 21:49 by chyhaha
[¿¼ÑÐ] ½¨»·£¬ÄÜÔ´£¬ÍÁľÀÏʦ·¹ý¿´Ò»¿´£¡£¡£¡ +4 ºÙºÙuu 2026-04-01 4/200 2026-04-01 20:42 by ÎÞи¿É»÷111
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷°²½»´ó²ÄÁÏѧ˶£¨Ó¢Ò»Êý¶þ£©347£¬Çóµ÷¼Áµ½¸ß·Ö×Ó/²ÄÁÏÏà¹Ø×¨Òµ +7 zju51 2026-03-31 9/450 2026-04-01 19:35 by CFQZAFU
[¿¼ÑÐ] ÉúÎïÓëÒ½Ò©¿¼Ñе÷¼Á +5 Ìúº©º©123425 2026-03-31 5/250 2026-04-01 18:01 by syh9288
[¿¼ÑÐ] 26¿¼Ñе÷¼Á +3 Wnz.20030617 2026-04-01 3/150 2026-04-01 17:22 by salamander`
[¿¼ÑÐ] »¯Ñ§308·Öµ÷¼Á +13 ÄãºÃÃ÷ÌìÄãºÃ 2026-03-30 14/700 2026-04-01 16:19 by yanflower7133
[¿¼ÑÐ] ²ÄÁÏ0856 Ó¢Ò»Êý¶þ 323 Çóµ÷¼Á +9 Ô¬sy 2026-04-01 9/450 2026-04-01 14:30 by wangjy2002
[˶²©¼ÒÔ°] ¿¼Ñе÷¼Á +5 ÂæÍÕÄÐÈË 2026-04-01 5/250 2026-04-01 14:28 by syjjj0321
[¿¼ÑÐ] 324Çóµ÷¼Á +4 ÏëÉÏѧÇóµ÷ 2026-04-01 5/250 2026-04-01 14:19 by ZXlzxl0425
[¿¼ÑÐ] Ò»Ö¾Ô¸±±½»²ÄÁϹ¤³Ì×Ü·Ö358 +5 cs0106 2026-04-01 7/350 2026-04-01 11:45 by wangjy2002
[¿¼ÑÐ] 318Çóµ÷¼Á +8 ÆßÒä77 2026-04-01 8/400 2026-04-01 10:37 by Jaylen.
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¿Æ¼¼´óѧ085601²ÄÁϹ¤³ÌÓ¢Ò»Êý¶þ³õÊÔ×Ü·Ö335Çóµ÷¼Á +5 Ë«ÂíβƦÀϰå2 2026-03-31 5/250 2026-04-01 09:04 by oooqiao
[¿¼ÑÐ] 254²ÄÁÏÓ뻯¹¤Çóµ÷¼Á +3 º²¶¬ÁÖéª 2026-03-30 4/200 2026-03-31 17:53 by yishunmin
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¶û±õ¹¤Òµ´óѧ²ÄÁÏÓ뻯¹¤·½Ïò336·Ö +13 ³½ãå5211314 2026-03-26 13/650 2026-03-31 14:37 by ¼Çʱ¾2026
[¿¼ÑÐ] Çóµ÷¼Á +8 11ggg 2026-03-30 8/400 2026-03-31 13:56 by nanaliuyun
[¿¼ÑÐ] һ־ԸʳƷ¿ÆÑ§Ó빤³Ì083200Çóµ÷¼Á +4 XQTJZ 2026-03-30 4/200 2026-03-31 04:10 by fmesaito
[¿¼ÑÐ] 312£¬ÉúÎïѧÇóµ÷¼Á +3 СÒëͬѧabc 2026-03-28 3/150 2026-03-28 15:32 by ÂäÉ˼
[¿¼ÑÐ] 352·Ö »¯¹¤Óë²ÄÁÏ +5 º£Äɰٴ¨Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û