Module DSCDEF

//******************************************************************
//		Lawrence Livermore National Laboratory
//******************************************************************
//  Description:
//
//	This module contains symbols definitions for
//	the VAX descriptor block data types and argument
//	classes.
//
//  Authors:	J.Allison C. Smart	(415) 423-0733
//		Lawrence Livermore National Laboratory
//		P.O.Box 5508  L-464
//		Livermore, Ca.  94550
//
//  Remarks:
//
//	This module is used in conjuction with VMS_Functions and
//	VMS_Proceudures to define and call VMS system services.
//
//  Revisions:
//
//  1.000   3-Oct-1981	JCS	Initial type in.
//******************************************************************

Declare

// Data Types

    dsc'$k_dtype_z=   0
    dsc'$k_dtype_v=   1
    dsc'$k_dtype_bu=  2
    dsc'$k_dtype_wu=  3
    dsc'$k_dtype_lu=  4
    dsc'$k_dtype_qu=  5
    dsc'$k_dtype_b=   6
    dsc'$k_dtype_w=   7
    dsc'$k_dtype_l=   8
    dsc'$k_dtype_q=   9
    dsc'$k_dtype_f=   10
    dsc'$k_dtype_d=   11
    dsc'$k_dtype_fc=  12
    dsc'$k_dtype_dc=  13
    dsc'$k_dtype_t=   14
    dsc'$k_dtype_nu=  15
    dsc'$k_dtype_nl=  16 
    dsc'$k_dtype_nlo= 17
    dsc'$k_dtype_nr=  18
    dsc'$k_dtype_nro= 19
    dsc'$k_dtype_nz=  20
    dsc'$k_dtype_p=   21
    dsc'$k_dtype_zi=  22
    dsc'$k_dtype_zem= 23

// Argument Descriptors

    dsc'$k_class_z=  0
    dsc'$k_class_s=  1
    dsc'$k_class_d=  2
    dsc'$k_class_v=  3
    dsc'$k_class_a=  4
    dsc'$k_class_p=  5
    dsc'$k_class_pi= 6
    dsc'$k_class_j=  7
    dsc'$k_class_ji= 8

enddeclare


Export

// Data types

    dsc'$k_dtype_z,
    dsc'$k_dtype_v,
    dsc'$k_dtype_bu,
    dsc'$k_dtype_wu,
    dsc'$k_dtype_lu,
    dsc'$k_dtype_qu,
    dsc'$k_dtype_b,
    dsc'$k_dtype_w,
    dsc'$k_dtype_l,
    dsc'$k_dtype_q,
    dsc'$k_dtype_f,
    dsc'$k_dtype_d,
    dsc'$k_dtype_fc,
    dsc'$k_dtype_dc,
    dsc'$k_dtype_t,
    dsc'$k_dtype_nu,
    dsc'$k_dtype_nl,
    dsc'$k_dtype_nlo,
    dsc'$k_dtype_nr,
    dsc'$k_dtype_nro,
    dsc'$k_dtype_nz,
    dsc'$k_dtype_p,
    dsc'$k_dtype_zi,
    dsc'$k_dtype_zem,

//Argument descriptors

    dsc'$k_class_z,
    dsc'$k_class_s,
    dsc'$k_class_d,
    dsc'$k_class_v,
    dsc'$k_class_a,
    dsc'$k_class_p,
    dsc'$k_class_pi,
    dsc'$k_class_j,
    dsc'$k_class_ji

endmodule  {DSCDEF}