PRACE NPT

#include <stdio.h>

#include <stdlib.h>

double cclock( void );

int    check( double a[], int nsize );

void   prthead( void );

double rand64( void );

void   ranfil( double a[], int nsize );

void   state( char * );

int main()

{ 

   int      nsize;

   int      ok, ops;

   double   *a;

   double   mops, time;

   FILE     *inl;

// ------------------------------------------------------------------------

   state( "mod2h" );

   prthead();

   inl = fopen( "mod2h.in", "r" );

   while( ( fscanf( inl, "%d\n", &nsize ) != EOF ) ) {

      a = malloc( nsize*sizeof( double ) );

      time = cclock();

      ranfil( a, nsize );

      time = cclock() - time;

      ok   = check( a, nsize );

      ops  = 36*nsize;

      mops = 1.0e-6*(double)ops/time;

      prtspeed( nsize, time, mops, ok ); 

      free( a );

   }

   printf( "----------------------------------------\n" );

}