24char facto_ini_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Coef/FFT991/facto_ini.C,v 1.5 2014/10/15 12:48:22 j_novak Exp $" ;
95int *facto_ini(
int n )
101static int *table_facto[NMAX] ;
102static int nwork = 0 ;
103static int tbn[NMAX] ;
104static int trois = 3 ;
113 for ( i=0 ; i < nwork ; i++ ) {
114 if ( tbn[i] == n ) indice = i ;
119 if ( nwork >= NMAX ) {
120 cout <<
"facto_ini : nwork >= NMAX !" << endl ;
123 indice = nwork ; nwork++ ; tbn[indice] = n ;
125 table_facto[indice] = (
int *) malloc(
sizeof(
int) * 20 ) ;
127 if ( table_facto[indice] == 0 ) {
128 cout <<
"facto_ini : malloc error !" << endl ;
132 F77_fax( table_facto[indice], &n, &trois ) ;
138 return table_facto[indice] ;