51extern GtkWidget *
work_menu (
int p,
int c);
66 str = g_strdup_printf (
"analyze.%d", i);
123 if (this_proj -> natomes && this_proj -> analysis)
125 if (this_proj -> cell.has_a_box)
127 if (this_proj -> analysis[
GDR]) this_proj -> analysis[
GDR] -> avail_ok = TRUE;
128 if (this_proj -> analysis[
SKD]) this_proj -> analysis[
SKD] -> avail_ok = TRUE;
129 if (this_proj -> analysis[
SQD] && this_proj -> analysis[
GDR]) this_proj -> analysis[
SQD] -> avail_ok = this_proj -> analysis[
GDR] -> calc_ok;
130 if (this_proj -> analysis[
GDK] && this_proj -> analysis[
SKD]) this_proj -> analysis[
GDK] -> avail_ok = this_proj -> analysis[
SKD] -> calc_ok;
131 if (this_proj -> steps > 1 && this_proj -> analysis[
SKT]) this_proj -> analysis[
SKT] -> avail_ok = TRUE;
135 if (this_proj -> analysis[
GDR]) this_proj -> analysis[
GDR] -> avail_ok = FALSE;
136 if (this_proj -> analysis[
SQD]) this_proj -> analysis[
SQD] -> avail_ok = FALSE;
137 if (this_proj -> analysis[
SKD]) this_proj -> analysis[
SKD] -> avail_ok = FALSE;
138 if (this_proj -> analysis[
GDK]) this_proj -> analysis[
GDK] -> avail_ok = FALSE;
140 if (this_proj -> analysis[
BND]) this_proj -> analysis[
BND] -> avail_ok = TRUE;
141 if (this_proj -> analysis[
ANG]) this_proj -> analysis[
ANG] -> avail_ok = TRUE;
142 if (this_proj -> analysis[
RIN]) this_proj -> analysis[
RIN] -> avail_ok = TRUE;
143 if (this_proj -> analysis[
CHA]) this_proj -> analysis[
CHA] -> avail_ok = TRUE;
144 if (this_proj -> analysis[
SPH]) this_proj -> analysis[
SPH] -> avail_ok = TRUE;
145 if (this_proj -> steps > 1 && this_proj -> analysis[
MSD]) this_proj -> analysis[
MSD] -> avail_ok = TRUE;
147 else if (this_proj -> analysis)
152 if (this_proj -> analysis[i]) this_proj -> analysis[i] -> avail_ok = FALSE;
165 g_debug (
"UPDATE_PROJECT: to update");
208 g_debug (
"UPDATE_PROJECT: updated");
258 errp = g_strdup_printf (_(
"Impossible to update project: %s\n"),
active_project -> name);
Binding to the Fortran90 subroutines.
void read_chem_(double *, double *, double *, double *)
void read_data_(int *, int *)
void prep_spec_(double *, int *, int *)
void lattice_(int *, int *, double[3][3], double[3], double[3], int *, int *, int *)
int alloc_data_(int *, int *, int *)
void to_read_pos()
send atomic coordinates to Fortran90
Callback declarations for main window.
void fill_tool_model()
fill the tool window tree model
integer(kind=c_int) function chemistry()
GSimpleAction * edition_actions[3]
GtkApplication * AtomesApp
gboolean atomes_render_image
int * allocint(int val)
allocate an int * pointer
Global variable declarations Global convenience function declarations Global data structure defin...
void add_analysis_action(int act)
add action to the main window action map
coord_info * active_coord
atomes_action edition_acts[]
chemical_data * active_chem
gchar * prepare_for_title(gchar *init)
prepare a string for a window title, getting rid of all markup
void cutoffsend()
send cutoffs to Fortran90
void remove_action(gchar *action_name)
add action from the main window action map
project * get_project_by_id(int p)
get project pointer using id number
void clean_view()
clean the main window
void show_error(char *error, int val, GtkWidget *win)
show error message
Messaging function declarations.
Function declarations for reading atomes project file Function declarations for saving atomes proje...
void update_analysis_availability(project *this_proj)
update analysis availability for a target projet
void opengl_project_changed(int id)
change the OpenGL project
void active_project_changed(int id)
change the active project
void prep_calc_actions()
prepare analysis widgets
GtkWidget * work_menu(int p, int c)
create the workspace popup menu
int update_project()
update project: send data to Fortran90, and update calculation interactors
void correct_this_window_title(GtkWidget *win, gchar *str)
use new title for GtkWindow, providing it exists
Function declarations for workspace managment.