fix prototype

This commit is contained in:
Martin Kroeker
2023-10-08 13:38:39 +02:00
committed by GitHub
parent 769a58e9d1
commit d8126c76e7

View File

@@ -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 ***************************** */