e=P-8f=s-p-9 计算两个复数的商 t+if=(c+id)/(o+jb) 本子程序果用如下算法 p=c9=-d,s=(a-b(c十d),w=d十5 e(p-Q)/w,f-(s-p-q)/w 三、子程序语句 SUBROUTINE ACGAS(AR,AI.N.BR.BI,L.JS) 四、形参说明 AR,A一一均为双精度实型二罪数组，体积为NXN,输入务数。分别存放方程组系 数矩阵的实部与童部，返回时将被被环。 N一整型变量，第入参教。方程组阶数。 BR,卧-一均为双精度实型一维数组，长度为N,输入兼鞫出参数。调用时分别存放 方程组右端常数向觉的实邵与遽部：分别返同方程组解向量的实部与虚部， L一二变量，输出参数。若返回L=0,说明方程组系数矩阵奇异，求解失：若 L≠0，表示正常返园， -堇型一维数组，长度为N,本子程序的工作教组。 五，子程耶（文件名：ACGAS..FOR) SUBROUTINE ACGASCAR,AI.N.BR.BL.L.IS) DIMENSION AR(N.N).AI(N.N).B N).J8CN) 1=1 1oK-1N1 D0.0 DO 10I-K.N DO 10J-K.N P-AR(T.D)+AR(LJ)+AI(L.J).AlC.J) F (P.GT.D)THEN D=P K) ENDI 1 CONTINUE W=D IF (W+1.0.EQ.1.0)THEN WRITE(+,20) L.=0 RETURN FORMATOIX,'ERR.FAL