main.c

Go to the documentation of this file.

/*
%M This module contains the Main driver for the Relax program.
%a Joao Luiz Elias Campos.
%d September 2nd, 1998.
%r $Id: main.c,v 1.1 2004/06/22 05:29:59 joaoluiz Exp $
%w (C) COPYRIGHT 1995-1996, Eduardo Nobre Lages.
   (C) COPYRIGHT 1997-1999, Joao Luiz Elias Campos.
   All Rights Reserved
   Duplication of this program or any part thereof without the express
   written consent of the author is prohibited.
 *
 *   Modified:    08-Aug-05    Alexandre A. Del Savio
 *     Criada a funcao RelaxInit e modificada o nome da funcao
 *     main para RelaxRun.
 *
 *   Modified:    13-Sep-05    Alexandre A. Del Savio
 *     Criada a funcao RelaxReset.
 *
 *   Modified:    16-Dez-05    Juan Pablo Ibañez
 *     Modificada a função RelaxInit, onde incluiu-se o parâmetro delta
 *     na função count_it.
 *
 *   Modified:    09-Jan-06    Juan Pablo Ibañez
 *     Modificada a função RelaxInit, onde incluiu-se como parâmetro 
 *     o ponteiro de função fposgauge para atualização do gauge de
 *     geração do arquivo relax.pos.
 *
 *   Modified:    22-Fev-06    Juan Pablo Ibañez
 *     Modificada a funcão RelaxRun, onde incluiu-se o retorno ao Recon
 *     no caso de erro durante a rodagem do Relax.
 */

/*
** ------------------------------------------------------------------------
** Global variables and symbols:
*/
#include <stdio.h>
#include <time.h>

#include "relax.h"
#include "rui.h"
#include "rio.h"
#include "drv.h"
#include "alg.h"
#include "nfi.h" 


/*
** ------------------------------------------------------------------------
** Local variables and symbols:
*/

/*
** ------------------------------------------------------------------------
** Local functions:
*/

/*
** ------------------------------------------------------------------------
** Public functions:
*/

/*
%F This function is the Main driver for the Relax program.
*/
#if 0
int main( int argc, char *argv[] )
#else
int RelaxRun( int argc, char *argv[] )
#endif
{
 unsigned long int i_time = time( NULL );       
#if 1
 UI_State *R = NULL;
#endif

/* Open input file
 */
 if( !IoOpenFiles(argc, argv) ) return 0;

/* Read input and output files
 */
 if( !IoReadFile() ) return 0;

/* Start user interface.
 */
#if 0
 R = UIStart(argc, argv);
#endif

/* Process analysis
 */
 if( !DrvAnalysis(R, DrvObj) ) return 0;

/* Write result file
 */

 if( !IoWriteFile() ) return 0;

 printf( "\n\tTotal analysis time...........: %lu segs\n\n", (time(NULL)-i_time) );

/* Close all files
 */
 IoCloseFiles();

 return 1;
 
} /*End of Main */


/*
**  Função de atualização do gauge durante a análise.
*/

void RelaxInit ( void(*count_it)(int n_iter, double err, int loadstep), 
                 void(*fposgauge)(double gauge),void(*fstop)(int *stop) ) 
{
  _count_it = count_it;
  _fposgauge = fposgauge;
  _fstop = fstop;
}

/*
**  Reset Relax.
*/

void RelaxReset( void )
{
  AlgReset();
  IoReset();
}


/* =======================================================  End of File  */

---