ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/fInfo.c
(Generate patch)

Comparing trunk/OOPSE/libmdtools/fInfo.c (file contents):
Revision 632 by chuckv, Thu Jul 17 19:29:09 2003 UTC vs.
Revision 747 by gezelter, Fri Sep 5 21:28:52 2003 UTC

# Line 1 | Line 1
1   /* Provides a fortran - c interface for info writer system.
2   */
3   #include <string.h>
4 + #include "config.h"
5  
6   #include "simError.h"
7  
8  
9 < void c_info_(char *message, int len);
10 < void c_warning_(char *message, int len);
11 < void c_error_(char *message, int len);
9 > void F90_FUNC_(c_info, C_INFO) (char *message, int len);
10 > void F90_FUNC_(c_warning, C_WARNING) (char *message, int len);
11 > void F90_FUNC_(c_error, C_ERROR) (char *message, int len);
12  
13  
14 < void c_info_(char *message, int len){
14 > void F90_FUNC_(c_info, C_INFO) (char *message, int len){
15  
16    strcpy(painCave.errMsg,message);
17    painCave.isFatal = 0;
18   }
19  
20 < void c_warning_(char *message, int len){
20 > void F90_FUNC_(c_warning, C_WARNING) (char *message, int len){
21  
22    strcpy(painCave.errMsg,message);
23    painCave.isFatal = 0;
24  
25   }
26  
27 < void c_error_(char *message,int len){
27 > void F90_FUNC_(c_error, C_ERROR) (char *message,int len){
28  
29    strcpy(painCave.errMsg,message);
30    painCave.isFatal = 1;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines