arcanis/moldyn
1
0
Fork 0
mirror of https://github.com/arcan1s/moldyn.git synced 2025-07-15 06:45:50 +00:00
Code Issues Projects Releases Wiki Activity

fixed agl

Browse Source
This commit is contained in:
arcan1s
2014-01-28 03:45:36 +04:00
parent d88f3b317f
commit 0714cb6541
3 changed files with 104 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
mathmech/agl/src/add_main.c
View File

@ -5,32 +5,16 @@
#include <stdio.h>
#include <mathmech/messages.h>
#include <mathmech/var_types.h>
/**
* @fn error_checking
*/
int error_checking (const char *aglinp, const float *cell, const char *input,
int error_checking (const char *aglinp, const system_info _system_info, const char *input,
const char *output)
/**
* @brief function that checks errors in input variables
* @code
* error_checking (aglinp, cell, input, output);
* @endcode
*
* @param aglinp agglomerate file name
* @param cell massive of cell size
* @param input input file name
* @param output output file name
*
* @return 11 - error in 'cell'
* @return 12 - error in 'input'
* @return 13 - error in 'output'
* @return 14 - error in 'aglinp'
* @return 0 - exit without errors
*/
{
if ((cell[0] == 0.0) || (cell[1] == 0.0) || (cell[2] == 0.0))
if ((_system_info.cell[0] == 0.0) || (_system_info.cell[1] == 0.0) || (_system_info.cell[2] == 0.0))
return 11;
if (input[0] == '#')
return 12;
@ -48,21 +32,6 @@ int error_checking (const char *aglinp, const float *cell, const char *input,
*/
int print_message (const int quiet, FILE *std_output, const int log, FILE *f_log,
const int mode, const char *str)
/**
* @brief function that prints message in log and stdout
* @code
* print_message (quiet, stdout, log, f_log, 0, str);
* @endcode
*
* @param quiet status of quiet-mode
* @param std_output stdout
* @param log status of log-mode
* @param f_log log file
* @param mode number of message in "messages.c"
* @param str additional text in message
*
* @return 0 - exit without errors
*/
{
if ((quiet != 1) && (std_output != stderr))
message (0, mode, str, std_output);
@ -76,28 +45,14 @@ int print_message (const int quiet, FILE *std_output, const int log, FILE *f_log
/**
* @fn set_defaults
*/
int set_defaults (char *aglinp, float *cell, char *input, int *log, char *output, int *quiet)
/**
* @brief function that sets default values of variables
* @code
* set_defaults (aglinp, cell, input, &log, output, &quiet);
* @endcode
*
* @param aglinp agglomerate file name
* @param cell massive of cell size
* @param input mask of trajectory files
* @param log status of log-mode
* @param output output file name
* @param quiet status of quiet-mode
*
* @return 0 - exit without errors
*/
int set_defaults (char *aglinp, system_info *_system_info, char *input, int *log,
char *output, int *quiet)
{
int i;
aglinp[0] = '#';
for (i=0; i<3; i++)
cell[i] = 0.0;
(*_system_info).cell[i] = 0.0;
input[0] = '#';
*log = 0;
output[0] = '#';