home *** CD-ROM | disk | FTP | other *** search
/ Photo CD Demo 1 / Demo.bin / hdf / unix / hdf3_2r2 / src / constant.f next >
Encoding:
Text File  |  1992-10-29  |  11.9 KB  |  401 lines
  1. C***************************************************************************
  2. C
  3. C
  4. C                         NCSA HDF version 3.2r2
  5. C                            October 30, 1992
  6. C
  7. C NCSA HDF Version 3.2 source code and documentation are in the public
  8. C domain.  Specifically, we give to the public domain all rights for future
  9. C licensing of the source code, all resale rights, and all publishing rights.
  10. C
  11. C We ask, but do not require, that the following message be included in all
  12. C derived works:
  13. C
  14. C Portions developed at the National Center for Supercomputing Applications at
  15. C the University of Illinois at Urbana-Champaign, in collaboration with the
  16. C Information Technology Institute of Singapore.
  17. C
  18. C THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  19. C SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  20. C WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  21. C
  22. C***************************************************************************
  23.  
  24. C
  25. C $Header: /hdf/hdf/v3.2r2/src/RCS/constant.f,v 1.2 1992/10/12 18:19:02 koziol beta koziol $
  26. C
  27. C $Log: constant.f,v $
  28. c Revision 1.2  1992/10/12  18:19:02  koziol
  29. c Updated for v3.2r2 release
  30. c
  31. c Revision 1.1  1992/08/25  21:40:44  koziol
  32. c Initial revision
  33. c
  34. C
  35. C
  36. C *-----------------------------------------------------------------------------
  37. C * File:     constant.f
  38. C * Purpose:    Fortran header file for HDF routines
  39. C * Contents: 
  40. C *     Tag definitions
  41. C *     Error return codes
  42. C *        Logical constants
  43. C * Remarks: This file can be included with Fortran user programs.  As a
  44. C *          general rule, don't use DFNT constants that don't include a
  45. C *          number in their name.  E.g., don't use DFNT_FLOAT, use
  46. C *          DFNT_FLOAT32 or DFNT_FLOAT64.  The DFNT constants that don't
  47. C *          include numbers are for backward compatibility only.  Also,
  48. C *          there are no current plans to support 128-bit number types.
  49. C *          For more information about constants in this file, see the
  50. C *          equivalent constant declarations in the C include file 'hdf.h'
  51. C *--&-------------------------------------------------------------------XXXXXX*
  52.  
  53.  
  54. C    Error Return Codes 
  55.  
  56.       integer     DFE_NOERROR,   DFE_NONE,        DFE_FNF,
  57.      *          DFE_DENIED,    DFE_ALROPEN,     DFE_TOOMANY,
  58.      *          DFE_BADNAME,   DFE_BADACC,      DFE_BADOPEN,
  59.      *        DFE_NOTOPEN,   DFE_CANTCLOSE,   DFE_DFNULL,  
  60.      *        DFE_ILLTYPE,   DFE_UNSUPPORTED, DFE_BADDDLIST,
  61.      *        DFE_NOTDFFILE, DFE_SEEDTWICE,   DFE_NOSPACE,
  62.      *        DFE_NOSUCHTAG, DFE_READERROR
  63.  
  64.       parameter(DFE_NOERROR          =   0,
  65.      *        DFE_NONE              =   0,
  66.      *        DFE_FNF              =  -1,
  67.      *        DFE_DENIED           =  -2,
  68.      *        DFE_ALROPEN          =  -3,
  69.      *        DFE_TOOMANY          =  -4,
  70.      *        DFE_BADNAME          =  -5,
  71.      *        DFE_BADACC           =  -6,
  72.      *        DFE_BADOPEN           =  -7,
  73.      *        DFE_NOTOPEN          =  -8,
  74.      *        DFE_CANTCLOSE        =  -9,
  75.      *        DFE_DFNULL             = -10,
  76.      *        DFE_ILLTYPE          = -11,
  77.      *        DFE_UNSUPPORTED      = -12,
  78.      *        DFE_BADDDLIST        = -13,
  79.      *        DFE_NOTDFFILE        = -14,
  80.      *        DFE_SEEDTWICE        = -15,
  81.      *        DFE_NOSPACE          = -16,
  82.      *        DFE_NOSUCHTAG          = -17,
  83.      *        DFE_READERROR        = -18)
  84.  
  85.       integer    DFE_WRITEERROR,  DFE_SEEKERROR,   DFE_NOFREEDD,
  86.      *          DFE_BADTAG,      DFE_BADREF,      DFE_RDONLY,
  87.      *          DFE_BADCALL,     DFE_BADPTR,      DFE_BADLEN,
  88.      *          DFE_BADSEEK,     DFE_NOMATCH,     DFE_NOTINSET,
  89.      *          DFE_BADDIM,      DFE_BADOFFSET,   DFE_BADSCHEME,
  90.      *          DFE_NODIM,       DFE_NOTENOUGH,   DFE_NOVALS,
  91.      *          DFE_CORRUPT,     DFE_BADFP
  92.  
  93.       parameter(DFE_WRITEERROR           = -19,
  94.      *          DFE_SEEKERROR            = -20,
  95.      *          DFE_NOFREEDD         = -21,
  96.      *          DFE_BADTAG           = -22,
  97.      *          DFE_BADREF           = -23,
  98.      *          DFE_RDONLY           = -24,
  99.      *          DFE_BADCALL          = -25,
  100.      *          DFE_BADPTR           = -26,
  101.      *          DFE_BADLEN           = -27,
  102.      *          DFE_BADSEEK          = -28,
  103.      *          DFE_NOMATCH          = -29,
  104.      *          DFE_NOTINSET         = -30,
  105.      *          DFE_BADDIM           = -31,
  106.      *          DFE_BADOFFSET        = -32,
  107.      *          DFE_BADSCHEME        = -33,
  108.      *          DFE_NODIM            = -34,
  109.      *          DFE_NOTENOUGH        = -35,
  110.      *          DFE_NOVALS               = -36,
  111.      *          DFE_CORRUPT              = -37,
  112.      *          DFE_BADFP                = -38)
  113.  
  114.       integer    DFE_NOREF,       DFE_BADDATATYPE, DFE_BADMCTYPE,
  115.      *          DFE_BADNUMTYPE,  DFE_BADORDER,    DFE_ARGS,
  116.      *          DFE_INTERNAL,    DFE_DUPDD,       DFE_CANTMOD,
  117.      *          DFE_RANGE,       DFE_BADTABLE,    DFE_BADSDG,
  118.      *          DFE_BADNDG,      DFE_BADFIELDS,   DFE_NORESET,
  119.      *          DFE_NOVS,        DFE_VGSIZE,      DFE_DIFFFILES,
  120.      *          DFE_VTAB,        DFE_BADAID
  121.  
  122.       parameter(DFE_NOREF                = -39,
  123.      *          DFE_BADDATATYPE          = -40,
  124.      *          DFE_BADMCTYPE            = -41,
  125.      *          DFE_BADNUMTYPE           = -42,
  126.      *          DFE_BADORDER             = -43,
  127.      *          DFE_ARGS                 = -44,
  128.      *          DFE_INTERNAL             = -45,
  129.      *          DFE_DUPDD                = -46,
  130.      *          DFE_CANTMOD              = -47,
  131.      *          DFE_RANGE                = -48,
  132.      *          DFE_BADTABLE             = -49,
  133.      *          DFE_BADSDG               = -50,
  134.      *          DFE_BADNDG               = -51,
  135.      *          DFE_BADFIELDS            = -52,
  136.      *          DFE_NORESET              = -53,
  137.      *          DFE_NOVS                 = -54,
  138.      *          DFE_VGSIZE               = -55,
  139.      *          DFE_DIFFFILES            = -56,
  140.      *          DFE_VTAB                 = -57,
  141.      *          DFE_BADAID               = -58)
  142.  
  143.       integer   DFE_OPENAID,    DFE_BADCONV
  144.  
  145.       parameter(DFE_OPENAID              = -59,
  146.      *          DFE_BADCONV              = -60)
  147.  
  148. C    Logical Constants
  149.  
  150.       integer     DFACC_READ, DFACC_WRITE, DFACC_CREATE, DFACC_ALL  
  151.  
  152.       parameter(DFACC_READ            = 1,
  153.      *        DFACC_WRITE           = 2,
  154.      *        DFACC_CREATE          = 4,
  155.      *        DFACC_ALL             = 7)
  156.  
  157. c    Constants for DFSDsetorder
  158.  
  159.       integer     DFO_FORTRAN, DFO_C
  160.      *        
  161.  
  162.       parameter(DFO_FORTRAN            = 1,
  163.      *        DFO_C                  = 2)
  164.  
  165. c    Definitions of storage convention
  166.  
  167.       integer    DFNTF_IEEE, DFNTF_VAX, DFNTF_CRAY, DFNTF_PC   
  168.      *        
  169.  
  170.       parameter(DFNTF_IEEE             = 1,
  171.      *        DFNTF_VAX              = 2,
  172.      *        DFNTF_CRAY             = 3,
  173.      *        DFNTF_PC               = 4)
  174.  
  175. c       Masks for types
  176.  
  177.       integer   DFNT_HDF, DFNT_NATIVE, DFNT_CUSTOM
  178.  
  179.       parameter(DFNT_HDF                 = 0,
  180.      *          DFNT_NATIVE              = 4096,
  181.      *          DFNT_CUSTOM              = 8192)
  182.  
  183. c    Number type info codes 
  184.  
  185.       integer    DFNT_NONE, DFNT_QUERY, DFNT_VERSION
  186.  
  187.       parameter(DFNT_NONE    = 0,
  188.      *        DFNT_QUERY    = 0,
  189.      *          DFNT_VERSION    = 1)
  190.  
  191.       integer    DFNT_FLOAT32, DFNT_FLOAT, DFNT_FLOAT64,
  192.      *        DFNT_DOUBLE,  DFNT_FLOAT128
  193.  
  194.       parameter(DFNT_FLOAT32    = 5,
  195.      *        DFNT_FLOAT    = 5,
  196.      *        DFNT_FLOAT64    = 6,
  197.      *        DFNT_DOUBLE    = 6,
  198.      *        DFNT_FLOAT128    = 7)
  199.  
  200.       integer     DFNT_INT8,  DFNT_UINT8, 
  201.      *        DFNT_INT16, DFNT_UINT16,
  202.      *        DFNT_INT32, DFNT_UINT32, 
  203.      *      DFNT_INT64, DFNT_UINT64,
  204.      *      DFNT_INT128,DFNT_UINT128
  205.  
  206.       parameter(DFNT_INT8    = 20,
  207.      *        DFNT_UINT8    = 21,
  208.      *        DFNT_INT16    = 22,
  209.      *        DFNT_UINT16    = 23,
  210.      *        DFNT_INT32    = 24,
  211.      *        DFNT_UINT32    = 25,
  212.      *        DFNT_INT64    = 26,
  213.      *        DFNT_UINT64    = 27,
  214.      *        DFNT_INT128    = 28,
  215.      *        DFNT_UINT128    = 29)
  216.  
  217.       integer     DFNT_UCHAR8, DFNT_UCHAR, DFNT_CHAR8, 
  218.      *      DFNT_CHAR,   DFNT_CHAR16, DFNT_UCHAR16
  219.  
  220.       parameter(DFNT_UCHAR8    = 3,
  221.      *        DFNT_UCHAR    = 3,
  222.      *        DFNT_CHAR8    = 4,
  223.      *        DFNT_CHAR    = 4,
  224.      *        DFNT_CHAR16    = 42,
  225.      *        DFNT_UCHAR16    = 43)
  226.  
  227.       integer    DFNT_NFLOAT32, DFNT_NFLOAT, DFNT_NFLOAT64,
  228.      *        DFNT_NDOUBLE,  DFNT_NFLOAT128
  229.  
  230.       parameter(DFNT_NFLOAT32    = 4101,
  231.      *        DFNT_NFLOAT    = 4101,
  232.      *        DFNT_NFLOAT64    = 4102,
  233.      *        DFNT_NDOUBLE    = 4102,
  234.      *        DFNT_NFLOAT128    = 4103)
  235.  
  236.       integer     DFNT_NINT8,  DFNT_NUINT8, 
  237.      *        DFNT_NINT16, DFNT_NUINT16,
  238.      *        DFNT_NINT32, DFNT_NUINT32, 
  239.      *        DFNT_NINT64, DFNT_NUINT64,
  240.      *        DFNT_NINT128,DFNT_NUINT128
  241.  
  242.       parameter(DFNT_NINT8    = 4116,
  243.      *        DFNT_NUINT8    = 4117,
  244.      *        DFNT_NINT16    = 4118,
  245.      *        DFNT_NUINT16    = 4119,
  246.      *        DFNT_NINT32    = 4120,
  247.      *        DFNT_NUINT32    = 4121,
  248.      *        DFNT_NINT64    = 4122,
  249.      *        DFNT_NUINT64    = 4123,
  250.      *        DFNT_NINT128    = 4124,
  251.      *        DFNT_NUINT128    = 4125)
  252.  
  253.       integer     DFNT_NUCHAR8, DFNT_NUCHAR, DFNT_NCHAR8, 
  254.      *        DFNT_NCHAR,   DFNT_NCHAR16, DFNT_NUCHAR16
  255.  
  256.       parameter(DFNT_NUCHAR8    = 4099,
  257.      *        DFNT_NUCHAR    = 4099,
  258.      *        DFNT_NCHAR8    = 4100,
  259.      *        DFNT_NCHAR    = 4100,
  260.      *        DFNT_NCHAR16    = 4138,
  261.      *        DFNT_NUCHAR16    = 4139)
  262.  
  263. c    tags and refs
  264.  
  265.       integer     DFREF_WILDCARD, DFTAG_WILDCARD, DFTAG_NULL,
  266.      *        DFTAG_LINKED,   DFTAG_VERSION
  267.  
  268.       parameter(DFREF_WILDCARD    = 0,
  269.      *        DFTAG_WILDCARD    = 0,
  270.      *        DFTAG_NULL    = 1,
  271.      *        DFTAG_LINKED    = 20,
  272.      *        DFTAG_VERSION    = 30)
  273.  
  274. c    utility set
  275.  
  276.       integer    DFTAG_FID, DFTAG_FD,  DFTAG_TID, DFTAG_TD,
  277.      *        DFTAG_DIL, DFTAG_DIA, DFTAG_NT,  DFTAG_MT
  278.  
  279.       parameter(DFTAG_FID    = 100,
  280.      *        DFTAG_FD    = 101,
  281.      *        DFTAG_TID    = 102,
  282.      *        DFTAG_TD    = 103,
  283.      *        DFTAG_DIL    = 104,
  284.      *        DFTAG_DIA    = 105,
  285.      *        DFTAG_NT    = 106,
  286.      *        DFTAG_MT    = 107)
  287.  
  288. c     raster-8 set 
  289.  
  290.       integer    DFTAG_ID8, DFTAG_IP8, DFTAG_RI8,
  291.      *        DFTAG_CI8, DFTAG_II8
  292.  
  293.       parameter(DFTAG_ID8    = 200,
  294.      *        DFTAG_IP8    = 201,
  295.      *        DFTAG_RI8    = 202,
  296.      *        DFTAG_CI8    = 203,
  297.      *        DFTAG_II8    = 204)
  298.  
  299. c    Raster Image set
  300.  
  301.       integer    DFTAG_ID, DFTAG_LUT, DFTAG_RI, DFTAG_CI
  302.  
  303.       parameter(DFTAG_ID    = 300,
  304.      *        DFTAG_LUT    = 301,
  305.      *        DFTAG_RI    = 302,
  306.      *        DFTAG_CI    = 303)
  307.  
  308.       integer    DFTAG_RIG, DFTAG_LD,  DFTAG_MD, DFTAG_MA,
  309.      *        DFTAG_CCN, DFTAG_CFM, DFTAG_AR
  310.   
  311.       parameter(DFTAG_RIG    = 306,
  312.      *        DFTAG_LD    = 307,
  313.      *        DFTAG_MD    = 308,
  314.      *        DFTAG_MA    = 309,
  315.      *        DFTAG_CCN    = 310,
  316.      *        DFTAG_CFM    = 311,
  317.      *        DFTAG_AR    = 312)
  318.  
  319.       integer    DFTAG_DRAW, DFTAG_RUN, DFTAG_XYP, DFTAG_MTO
  320.  
  321.       parameter(DFTAG_DRAW    = 400,
  322.      *         DFTAG_RUN    = 401,
  323.      *        DFTAG_XYP    = 500,
  324.      *        DFTAG_MTO    = 501)
  325.  
  326. c    Tektronix 
  327.  
  328.       integer    DFTAG_T14, DFTAG_T105
  329.  
  330.       parameter(DFTAG_T14    = 602,
  331.      *        DFTAG_T105    = 603)
  332.  
  333. c    Scientific Data set 
  334.  
  335.       integer    DFTAG_SDG, DFTAG_SDD, DFTAG_SDS, DFTAG_SDL,
  336.      *      DFTAG_SDU, DFTAG_SDF, DFTAG_SDM, DFTAG_SDC,
  337.      *        DFTAG_SDT,DFTAG_SDLNK,DFTAG_NDG, 
  338.      *        DFTAG_BREQ,DFTAG_EREQ
  339.  
  340.       parameter(DFTAG_SDG    = 700,
  341.      *        DFTAG_SDD    = 701,
  342.      *        DFTAG_SD    = 702,
  343.      *        DFTAG_SDS    = 703,
  344.      *        DFTAG_SDL    = 704,
  345.      *        DFTAG_SDU    = 705,
  346.      *        DFTAG_SDF    = 706,
  347.      *        DFTAG_SDM    = 707,
  348.      *        DFTAG_SDC    = 708,
  349.      *        DFTAG_SDT    = 709,
  350.      *        DFTAG_SDLNK    = 710,
  351.      *        DFTAG_NDG    = 720,
  352.      *        DFTAG_BREQ    = 799,
  353.      *        DFTAG_EREQ    = 780)
  354.  
  355. c    VSets 
  356.  
  357.       integer    DFTAG_VG, DFTAG_VH, DFTAG_VS
  358.  
  359.       parameter(DFTAG_VG         = 1965,
  360.      *        DFTAG_VH    = 1962,
  361.      *        DFTAG_VS    = 1963)
  362.  
  363. c    compression schemes 
  364.  
  365.       integer    DFTAG_RLE, DFTAG_IMC, DFTAG_IMCOMP
  366.  
  367.       parameter(DFTAG_RLE       =11,
  368.      *        DFTAG_IMC       =12,
  369.      *        DFTAG_IMCOMP       =12)
  370.  
  371. c    SPECIAL CODES 
  372.  
  373.       integer    SPECIAL_LINKED, SPECIAL_EXT
  374.  
  375.       parameter(SPECIAL_LINKED     = 1,
  376.      *        SPECIAL_EXT     = 2)
  377.  
  378. c    PARAMETERS 
  379.  
  380.       integer    DF_MAXFNLEN
  381.  
  382.       parameter(DF_MAXFNLEN    = 256)
  383.  
  384. C-----------------------------------------------------------------------------
  385. C  Name:    bogusfunc
  386. C  Purpose: Make the Microsoft fortran compiler happy
  387. C  Inputs:  none
  388. C  Returns: none
  389. C  Users:   No one
  390. C  Invokes: nothing
  391. C  Remarks: stupid compiler
  392. C-----------------------------------------------------------------------------
  393.  
  394.       integer function bogusfunc
  395.  
  396.       bogusfunc = 0
  397.       return
  398.       end
  399.  
  400. c******************End of dfconstants.f***************************
  401.