First call to [SDCZ]TRSV and [SDCZ]COPY and subsequent call to
[SDCZ}GEMV should be enclose in
IF (N.GT.M) THEN
...
END IF
blocks.
This prevents referencing Y(P+1) in calls to these routines.
Users browsing this forum: No registered users and 4 guests