@@ -380,7 +380,7 @@ static doublereal c_b43 = 1.;
380
380
static integer i__ ;
381
381
extern /* Subroutine */ int ctest_ (integer * , doublecomplex * , doublecomplex * , doublecomplex * , doublereal * );
382
382
static doublecomplex mwpcs [5 ], mwpct [5 ];
383
- extern /* Subroutine */ int zscaltest_ (integer * , doublereal * , doublecomplex * , integer * ), itest1_ (integer * , integer * ), stest1_ (doublereal * , doublereal * , doublereal * , doublereal * );
383
+ extern /* Subroutine */ int zscaltest_ (integer * , doublecomplex * , doublecomplex * , integer * ), itest1_ (integer * , integer * ), stest1_ (doublereal * , doublereal * , doublereal * , doublereal * );
384
384
static doublecomplex cx [8 ];
385
385
extern doublereal dznrm2test_ (integer * , doublecomplex * , integer * );
386
386
static integer np1 ;
@@ -595,7 +595,7 @@ static doublereal c_b43 = 1.;
595
595
static integer ki ;
596
596
extern /* Subroutine */ int zdotutest_ (integer * , doublecomplex * , integer * , doublecomplex * , integer * , doublecomplex * ), zswaptest_ (integer * , doublecomplex * , integer * , doublecomplex * , integer * );
597
597
static integer kn ;
598
- extern /* Subroutine */ int zaxpytest_ (integer * , doublereal * , doublecomplex * , integer * , doublecomplex * , integer * );
598
+ extern /* Subroutine */ int zaxpytest_ (integer * , doublecomplex * , doublecomplex * , integer * , doublecomplex * , integer * );
599
599
static doublecomplex cx [7 ], cy [7 ];
600
600
static integer mx , my ;
601
601
0 commit comments