Solution of the matrix equation AX + XB
β
Bartels, R. H.; Stewart, G. W.
π
Article
π
1972
π
Association for Computing Machinery
π
English
β 494 KB
O COMMON AM\*OnLI,B\*NLI\*NL2,AsNEI\*NE2\*II(~MBASIS\*~\*Z DIMENSION AM(SO~bO)s O(SO)\* B(50,5O)\* A(50) DIMENSION ~(50}\* Z(50)\* NBASIS(IOO) ~RITE(6\*I) LI 1 FORMAT (10X\*I3RITERATION NO.~I4) I=N+I d=l 2 KI=MBASIS(1) KO=MBASIS(J) IF (O(J)\*GE-O.O) GO TO 3 O(J)=O.O 3 IF (R2.EO.l) GO TO 5 WRITE(6~4)