source: trunk/src/core/RpUtilsFStubs.c @ 3177

Last change on this file since 3177 was 3177, checked in by mmc, 12 years ago

Updated all of the copyright notices to reference the transfer to
the new HUBzero Foundation, LLC.

File size: 1.1 KB
Line 
1/*
2 * ----------------------------------------------------------------------
3 *  INTERFACE: Fortran Rappture Utils Stub Functions
4 *
5 * ======================================================================
6 *  AUTHOR:  Derrick Kearney, Purdue University
7 *  Copyright (c) 2004-2012  HUBzero Foundation, LLC
8 *
9 *  See the file "license.terms" for information on usage and
10 *  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 * ======================================================================
12 */
13#ifdef __cplusplus
14    extern "C" {
15#endif
16
17
18/**********************************************************/
19
20int
21rp_utils_progress_ ( int* percent, char* text, int text_len ) {
22    return rp_utils_progress (percent,text,text_len);
23}
24
25int
26rp_utils_progress__ ( int* percent, char* text, int text_len ) {
27    return rp_utils_progress (percent,text,text_len);
28}
29
30int
31RP_UTILS_PROGRESS ( int* percent, char* text, int text_len ) {
32    return rp_utils_progress (percent,text,text_len);
33}
34
35/**********************************************************/
36/**********************************************************/
37
38#ifdef __cplusplus
39    }
40#endif
Note: See TracBrowser for help on using the repository browser.