1 |
|
2 |
c------------------------------------------------------------------------ |
3 |
c common to pass some variable from C++ to FORTRAN routines |
4 |
c------------------------------------------------------------------------ |
5 |
|
6 |
|
7 |
character*256 c2f_path |
8 |
integer c2f_pathlen |
9 |
integer c2f_error |
10 |
cc integer c2f_loaded |
11 |
common/path/c2f_path,c2f_pathlen,c2f_error!,c2f_loaded |
12 |
|
13 |
cc character*256 b_path |
14 |
cc integer b_pathlen |
15 |
cc integer b_loaded |
16 |
cc integer b_error |
17 |
cc common/bpath/b_path,b_pathlen,b_loaded,b_error |