//_Header
//*******************************************************************
//    NOVA CONTROL SYSTEM  ---  Lawrence Livermore Laboratory
//
//    Copyright 1984 by The Regents of the University of California
//*******************************************************************
//
//_Module_Name:  VMSRUN		_File:  vmspro$src:VMSRUN.PRX
//
//_Description:
//	This module contains stubs to the VMS runtime library routines
//_Call:
//	{See individual routines}
//_Identifier: { none }
//*******************************************************************
//_Author:  A. J. De Groot		_Creation_Date:  5-Sep-182
//_Revisions:
//  1.000   5-Sep-1982	AJD	Initial Key-in.
//  1.001   6-Dec-1982	AJD	Add time calls, fix addx, subx
//  1.002  25-Jul-1983	AJD	Add calls to sin, cos
//  1.003   1-Feb-1984	AJD	No val pointers, make then ref
//  1.004  22-Feb-1985	AJD	Make all procedures and functions
//				FORTRAN procedures and functions for new
//				(7.2) compiler
%ident "1.004"
//*******************************************************************
//_End
module VMSRUN1


export
	 for'$idate
	,for'$jdate
	,for'$date
	,for'$secnds
	,for'$time
//	,lib'$day
//	,lib'$date_time
	,lib'$addx
	,lib'$get_ef
	,lib'$free_ef
	,lib'$reserve_ef
	,lib'$subx
	,mth'$cos
	,mth'$sin

declare
    long_integer is integer
    word_integer is 16 bit integer
enddeclare

fortran procedure for'$idate
    param
	month:		out ref word_integer
	day:		out ref word_integer
	year:		out ref word_integer
    endparam
endprocedure {for'$idate}


fortran procedure for'$jdate
    param
	month:		out ref long_integer
	day:		out ref long_integer
	year:		out ref long_integer
    endparam
endprocedure {for'$jdate}


fortran procedure for'$date
    param
	byte_array:	out ref packed array[1..9] of char
    endparam
endprocedure {for'$date}


fortran function for'$secnds
    param
	time_origin:	out ref real
    endparam
    returns time_difference:	real
endfunction {for'$secnds}


fortran procedure for'$time
    param
	byte_array:	out ref packed array[1..8] of char
    endparam
endprocedure {for'$time}


fortran function lib'$addx
    param
	a_adr:		in ref general
	b_adr:		in ref general
	result_adr:	out ref general
	len_adr:	optional in ref integer initially 2
    endparam
    returns status:	integer
endfunction {lib'$addx}


fortran function lib'$subx
    param
	a_adr:		in ref general
	b_adr:		in ref general
	result_adr:	out ref general
	len_adr:	optional in ref integer initially 2
    endparam
    returns status:	integer
endfunction {lib'$subx}

function lib'$get_ef
    param
	efn:		out ref 32 bit integer
    endparam
    returns status:	32 bit integer
endfunction


fortran function lib'$free_ef
    param
	efn:		in ref 32 bit integer
    endparam
    returns status:	32 bit integer
endfunction


fortran function lib'$reserve_ef
    param
	efn:		in ref 32 bit integer
    endparam
    returns status:	32 bit integer
endfunction


fortran function mth'$cos
    param
	x:		in ref real
    endparam
    returns result:	real
endfunction


fortran function mth'$sin
    param
	x:		in ref real
    endparam
    returns result:	real
endfunction


endmodule