--- trunk/OOPSE/libmdtools/fInfo.c 2003/07/17 19:29:09 632 +++ trunk/OOPSE/libmdtools/fInfo.c 2003/09/05 21:28:52 747 @@ -1,29 +1,30 @@ /* Provides a fortran - c interface for info writer system. */ #include +#include "config.h" #include "simError.h" -void c_info_(char *message, int len); -void c_warning_(char *message, int len); -void c_error_(char *message, int len); +void F90_FUNC_(c_info, C_INFO) (char *message, int len); +void F90_FUNC_(c_warning, C_WARNING) (char *message, int len); +void F90_FUNC_(c_error, C_ERROR) (char *message, int len); -void c_info_(char *message, int len){ +void F90_FUNC_(c_info, C_INFO) (char *message, int len){ strcpy(painCave.errMsg,message); painCave.isFatal = 0; } -void c_warning_(char *message, int len){ +void F90_FUNC_(c_warning, C_WARNING) (char *message, int len){ strcpy(painCave.errMsg,message); painCave.isFatal = 0; } -void c_error_(char *message,int len){ +void F90_FUNC_(c_error, C_ERROR) (char *message,int len){ strcpy(painCave.errMsg,message); painCave.isFatal = 1;