|
|
@@ -969,7 +969,7 @@ real *sfac; |
|
|
1.17 }; |
|
|
1.17 }; |
|
|
|
|
|
|
|
|
/* Local variables */ |
|
|
/* Local variables */ |
|
|
extern /* Subroutine */ srottest_(); |
|
|
|
|
|
|
|
|
extern /* Subroutine */ void srottest_(); |
|
|
static integer i__, k, ksize; |
|
|
static integer i__, k, ksize; |
|
|
extern /* Subroutine */ int stest_(), srotmtest_(); |
|
|
extern /* Subroutine */ int stest_(), srotmtest_(); |
|
|
static integer ki, kn; |
|
|
static integer ki, kn; |
|
|
|