home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / hdf3_2r2.lha / HDF3.2r2 / src / herrf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-10-28  |  2.8 KB  |  85 lines
  1. /***************************************************************************
  2. *
  3. *
  4. *                         NCSA HDF version 3.2r2
  5. *                            October 30, 1992
  6. *
  7. * NCSA HDF Version 3.2 source code and documentation are in the public
  8. * domain.  Specifically, we give to the public domain all rights for future
  9. * licensing of the source code, all resale rights, and all publishing rights.
  10. *
  11. * We ask, but do not require, that the following message be included in all
  12. * derived works:
  13. *
  14. * Portions developed at the National Center for Supercomputing Applications at
  15. * the University of Illinois at Urbana-Champaign, in collaboration with the
  16. * Information Technology Institute of Singapore.
  17. *
  18. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  19. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  20. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  21. *
  22. ****************************************************************************
  23. */
  24.  
  25. #ifdef RCSID
  26. static char RcsId[] = "@(#)$Revision: 1.2 $";
  27. #endif
  28. /*
  29. $Header: /hdf/hdf/v3.2r2/src/RCS/herrf.c,v 1.2 1992/09/11 14:15:04 koziol beta koziol $
  30.  
  31. $Log: herrf.c,v $
  32.  * Revision 1.2  1992/09/11  14:15:04  koziol
  33.  * Changed Fortran stubs' parameter passing to use a new typedef, intf,
  34.  * which should be typed to the size of an INTEGER*4 in whatever Fortran
  35.  * compiler the C functions need to be compatible with.  (This is mostly
  36.  * for the PC and possibly for the Mac)
  37.  *
  38.  * Revision 1.1  1992/08/25  21:40:44  koziol
  39.  * Initial revision
  40.  *
  41. */
  42. /*-----------------------------------------------------------------------------
  43.  * File:    herrF.c
  44.  * Purpose: C stubs for error-handling Fortran routines
  45.  * Invokes: herr.c.
  46.  * Contents: 
  47.  *     heprnt_:    Call HEprint to print error message
  48.  * Remarks: none
  49.  *---------------------------------------------------------------------------*/
  50.  
  51. #include "hdf.h"
  52.  
  53. #ifndef HERR_FNAMES
  54. #   define HERR_FNAMES
  55. #ifdef DF_CAPFNAMES
  56. #   define nheprnt   FNAME(HEPRNT)
  57. #else
  58. #   define nheprnt   FNAME(heprnt)
  59. #endif /* DF_CAPFNAMES */
  60. #endif /* HERR_FNAMES */
  61.  
  62. /*-----------------------------------------------------------------------------
  63.  * Name:    heprnt
  64.  * Purpose: call HEprint to print error messages, starting from top of stack
  65.  * Inputs:  print_levels: number of levels to print
  66.  * Returns: 0 on success, FAIL on failure 
  67.  * Users:   Fortran stub routine
  68.  * Invokes: HEprint
  69.  * Remarks: This routine has one less parameter than HEprint, because it
  70.  *          doesn't allow the user to specify the stream to print to.
  71.  *          Instead it prints automatically to stdout.
  72.  *---------------------------------------------------------------------------*/
  73.  
  74.     FRETVAL(VOID)
  75. #ifdef PROTOTYPE
  76. nheprnt(intf *print_levels)
  77. #else
  78. nheprnt(print_levels)
  79.     intf *print_levels;
  80. #endif /* PROTOTYPE */
  81. {
  82.     HEprint(stderr, *print_levels);
  83. }
  84.  
  85.