fix prototype
This commit is contained in:
@@ -887,7 +887,7 @@ L40:
|
||||
/* Subroutine */ int stest1_(real* scomp1, real* strue1, real* ssize, real* sfac)
|
||||
{
|
||||
static real scomp[1], strue[1];
|
||||
extern /* Subroutine */ int stest_(int*, real*, real*, real*, real*);
|
||||
extern /* Subroutine */ int stest_(integer*, real*, real*, real*, real*);
|
||||
|
||||
/* ************************* STEST1 ***************************** */
|
||||
|
||||
|
||||
Reference in New Issue
Block a user