Skip to content

Commit 1b9f106

Browse files
author
Mark Gates
committed
gesvdq: Add int() cast to avoid compiler warnings
1 parent 8931652 commit 1b9f106

File tree

4 files changed

+56
-56
lines changed

4 files changed

+56
-56
lines changed

‎SRC/cgesvdq.f

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -452,15 +452,15 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
452452
IF ( LQUERY ) THEN
453453
CALL CGEQP3( M, N, A, LDA, IWORK, CDUMMY, CDUMMY, -1,
454454
$ RDUMMY, IERR )
455-
LWRK_CGEQP3 = CDUMMY(1)
455+
LWRK_CGEQP3 = INT( CDUMMY(1) )
456456
IF ( WNTUS .OR. WNTUR ) THEN
457457
CALL CUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U,
458458
$ LDU, CDUMMY, -1, IERR )
459-
LWRK_CUNMQR = CDUMMY(1)
459+
LWRK_CUNMQR = INT( CDUMMY(1) )
460460
ELSE IF ( WNTUA ) THEN
461461
CALL CUNMQR( 'L', 'N', M, M, N, A, LDA, CDUMMY, U,
462462
$ LDU, CDUMMY, -1, IERR )
463-
LWRK_CUNMQR = CDUMMY(1)
463+
LWRK_CUNMQR = INT( CDUMMY(1) )
464464
ELSE
465465
LWRK_CUNMQR = 0
466466
END IF
@@ -478,7 +478,7 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
478478
IF ( LQUERY ) THEN
479479
CALL CGESVD( 'N', 'N', N, N, A, LDA, S, U, LDU,
480480
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
481-
LWRK_CGESVD = CDUMMY(1)
481+
LWRK_CGESVD = INT( CDUMMY(1) )
482482
IF ( CONDA ) THEN
483483
OPTWRK = MAX( N+LWRK_CGEQP3, N+LWCON, LWRK_CGESVD )
484484
ELSE
@@ -501,7 +501,7 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
501501
CALL CGESVD( 'O', 'N', N, N, A, LDA, S, U, LDU,
502502
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
503503
END IF
504-
LWRK_CGESVD = CDUMMY(1)
504+
LWRK_CGESVD = INT( CDUMMY(1) )
505505
IF ( CONDA ) THEN
506506
OPTWRK = N + MAX( LWRK_CGEQP3, LWCON, LWRK_CGESVD,
507507
$ LWRK_CUNMQR )
@@ -526,7 +526,7 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
526526
CALL CGESVD( 'N', 'O', N, N, A, LDA, S, U, LDU,
527527
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
528528
END IF
529-
LWRK_CGESVD = CDUMMY(1)
529+
LWRK_CGESVD = INT( CDUMMY(1) )
530530
IF ( CONDA ) THEN
531531
OPTWRK = N + MAX( LWRK_CGEQP3, LWCON, LWRK_CGESVD )
532532
ELSE
@@ -572,19 +572,19 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
572572
IF ( RTRANS ) THEN
573573
CALL CGESVD( 'O', 'A', N, N, A, LDA, S, U, LDU,
574574
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
575-
LWRK_CGESVD = CDUMMY(1)
575+
LWRK_CGESVD = INT( CDUMMY(1) )
576576
OPTWRK = MAX(LWRK_CGEQP3,LWRK_CGESVD,LWRK_CUNMQR)
577577
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
578578
OPTWRK = N + OPTWRK
579579
IF ( WNTVA ) THEN
580580
CALL CGEQRF(N,N/2,U,LDU,CDUMMY,CDUMMY,-1,IERR)
581-
LWRK_CGEQRF = CDUMMY(1)
581+
LWRK_CGEQRF = INT( CDUMMY(1) )
582582
CALL CGESVD( 'S', 'O', N/2,N/2, V,LDV, S, U,LDU,
583583
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
584-
LWRK_CGESVD2 = CDUMMY(1)
584+
LWRK_CGESVD2 = INT( CDUMMY(1) )
585585
CALL CUNMQR( 'R', 'C', N, N, N/2, U, LDU, CDUMMY,
586586
$ V, LDV, CDUMMY, -1, IERR )
587-
LWRK_CUNMQR2 = CDUMMY(1)
587+
LWRK_CUNMQR2 = INT( CDUMMY(1) )
588588
OPTWRK2 = MAX( LWRK_CGEQP3, N/2+LWRK_CGEQRF,
589589
$ N/2+LWRK_CGESVD2, N/2+LWRK_CUNMQR2 )
590590
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )
@@ -594,19 +594,19 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
594594
ELSE
595595
CALL CGESVD( 'S', 'O', N, N, A, LDA, S, U, LDU,
596596
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
597-
LWRK_CGESVD = CDUMMY(1)
597+
LWRK_CGESVD = INT( CDUMMY(1) )
598598
OPTWRK = MAX(LWRK_CGEQP3,LWRK_CGESVD,LWRK_CUNMQR)
599599
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
600600
OPTWRK = N + OPTWRK
601601
IF ( WNTVA ) THEN
602602
CALL CGELQF(N/2,N,U,LDU,CDUMMY,CDUMMY,-1,IERR)
603-
LWRK_CGELQF = CDUMMY(1)
603+
LWRK_CGELQF = INT( CDUMMY(1) )
604604
CALL CGESVD( 'S','O', N/2,N/2, V, LDV, S, U, LDU,
605605
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
606-
LWRK_CGESVD2 = CDUMMY(1)
606+
LWRK_CGESVD2 = INT( CDUMMY(1) )
607607
CALL CUNMLQ( 'R', 'N', N, N, N/2, U, LDU, CDUMMY,
608608
$ V, LDV, CDUMMY,-1,IERR )
609-
LWRK_CUNMLQ = CDUMMY(1)
609+
LWRK_CUNMLQ = INT( CDUMMY(1) )
610610
OPTWRK2 = MAX( LWRK_CGEQP3, N/2+LWRK_CGELQF,
611611
$ N/2+LWRK_CGESVD2, N/2+LWRK_CUNMLQ )
612612
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )

‎SRC/dgesvdq.f

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -458,15 +458,15 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
458458
IF ( LQUERY ) THEN
459459
CALL DGEQP3( M, N, A, LDA, IWORK, RDUMMY, RDUMMY, -1,
460460
$ IERR )
461-
LWRK_DGEQP3 = RDUMMY(1)
461+
LWRK_DGEQP3 = INT( RDUMMY(1) )
462462
IF ( WNTUS .OR. WNTUR ) THEN
463463
CALL DORMQR( 'L', 'N', M, N, N, A, LDA, RDUMMY, U,
464464
$ LDU, RDUMMY, -1, IERR )
465-
LWRK_DORMQR = RDUMMY(1)
465+
LWRK_DORMQR = INT( RDUMMY(1) )
466466
ELSE IF ( WNTUA ) THEN
467467
CALL DORMQR( 'L', 'N', M, M, N, A, LDA, RDUMMY, U,
468468
$ LDU, RDUMMY, -1, IERR )
469-
LWRK_DORMQR = RDUMMY(1)
469+
LWRK_DORMQR = INT( RDUMMY(1) )
470470
ELSE
471471
LWRK_DORMQR = 0
472472
END IF
@@ -484,7 +484,7 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
484484
IF ( LQUERY ) THEN
485485
CALL DGESVD( 'N', 'N', N, N, A, LDA, S, U, LDU,
486486
$ V, LDV, RDUMMY, -1, IERR )
487-
LWRK_DGESVD = RDUMMY(1)
487+
LWRK_DGESVD = INT( RDUMMY(1) )
488488
IF ( CONDA ) THEN
489489
OPTWRK = MAX( N+LWRK_DGEQP3, N+LWCON, LWRK_DGESVD )
490490
ELSE
@@ -507,7 +507,7 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
507507
CALL DGESVD( 'O', 'N', N, N, A, LDA, S, U, LDU,
508508
$ V, LDV, RDUMMY, -1, IERR )
509509
END IF
510-
LWRK_DGESVD = RDUMMY(1)
510+
LWRK_DGESVD = INT( RDUMMY(1) )
511511
IF ( CONDA ) THEN
512512
OPTWRK = N + MAX( LWRK_DGEQP3, LWCON, LWRK_DGESVD,
513513
$ LWRK_DORMQR )
@@ -532,7 +532,7 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
532532
CALL DGESVD( 'N', 'O', N, N, A, LDA, S, U, LDU,
533533
$ V, LDV, RDUMMY, -1, IERR )
534534
END IF
535-
LWRK_DGESVD = RDUMMY(1)
535+
LWRK_DGESVD = INT( RDUMMY(1) )
536536
IF ( CONDA ) THEN
537537
OPTWRK = N + MAX( LWRK_DGEQP3, LWCON, LWRK_DGESVD )
538538
ELSE
@@ -578,19 +578,19 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
578578
IF ( RTRANS ) THEN
579579
CALL DGESVD( 'O', 'A', N, N, A, LDA, S, U, LDU,
580580
$ V, LDV, RDUMMY, -1, IERR )
581-
LWRK_DGESVD = RDUMMY(1)
581+
LWRK_DGESVD = INT( RDUMMY(1) )
582582
OPTWRK = MAX(LWRK_DGEQP3,LWRK_DGESVD,LWRK_DORMQR)
583583
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
584584
OPTWRK = N + OPTWRK
585585
IF ( WNTVA ) THEN
586586
CALL DGEQRF(N,N/2,U,LDU,RDUMMY,RDUMMY,-1,IERR)
587-
LWRK_DGEQRF = RDUMMY(1)
587+
LWRK_DGEQRF = INT( RDUMMY(1) )
588588
CALL DGESVD( 'S', 'O', N/2,N/2, V,LDV, S, U,LDU,
589589
$ V, LDV, RDUMMY, -1, IERR )
590-
LWRK_DGESVD2 = RDUMMY(1)
590+
LWRK_DGESVD2 = INT( RDUMMY(1) )
591591
CALL DORMQR( 'R', 'C', N, N, N/2, U, LDU, RDUMMY,
592592
$ V, LDV, RDUMMY, -1, IERR )
593-
LWRK_DORMQR2 = RDUMMY(1)
593+
LWRK_DORMQR2 = INT( RDUMMY(1) )
594594
OPTWRK2 = MAX( LWRK_DGEQP3, N/2+LWRK_DGEQRF,
595595
$ N/2+LWRK_DGESVD2, N/2+LWRK_DORMQR2 )
596596
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )
@@ -600,19 +600,19 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
600600
ELSE
601601
CALL DGESVD( 'S', 'O', N, N, A, LDA, S, U, LDU,
602602
$ V, LDV, RDUMMY, -1, IERR )
603-
LWRK_DGESVD = RDUMMY(1)
603+
LWRK_DGESVD = INT( RDUMMY(1) )
604604
OPTWRK = MAX(LWRK_DGEQP3,LWRK_DGESVD,LWRK_DORMQR)
605605
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
606606
OPTWRK = N + OPTWRK
607607
IF ( WNTVA ) THEN
608608
CALL DGELQF(N/2,N,U,LDU,RDUMMY,RDUMMY,-1,IERR)
609-
LWRK_DGELQF = RDUMMY(1)
609+
LWRK_DGELQF = INT( RDUMMY(1) )
610610
CALL DGESVD( 'S','O', N/2,N/2, V, LDV, S, U, LDU,
611611
$ V, LDV, RDUMMY, -1, IERR )
612-
LWRK_DGESVD2 = RDUMMY(1)
612+
LWRK_DGESVD2 = INT( RDUMMY(1) )
613613
CALL DORMLQ( 'R', 'N', N, N, N/2, U, LDU, RDUMMY,
614614
$ V, LDV, RDUMMY,-1,IERR )
615-
LWRK_DORMLQ = RDUMMY(1)
615+
LWRK_DORMLQ = INT( RDUMMY(1) )
616616
OPTWRK2 = MAX( LWRK_DGEQP3, N/2+LWRK_DGELQF,
617617
$ N/2+LWRK_DGESVD2, N/2+LWRK_DORMLQ )
618618
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )

‎SRC/sgesvdq.f

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -458,15 +458,15 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
458458
IF ( LQUERY ) THEN
459459
CALL SGEQP3( M, N, A, LDA, IWORK, RDUMMY, RDUMMY, -1,
460460
$ IERR )
461-
LWRK_SGEQP3 = RDUMMY(1)
461+
LWRK_SGEQP3 = INT( RDUMMY(1) )
462462
IF ( WNTUS .OR. WNTUR ) THEN
463463
CALL SORMQR( 'L', 'N', M, N, N, A, LDA, RDUMMY, U,
464464
$ LDU, RDUMMY, -1, IERR )
465-
LWRK_SORMQR = RDUMMY(1)
465+
LWRK_SORMQR = INT( RDUMMY(1) )
466466
ELSE IF ( WNTUA ) THEN
467467
CALL SORMQR( 'L', 'N', M, M, N, A, LDA, RDUMMY, U,
468468
$ LDU, RDUMMY, -1, IERR )
469-
LWRK_SORMQR = RDUMMY(1)
469+
LWRK_SORMQR = INT( RDUMMY(1) )
470470
ELSE
471471
LWRK_SORMQR = 0
472472
END IF
@@ -484,7 +484,7 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
484484
IF ( LQUERY ) THEN
485485
CALL SGESVD( 'N', 'N', N, N, A, LDA, S, U, LDU,
486486
$ V, LDV, RDUMMY, -1, IERR )
487-
LWRK_SGESVD = RDUMMY(1)
487+
LWRK_SGESVD = INT( RDUMMY(1) )
488488
IF ( CONDA ) THEN
489489
OPTWRK = MAX( N+LWRK_SGEQP3, N+LWCON, LWRK_SGESVD )
490490
ELSE
@@ -507,7 +507,7 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
507507
CALL SGESVD( 'O', 'N', N, N, A, LDA, S, U, LDU,
508508
$ V, LDV, RDUMMY, -1, IERR )
509509
END IF
510-
LWRK_SGESVD = RDUMMY(1)
510+
LWRK_SGESVD = INT( RDUMMY(1) )
511511
IF ( CONDA ) THEN
512512
OPTWRK = N + MAX( LWRK_SGEQP3, LWCON, LWRK_SGESVD,
513513
$ LWRK_SORMQR )
@@ -532,7 +532,7 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
532532
CALL SGESVD( 'N', 'O', N, N, A, LDA, S, U, LDU,
533533
$ V, LDV, RDUMMY, -1, IERR )
534534
END IF
535-
LWRK_SGESVD = RDUMMY(1)
535+
LWRK_SGESVD = INT( RDUMMY(1) )
536536
IF ( CONDA ) THEN
537537
OPTWRK = N + MAX( LWRK_SGEQP3, LWCON, LWRK_SGESVD )
538538
ELSE
@@ -578,19 +578,19 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
578578
IF ( RTRANS ) THEN
579579
CALL SGESVD( 'O', 'A', N, N, A, LDA, S, U, LDU,
580580
$ V, LDV, RDUMMY, -1, IERR )
581-
LWRK_SGESVD = RDUMMY(1)
581+
LWRK_SGESVD = INT( RDUMMY(1) )
582582
OPTWRK = MAX(LWRK_SGEQP3,LWRK_SGESVD,LWRK_SORMQR)
583583
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
584584
OPTWRK = N + OPTWRK
585585
IF ( WNTVA ) THEN
586586
CALL SGEQRF(N,N/2,U,LDU,RDUMMY,RDUMMY,-1,IERR)
587-
LWRK_SGEQRF = RDUMMY(1)
587+
LWRK_SGEQRF = INT( RDUMMY(1) )
588588
CALL SGESVD( 'S', 'O', N/2,N/2, V,LDV, S, U,LDU,
589589
$ V, LDV, RDUMMY, -1, IERR )
590-
LWRK_SGESVD2 = RDUMMY(1)
590+
LWRK_SGESVD2 = INT( RDUMMY(1) )
591591
CALL SORMQR( 'R', 'C', N, N, N/2, U, LDU, RDUMMY,
592592
$ V, LDV, RDUMMY, -1, IERR )
593-
LWRK_SORMQR2 = RDUMMY(1)
593+
LWRK_SORMQR2 = INT( RDUMMY(1) )
594594
OPTWRK2 = MAX( LWRK_SGEQP3, N/2+LWRK_SGEQRF,
595595
$ N/2+LWRK_SGESVD2, N/2+LWRK_SORMQR2 )
596596
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )
@@ -600,19 +600,19 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
600600
ELSE
601601
CALL SGESVD( 'S', 'O', N, N, A, LDA, S, U, LDU,
602602
$ V, LDV, RDUMMY, -1, IERR )
603-
LWRK_SGESVD = RDUMMY(1)
603+
LWRK_SGESVD = INT( RDUMMY(1) )
604604
OPTWRK = MAX(LWRK_SGEQP3,LWRK_SGESVD,LWRK_SORMQR)
605605
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
606606
OPTWRK = N + OPTWRK
607607
IF ( WNTVA ) THEN
608608
CALL SGELQF(N/2,N,U,LDU,RDUMMY,RDUMMY,-1,IERR)
609-
LWRK_SGELQF = RDUMMY(1)
609+
LWRK_SGELQF = INT( RDUMMY(1) )
610610
CALL SGESVD( 'S','O', N/2,N/2, V, LDV, S, U, LDU,
611611
$ V, LDV, RDUMMY, -1, IERR )
612-
LWRK_SGESVD2 = RDUMMY(1)
612+
LWRK_SGESVD2 = INT( RDUMMY(1) )
613613
CALL SORMLQ( 'R', 'N', N, N, N/2, U, LDU, RDUMMY,
614614
$ V, LDV, RDUMMY,-1,IERR )
615-
LWRK_SORMLQ = RDUMMY(1)
615+
LWRK_SORMLQ = INT( RDUMMY(1) )
616616
OPTWRK2 = MAX( LWRK_SGEQP3, N/2+LWRK_SGELQF,
617617
$ N/2+LWRK_SGESVD2, N/2+LWRK_SORMLQ )
618618
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )

‎SRC/zgesvdq.f

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -452,15 +452,15 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
452452
IF ( LQUERY ) THEN
453453
CALL ZGEQP3( M, N, A, LDA, IWORK, CDUMMY, CDUMMY, -1,
454454
$ RDUMMY, IERR )
455-
LWRK_ZGEQP3 = CDUMMY(1)
455+
LWRK_ZGEQP3 = INT( CDUMMY(1) )
456456
IF ( WNTUS .OR. WNTUR ) THEN
457457
CALL ZUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U,
458458
$ LDU, CDUMMY, -1, IERR )
459-
LWRK_ZUNMQR = CDUMMY(1)
459+
LWRK_ZUNMQR = INT( CDUMMY(1) )
460460
ELSE IF ( WNTUA ) THEN
461461
CALL ZUNMQR( 'L', 'N', M, M, N, A, LDA, CDUMMY, U,
462462
$ LDU, CDUMMY, -1, IERR )
463-
LWRK_ZUNMQR = CDUMMY(1)
463+
LWRK_ZUNMQR = INT( CDUMMY(1) )
464464
ELSE
465465
LWRK_ZUNMQR = 0
466466
END IF
@@ -478,7 +478,7 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
478478
IF ( LQUERY ) THEN
479479
CALL ZGESVD( 'N', 'N', N, N, A, LDA, S, U, LDU,
480480
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
481-
LWRK_ZGESVD = CDUMMY(1)
481+
LWRK_ZGESVD = INT( CDUMMY(1) )
482482
IF ( CONDA ) THEN
483483
OPTWRK = MAX( N+LWRK_ZGEQP3, N+LWCON, LWRK_ZGESVD )
484484
ELSE
@@ -501,7 +501,7 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
501501
CALL ZGESVD( 'O', 'N', N, N, A, LDA, S, U, LDU,
502502
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
503503
END IF
504-
LWRK_ZGESVD = CDUMMY(1)
504+
LWRK_ZGESVD = INT( CDUMMY(1) )
505505
IF ( CONDA ) THEN
506506
OPTWRK = N + MAX( LWRK_ZGEQP3, LWCON, LWRK_ZGESVD,
507507
$ LWRK_ZUNMQR )
@@ -526,7 +526,7 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
526526
CALL ZGESVD( 'N', 'O', N, N, A, LDA, S, U, LDU,
527527
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
528528
END IF
529-
LWRK_ZGESVD = CDUMMY(1)
529+
LWRK_ZGESVD = INT( CDUMMY(1) )
530530
IF ( CONDA ) THEN
531531
OPTWRK = N + MAX( LWRK_ZGEQP3, LWCON, LWRK_ZGESVD )
532532
ELSE
@@ -572,19 +572,19 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
572572
IF ( RTRANS ) THEN
573573
CALL ZGESVD( 'O', 'A', N, N, A, LDA, S, U, LDU,
574574
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
575-
LWRK_ZGESVD = CDUMMY(1)
575+
LWRK_ZGESVD = INT( CDUMMY(1) )
576576
OPTWRK = MAX(LWRK_ZGEQP3,LWRK_ZGESVD,LWRK_ZUNMQR)
577577
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
578578
OPTWRK = N + OPTWRK
579579
IF ( WNTVA ) THEN
580580
CALL ZGEQRF(N,N/2,U,LDU,CDUMMY,CDUMMY,-1,IERR)
581-
LWRK_ZGEQRF = CDUMMY(1)
581+
LWRK_ZGEQRF = INT( CDUMMY(1) )
582582
CALL ZGESVD( 'S', 'O', N/2,N/2, V,LDV, S, U,LDU,
583583
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
584-
LWRK_ZGESVD2 = CDUMMY(1)
584+
LWRK_ZGESVD2 = INT( CDUMMY(1) )
585585
CALL ZUNMQR( 'R', 'C', N, N, N/2, U, LDU, CDUMMY,
586586
$ V, LDV, CDUMMY, -1, IERR )
587-
LWRK_ZUNMQR2 = CDUMMY(1)
587+
LWRK_ZUNMQR2 = INT( CDUMMY(1) )
588588
OPTWRK2 = MAX( LWRK_ZGEQP3, N/2+LWRK_ZGEQRF,
589589
$ N/2+LWRK_ZGESVD2, N/2+LWRK_ZUNMQR2 )
590590
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )
@@ -594,19 +594,19 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
594594
ELSE
595595
CALL ZGESVD( 'S', 'O', N, N, A, LDA, S, U, LDU,
596596
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
597-
LWRK_ZGESVD = CDUMMY(1)
597+
LWRK_ZGESVD = INT( CDUMMY(1) )
598598
OPTWRK = MAX(LWRK_ZGEQP3,LWRK_ZGESVD,LWRK_ZUNMQR)
599599
IF ( CONDA ) OPTWRK = MAX( OPTWRK, LWCON )
600600
OPTWRK = N + OPTWRK
601601
IF ( WNTVA ) THEN
602602
CALL ZGELQF(N/2,N,U,LDU,CDUMMY,CDUMMY,-1,IERR)
603-
LWRK_ZGELQF = CDUMMY(1)
603+
LWRK_ZGELQF = INT( CDUMMY(1) )
604604
CALL ZGESVD( 'S','O', N/2,N/2, V, LDV, S, U, LDU,
605605
$ V, LDV, CDUMMY, -1, RDUMMY, IERR )
606-
LWRK_ZGESVD2 = CDUMMY(1)
606+
LWRK_ZGESVD2 = INT( CDUMMY(1) )
607607
CALL ZUNMLQ( 'R', 'N', N, N, N/2, U, LDU, CDUMMY,
608608
$ V, LDV, CDUMMY,-1,IERR )
609-
LWRK_ZUNMLQ = CDUMMY(1)
609+
LWRK_ZUNMLQ = INT( CDUMMY(1) )
610610
OPTWRK2 = MAX( LWRK_ZGEQP3, N/2+LWRK_ZGELQF,
611611
$ N/2+LWRK_ZGESVD2, N/2+LWRK_ZUNMLQ )
612612
IF ( CONDA ) OPTWRK2 = MAX( OPTWRK2, LWCON )

0 commit comments

Comments
 (0)