INTEGER*4 PSM$K_CANCEL
	PARAMETER (PSM$K_CANCEL=1)
	INTEGER*4 PSM$K_CLOSE
	PARAMETER (PSM$K_CLOSE=2)
	INTEGER*4 PSM$K_FORMAT
	PARAMETER (PSM$K_FORMAT=3)
	INTEGER*4 PSM$K_OPEN
	PARAMETER (PSM$K_OPEN=4)
	INTEGER*4 PSM$K_READ
	PARAMETER (PSM$K_READ=5)
	INTEGER*4 PSM$K_GET_KEY
	PARAMETER (PSM$K_GET_KEY=6)
	INTEGER*4 PSM$K_POSITION_TO_KEY
	PARAMETER (PSM$K_POSITION_TO_KEY=7)
	INTEGER*4 PSM$K_REWIND
	PARAMETER (PSM$K_REWIND=8)
	INTEGER*4 PSM$K_WRITE
	PARAMETER (PSM$K_WRITE=9)
	INTEGER*4 PSM$K_WRITE_NOFORMAT
	PARAMETER (PSM$K_WRITE_NOFORMAT=10)
	INTEGER*4 PSM$K_WRITE_SUPPRESSED
	PARAMETER (PSM$K_WRITE_SUPPRESSED=11)
	INTEGER*4 PSM$K_PAUSE_TASK
	PARAMETER (PSM$K_PAUSE_TASK=12)
	INTEGER*4 PSM$K_RESET_STREAM
	PARAMETER (PSM$K_RESET_STREAM=13)
	INTEGER*4 PSM$K_RESUME_TASK
	PARAMETER (PSM$K_RESUME_TASK=14)
	INTEGER*4 PSM$K_START_STREAM
	PARAMETER (PSM$K_START_STREAM=15)
	INTEGER*4 PSM$K_START_TASK
	PARAMETER (PSM$K_START_TASK=16)
	INTEGER*4 PSM$K_STOP_TASK
	PARAMETER (PSM$K_STOP_TASK=17)
	INTEGER*4 PSM$K_STOP_STREAM
	PARAMETER (PSM$K_STOP_STREAM=18)
	INTEGER*4 PSM$K_PAGE_SETUP
	PARAMETER (PSM$K_PAGE_SETUP=1)
	INTEGER*4 PSM$K_PAGE_HEADER
	PARAMETER (PSM$K_PAGE_HEADER=2)
	INTEGER*4 PSM$K_LIBRARY_INPUT
	PARAMETER (PSM$K_LIBRARY_INPUT=3)
	INTEGER*4 PSM$K_INPUT_FILTER
	PARAMETER (PSM$K_INPUT_FILTER=4)
	INTEGER*4 PSM$K_MAIN_FORMAT
	PARAMETER (PSM$K_MAIN_FORMAT=5)
	INTEGER*4 PSM$K_OUTPUT_FILTER
	PARAMETER (PSM$K_OUTPUT_FILTER=6)
	INTEGER*4 PSM$K_OUTPUT
	PARAMETER (PSM$K_OUTPUT=7)
	INTEGER*4 PSM$K_JOB_SETUP
	PARAMETER (PSM$K_JOB_SETUP=8)
	INTEGER*4 PSM$K_FORM_SETUP
	PARAMETER (PSM$K_FORM_SETUP=9)
	INTEGER*4 PSM$K_JOB_FLAG
	PARAMETER (PSM$K_JOB_FLAG=10)
	INTEGER*4 PSM$K_JOB_BURST
	PARAMETER (PSM$K_JOB_BURST=11)
	INTEGER*4 PSM$K_FILE_SETUP
	PARAMETER (PSM$K_FILE_SETUP=12)
	INTEGER*4 PSM$K_FILE_FLAG
	PARAMETER (PSM$K_FILE_FLAG=13)
	INTEGER*4 PSM$K_FILE_BURST
	PARAMETER (PSM$K_FILE_BURST=14)
	INTEGER*4 PSM$K_FILE_SETUP_2
	PARAMETER (PSM$K_FILE_SETUP_2=15)
	INTEGER*4 PSM$K_MAIN_INPUT
	PARAMETER (PSM$K_MAIN_INPUT=16)
	INTEGER*4 PSM$K_FILE_INFORMATION
	PARAMETER (PSM$K_FILE_INFORMATION=17)
	INTEGER*4 PSM$K_FILE_ERRORS
	PARAMETER (PSM$K_FILE_ERRORS=18)
	INTEGER*4 PSM$K_FILE_TRAILER
	PARAMETER (PSM$K_FILE_TRAILER=19)
	INTEGER*4 PSM$K_JOB_RESET
	PARAMETER (PSM$K_JOB_RESET=20)
	INTEGER*4 PSM$K_JOB_TRAILER
	PARAMETER (PSM$K_JOB_TRAILER=21)
	INTEGER*4 PSM$K_JOB_COMPLETION
	PARAMETER (PSM$K_JOB_COMPLETION=22)
	INTEGER*4 PSM$k_max
	PARAMETER (PSM$k_max=23)
	INTEGER*4 PSM$K_CC_INTERNAL
	PARAMETER (PSM$K_CC_INTERNAL=1)
	INTEGER*4 PSM$K_CC_IMPLIED
	PARAMETER (PSM$K_CC_IMPLIED=2)
	INTEGER*4 PSM$K_CC_FORTRAN
	PARAMETER (PSM$K_CC_FORTRAN=3)
	INTEGER*4 PSM$K_CC_PRINT
	PARAMETER (PSM$K_CC_PRINT=4)
	INTEGER*4 PSM$K_CC_MAX
	PARAMETER (PSM$K_CC_MAX=5)