! ! This file was created on VMS 4.7. There is no ! guarantee that these values are accurate (even ! on VMS 4.7 systems :-)). To recreate this file ! do the following: ! $ LIB/EXTRACT=$OBJDEF/OUT=$OBJDEF.FTN - ! SYS$LIBRARY:STARLET.MLB ! then edit it to conform to FORTRAN syntax. ! parameter OBJ$C_HDR = 0 parameter OBJ$C_HDR_MHD = 0 parameter OBJ$C_HDR_LNM = 1 parameter OBJ$C_HDR_SRC = 2 parameter OBJ$C_HDR_TTL = 3 parameter OBJ$C_HDR_CPR = 4 parameter OBJ$C_HDR_MTC = 5 parameter OBJ$C_HDR_GTX = 6 parameter OBJ$C_GSD = 1 parameter OBJ$C_GSD_PSC = 0 parameter OBJ$C_GSD_SYM = 1 parameter OBJ$C_GSD_EPM = 2 parameter OBJ$C_GSD_PRO = 3 parameter OBJ$C_GSD_SYMW = 4 parameter OBJ$C_GSD_EPMW = 5 parameter OBJ$C_GSD_PROW = 6 parameter OBJ$C_GSD_IDC = 7 parameter OBJ$C_GSD_ENV = 8 parameter OBJ$C_GSD_LSY = 9 parameter OBJ$C_GSD_LEPM = 10 parameter OBJ$C_GSD_LPRO = 11 parameter OBJ$C_GSD_SPSC = 12 parameter OBJ$C_TIR = 2 parameter OBJ$C_EOM = 3 parameter OBJ$C_DBG = 4 parameter OBJ$C_TBT = 5 parameter OBJ$C_LNK = 6 parameter OBJ$C_EOMW = 7 parameter OBJ$C_MAXRECTYP = 7 parameter OBJ$K_SUBTYP = 1 parameter OBJ$C_SUBTYP = 1 parameter OBJ$C_MAXRECSIZ = 2048 parameter OBJ$C_STRLVL = 0 parameter OBJ$C_SYMSIZ = 31 parameter OBJ$C_STOREPLIM = -1 parameter OBJ$C_PSCALILIM = 9 parameter OBJ$S_OBJRECDEF = 5 parameter OBJ$B_RECTYP = 0 parameter OBJ$B_SUBTYP = 1 parameter OBJ$B_MHD_STRLV = 2 parameter OBJ$W_MHD_RECSZ = 3 parameter OBJ$T_MHD_NAME = 5 parameter MHD$C_MHD = 0 parameter MHD$C_LNM = 1 parameter MHD$C_SRC = 2 parameter MHD$C_TTL = 3 parameter MHD$C_CPR = 4 parameter MHD$C_MTC = 5 parameter MHD$C_GTX = 6 parameter MHD$C_MAXHDRTYP = 6 parameter MHD$S_MHDEF = 37 parameter MHD$B_RECTYP = 0 parameter MHD$B_HDRTYP = 1 parameter MHD$B_STRLVL = 2 parameter MHD$W_RECSIZ = 3 parameter MHD$B_NAMLNG = 5 parameter MHD$S_NAME = 31 parameter MHD$T_NAME = 6 parameter EOM$C_SUCCESS = 0 parameter EOM$C_WARNING = 1 parameter EOM$C_ERROR = 2 parameter EOM$C_ABORT = 3 parameter EOM$K_EOMMIN = 2 parameter EOM$C_EOMMIN = 2 parameter EOM$K_EOMMX1 = 7 parameter EOM$C_EOMMX1 = 7 parameter EOM$K_EOMMAX = 8 parameter EOM$C_EOMMAX = 8 parameter EOM$M_WKTFR = 1 parameter EOM$S_EOMDEF = 8 parameter EOM$B_RECTYP = 0 parameter EOM$B_COMCOD = 1 parameter EOM$B_PSINDX = 2 parameter EOM$L_TFRADR = 3 parameter EOM$B_TFRFLG = 7 parameter EOM$V_WKTFR = 0 parameter EOMW$K_EOMMIN = 2 parameter EOMW$C_EOMMIN = 2 parameter EOMW$K_EOMMX1 = 8 parameter EOMW$C_EOMMX1 = 8 parameter EOMW$K_EOMMAX = 9 parameter EOMW$C_EOMMAX = 9 parameter EOMW$M_WKTFR = 1 parameter EOMW$S_EOMWDEF = 9 parameter EOMW$B_RECTYP = 0 parameter EOMW$B_COMCOD = 1 parameter EOMW$W_PSINDX = 2 parameter EOMW$L_TFRADR = 4 parameter EOMW$B_TFRFLG = 8 parameter EOMW$V_WKTFR = 0 parameter LNK$C_OLB = 0 parameter LNK$C_SHR = 1 parameter LNK$C_OLI = 2 parameter LNK$C_OBJ = 3 parameter LNK$C_SHA = 4 parameter LNK$C_MAXRECTYP = 4 parameter LNK$M_SELSER = 1 parameter LNK$M_LIBSRCH = 2 parameter LNK$S_LNKDEF = 6 parameter LNK$B_RECTYP = 0 parameter LNK$B_LNKTYP = 1 parameter LNK$W_FLAGS = 2 parameter LNK$V_SELSER = 0 parameter LNK$V_LIBSRCH = 1 parameter LNK$W_NAMLNG = 4 parameter LNK$T_NAME = 6 parameter GSD$K_ENTRIES = 1 parameter GSD$C_ENTRIES = 1 parameter GSD$C_PSC = 0 parameter GSD$C_SYM = 1 parameter GSD$C_EPM = 2 parameter GSD$C_PRO = 3 parameter GSD$C_SYMW = 4 parameter GSD$C_EPMW = 5 parameter GSD$C_PROW = 6 parameter GSD$C_IDC = 7 parameter GSD$C_ENV = 8 parameter GSD$C_LSY = 9 parameter GSD$C_LEPM = 10 parameter GSD$C_LPRO = 11 parameter GSD$C_SPSC = 12 parameter GSD$C_MAXRECTYP = 12 parameter GSD$S_GSDEF = 2 parameter GSD$B_RECTYP = 0 parameter GSD$B_GSDTYP = 1 parameter GPS$M_PIC = 1 parameter GPS$M_LIB = 2 parameter GPS$M_OVR = 4 parameter GPS$M_REL = 8 parameter GPS$M_GBL = 16 parameter GPS$M_SHR = 32 parameter GPS$M_EXE = 64 parameter GPS$M_RD = 128 parameter GPS$M_WRT = 256 parameter GPS$M_VEC = 512 parameter GPS$K_NAME = 9 parameter GPS$C_NAME = 9 parameter GPS$S_GPSDEF = 40 parameter GPS$B_GSDTYP = 0 parameter GPS$T_START = 0 parameter GPS$B_ALIGN = 1 parameter GPS$W_FLAGS = 2 parameter GPS$V_PIC = 0 parameter GPS$V_LIB = 1 parameter GPS$V_OVR = 2 parameter GPS$V_REL = 3 parameter GPS$V_GBL = 4 parameter GPS$V_SHR = 5 parameter GPS$V_EXE = 6 parameter GPS$V_RD = 7 parameter GPS$V_WRT = 8 parameter GPS$V_VEC = 9 parameter GPS$L_ALLOC = 4 parameter GPS$B_NAMLNG = 8 parameter GPS$S_NAME = 31 parameter GPS$T_NAME = 9 parameter SGPS$M_PIC = 1 parameter SGPS$M_LIB = 2 parameter SGPS$M_OVR = 4 parameter SGPS$M_REL = 8 parameter SGPS$M_GBL = 16 parameter SGPS$M_SHR = 32 parameter SGPS$M_EXE = 64 parameter SGPS$M_RD = 128 parameter SGPS$M_WRT = 256 parameter SGPS$M_VEC = 512 parameter SGPS$K_NAME = 13 parameter SGPS$C_NAME = 13 parameter SGPS$S_SGPSDEF = 44 parameter SGPS$B_GSDTYP = 0 parameter SGPS$T_START = 0 parameter SGPS$B_ALIGN = 1 parameter SGPS$W_FLAGS = 2 parameter SGPS$V_PIC = 0 parameter SGPS$V_LIB = 1 parameter SGPS$V_OVR = 2 parameter SGPS$V_REL = 3 parameter SGPS$V_GBL = 4 parameter SGPS$V_SHR = 5 parameter SGPS$V_EXE = 6 parameter SGPS$V_RD = 7 parameter SGPS$V_WRT = 8 parameter SGPS$V_VEC = 9 parameter SGPS$L_ALLOC = 4 parameter SGPS$L_BASE = 8 parameter SGPS$B_NAMLNG = 12 parameter SGPS$S_NAME = 31 parameter SGPS$T_NAME = 13 parameter GSY$M_WEAK = 1 parameter GSY$M_DEF = 2 parameter GSY$M_UNI = 4 parameter GSY$M_REL = 8 parameter GSY$S_GSYDEF = 4 parameter GSY$B_GSDTYP = 0 parameter GSY$T_START = 0 parameter GSY$B_DATYP = 1 parameter GSY$W_FLAGS = 2 parameter GSY$V_WEAK = 0 parameter GSY$V_DEF = 1 parameter GSY$V_UNI = 2 parameter GSY$V_REL = 3 parameter SRF$K_NAME = 5 parameter SRF$C_NAME = 5 parameter SRF$S_SRFDEF = 36 parameter SRF$B_GSDTYP = 0 parameter SRF$T_START = 0 parameter SRF$B_DATYP = 1 parameter SRF$W_FLAGS = 2 parameter SRF$B_NAMLNG = 4 parameter SRF$S_NAME = 31 parameter SRF$T_NAME = 5 parameter SDF$K_NAME = 10 parameter SDF$C_NAME = 10 parameter SDF$S_SDFDEF = 41 parameter SDF$B_GSDTYP = 0 parameter SDF$T_START = 0 parameter SDF$B_DATYP = 1 parameter SDF$W_FLAGS = 2 parameter SDF$B_PSINDX = 4 parameter SDF$L_VALUE = 5 parameter SDF$B_NAMLNG = 9 parameter SDF$S_NAME = 31 parameter SDF$T_NAME = 10 parameter EPM$K_NAME = 12 parameter EPM$C_NAME = 12 parameter EPM$S_EPMDEF = 43 parameter EPM$B_GSDTYP = 0 parameter EPM$T_START = 0 parameter EPM$B_DATYP = 1 parameter EPM$W_FLAGS = 2 parameter EPM$B_PSINDX = 4 parameter EPM$L_ADDRS = 5 parameter EPM$W_MASK = 9 parameter EPM$B_NAMLNG = 11 parameter EPM$S_NAME = 31 parameter EPM$T_NAME = 12 parameter PRO$K_NAME = 12 parameter PRO$C_NAME = 12 parameter PRO$S_PRODEF = 43 parameter PRO$B_GSDTYP = 0 parameter PRO$T_START = 0 parameter PRO$B_DATYP = 1 parameter PRO$W_FLAGS = 2 parameter PRO$B_PSINDX = 4 parameter PRO$L_ADDRS = 5 parameter PRO$W_MASK = 9 parameter PRO$B_NAMLNG = 11 parameter PRO$S_NAME = 31 parameter PRO$T_NAME = 12 parameter FML$K_SIZE = 2 parameter FML$C_SIZE = 2 parameter FML$S_FMLDEF = 2 parameter FML$B_MINARGS = 0 parameter FML$B_MAXARGS = 1 parameter ARG$C_UNKNOWN = 0 parameter ARG$C_VALUE = 1 parameter ARG$C_REF = 2 parameter ARG$C_DESC = 3 parameter ARG$K_SIZE = 2 parameter ARG$C_SIZE = 2 parameter ARG$S_ARGDEF = 2 parameter ARG$B_VALCTL = 0 parameter ARG$S_PASSMECH = 2 parameter ARG$V_PASSMECH = 0 parameter ARG$B_BYTECNT = 1 parameter SDFW$K_NAME = 11 parameter SDFW$C_NAME = 11 parameter SDFW$S_SDFWDEF = 42 parameter SDFW$B_GSDTYP = 0 parameter SDFW$T_START = 0 parameter SDFW$B_DATYP = 1 parameter SDFW$W_FLAGS = 2 parameter SDFW$W_PSINDX = 4 parameter SDFW$L_VALUE = 6 parameter SDFW$B_NAMLNG = 10 parameter SDFW$S_NAME = 31 parameter SDFW$T_NAME = 11 parameter EPMW$K_NAME = 13 parameter EPMW$C_NAME = 13 parameter EPMW$S_EPMWDEF = 44 parameter EPMW$B_GSDTYP = 0 parameter EPMW$T_START = 0 parameter EPMW$B_DATYP = 1 parameter EPMW$W_FLAGS = 2 parameter EPMW$W_PSINDX = 4 parameter EPMW$L_ADDRS = 6 parameter EPMW$W_MASK = 10 parameter EPMW$B_NAMLNG = 12 parameter EPMW$S_NAME = 31 parameter EPMW$T_NAME = 13 parameter PROW$K_NAME = 13 parameter PROW$C_NAME = 13 parameter PROW$S_PROWDEF = 44 parameter PROW$B_GSDTYP = 0 parameter PROW$T_START = 0 parameter PROW$B_DATYP = 1 parameter PROW$W_FLAGS = 2 parameter PROW$W_PSINDX = 4 parameter PROW$L_ADDRS = 6 parameter PROW$W_MASK = 10 parameter PROW$B_NAMLNG = 12 parameter PROW$S_NAME = 31 parameter PROW$T_NAME = 13 parameter IDC$C_LEQ = 0 parameter IDC$C_EQUAL = 1 parameter IDC$S_IDCDEF = 4 parameter IDC$B_GSDTYP = 0 parameter IDC$W_FLAGS = 1 parameter IDC$V_BINIDENT = 0 parameter IDC$S_IDMATCH = 2 parameter IDC$V_IDMATCH = 1 parameter IDC$S_ERRSEV = 3 parameter IDC$V_ERRSEV = 3 parameter IDC$B_NAMLNG = 3 parameter IDC$T_NAME = 4 parameter ENV$M_DEF = 1 parameter ENV$M_NESTED = 2 parameter ENV$S_ENVDEF = 37 parameter ENV$B_GSDTYP = 0 parameter ENV$W_FLAGS = 1 parameter ENV$V_DEF = 0 parameter ENV$V_NESTED = 1 parameter ENV$W_ENVINDX = 3 parameter ENV$B_NAMLNG = 5 parameter ENV$S_NAME = 31 parameter ENV$T_NAME = 6 parameter LSY$M_WEAK = 1 parameter LSY$M_DEF = 2 parameter LSY$M_UNI = 4 parameter LSY$M_REL = 8 parameter LSY$S_LSYDEF = 6 parameter LSY$B_GSDTYP = 0 parameter LSY$T_START = 0 parameter LSY$B_DATYP = 1 parameter LSY$W_FLAGS = 2 parameter LSY$V_WEAK = 0 parameter LSY$V_DEF = 1 parameter LSY$V_UNI = 2 parameter LSY$V_REL = 3 parameter LSY$W_ENVINDX = 4 parameter LSRF$K_NAME = 7 parameter LSRF$C_NAME = 7 parameter LSRF$S_LSRFDEF = 38 parameter LSRF$B_GSDTYP = 0 parameter LSRF$T_START = 0 parameter LSRF$B_DATYP = 1 parameter LSRF$W_FLAGS = 2 parameter LSRF$W_ENVINDX = 4 parameter LSRF$B_NAMLNG = 6 parameter LSRF$S_NAME = 31 parameter LSRF$T_NAME = 7 parameter LSDF$K_NAME = 13 parameter LSDF$C_NAME = 13 parameter LSDF$S_LSDFDEF = 44 parameter LSDF$B_GSDTYP = 0 parameter LSDF$T_START = 0 parameter LSDF$B_DATYP = 1 parameter LSDF$W_FLAGS = 2 parameter LSDF$W_ENVINDX = 4 parameter LSDF$W_PSINDX = 6 parameter LSDF$L_VALUE = 8 parameter LSDF$B_NAMLNG = 12 parameter LSDF$S_NAME = 31 parameter LSDF$T_NAME = 13 parameter LEPM$K_NAME = 15 parameter LEPM$C_NAME = 15 parameter LEPM$S_LEPMDEF = 46 parameter LEPM$B_GSDTYP = 0 parameter LEPM$T_START = 0 parameter LEPM$B_DATYP = 1 parameter LEPM$W_FLAGS = 2 parameter LEPM$W_ENVINDX = 4 parameter LEPM$W_PSINDX = 6 parameter LEPM$L_ADDRS = 8 parameter LEPM$W_MASK = 12 parameter LEPM$B_NAMLNG = 14 parameter LEPM$S_NAME = 31 parameter LEPM$T_NAME = 15 parameter LPRO$K_NAME = 15 parameter LPRO$C_NAME = 15 parameter LPRO$S_LPRODEF = 46 parameter LPRO$B_GSDTYP = 0 parameter LPRO$T_START = 0 parameter LPRO$B_DATYP = 1 parameter LPRO$W_FLAGS = 2 parameter LPRO$W_ENVINDX = 4 parameter LPRO$W_PSINDX = 6 parameter LPRO$L_ADDRS = 8 parameter LPRO$W_MASK = 12 parameter LPRO$B_NAMLNG = 14 parameter LPRO$S_NAME = 31 parameter LPRO$T_NAME = 15 parameter TIR$C_STA_GBL = 0 parameter TIR$C_STA_SB = 1 parameter TIR$C_STA_SW = 2 parameter TIR$C_STA_LW = 3 parameter TIR$C_STA_PB = 4 parameter TIR$C_STA_PW = 5 parameter TIR$C_STA_PL = 6 parameter TIR$C_STA_UB = 7 parameter TIR$C_STA_UW = 8 parameter TIR$C_STA_BFI = 9 parameter TIR$C_STA_WFI = 10 parameter TIR$C_STA_LFI = 11 parameter TIR$C_STA_EPM = 12 parameter TIR$C_STA_CKARG = 13 parameter TIR$C_STA_WPB = 14 parameter TIR$C_STA_WPW = 15 parameter TIR$C_STA_WPL = 16 parameter TIR$C_STA_LSY = 17 parameter TIR$C_STA_LIT = 18 parameter TIR$C_STA_LEPM = 19 parameter TIR$C_MAXSTACOD = 19 parameter TIR$C_MINSTOCOD = 20 parameter TIR$C_STO_SB = 20 parameter TIR$C_STO_SW = 21 parameter TIR$C_STO_L = 22 parameter TIR$C_STO_BD = 23 parameter TIR$C_STO_WD = 24 parameter TIR$C_STO_LD = 25 parameter TIR$C_STO_LI = 26 parameter TIR$C_STO_PIDR = 27 parameter TIR$C_STO_PICR = 28 parameter TIR$C_STO_RSB = 29 parameter TIR$C_STO_RSW = 30 parameter TIR$C_STO_RL = 31 parameter TIR$C_STO_VPS = 32 parameter TIR$C_STO_USB = 33 parameter TIR$C_STO_USW = 34 parameter TIR$C_STO_RUB = 35 parameter TIR$C_STO_RUW = 36 parameter TIR$C_STO_B = 37 parameter TIR$C_STO_W = 38 parameter TIR$C_STO_RB = 39 parameter TIR$C_STO_RW = 40 parameter TIR$C_STO_RIVB = 41 parameter TIR$C_STO_PIRR = 42 parameter TIR$C_MAXSTOCOD = 42 parameter TIR$C_MINOPRCOD = 50 parameter TIR$C_OPR_NOP = 50 parameter TIR$C_OPR_ADD = 51 parameter TIR$C_OPR_SUB = 52 parameter TIR$C_OPR_MUL = 53 parameter TIR$C_OPR_DIV = 54 parameter TIR$C_OPR_AND = 55 parameter TIR$C_OPR_IOR = 56 parameter TIR$C_OPR_EOR = 57 parameter TIR$C_OPR_NEG = 58 parameter TIR$C_OPR_COM = 59 parameter TIR$C_OPR_INSV = 60 parameter TIR$C_OPR_ASH = 61 parameter TIR$C_OPR_USH = 62 parameter TIR$C_OPR_ROT = 63 parameter TIR$C_OPR_SEL = 64 parameter TIR$C_OPR_REDEF = 65 parameter TIR$C_OPR_DFLIT = 66 parameter TIR$C_MAXOPRCOD = 66 parameter TIR$C_MINCTLCOD = 80 parameter TIR$C_CTL_SETRB = 80 parameter TIR$C_CTL_AUGRB = 81 parameter TIR$C_CTL_DFLOC = 82 parameter TIR$C_CTL_STLOC = 83 parameter TIR$C_CTL_STKDL = 84 parameter TIR$C_MAXCTLCOD = 84 parameter TIR$S_TIRDEF = 1 parameter TIR$B_RECTYP = 0