IF(INCY.LT.0)IY = (-N+1)*INCY + 1. DO 10 I = 1,N ... DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) ... CALL RS(3,3,WORK,R,1,H,FV1,FV2,IER).
確定! 回上一頁