|
|
@ -66,7 +66,7 @@ C
|
|
|
|
IF (DESCRA(1:1).EQ.'S' .AND. DESCRA(2:2).EQ.'U') TRANS = 'U'
|
|
|
|
IF (DESCRA(1:1).EQ.'S' .AND. DESCRA(2:2).EQ.'U') TRANS = 'U'
|
|
|
|
IF (DESCRA(1:1).EQ.'S' .AND. DESCRA(2:2).EQ.'L') TRANS = 'L'
|
|
|
|
IF (DESCRA(1:1).EQ.'S' .AND. DESCRA(2:2).EQ.'L') TRANS = 'L'
|
|
|
|
c
|
|
|
|
c
|
|
|
|
c Does DSRMV manage this case too? <????????????????????????????
|
|
|
|
c Does DSRMV manage this case too?
|
|
|
|
c
|
|
|
|
c
|
|
|
|
IF (DESCRA(1:1).EQ.'D') THEN
|
|
|
|
IF (DESCRA(1:1).EQ.'D') THEN
|
|
|
|
IF (DESCRA(3:3).EQ.'U') THEN
|
|
|
|
IF (DESCRA(3:3).EQ.'U') THEN
|
|
|
|