Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/ftnosr/forcom.mac
There are 7 other files named forcom.mac in the archive. Click here to see a list.
	SEARCH	MTHPRM,	FORPRM
	TV	FORCOM	COMPATIBILITY FLAGGING FOR LIBRARY FUNCTIONS 11(5024)

;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE
; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE
; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE
; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES
; REMAIN IN DEC.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT
; CORPORATION.
;
; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
;

;++
; FACILITY:	FORTRAN LINK Time Library.
;
; ABSTRACT:
;
;	Contains the routines to perform the compatibility flagging
;	for FORTRAN. 
;
; ENVIRONMENT:	FORTRAN Link time library.
;
; AUTHOR: Mike Boucher, CREATION DATE: 28-Feb-84
;
; MODIFIED BY:

COMMENT \
***** Begin Revision History *****

4100	MRB	28-Feb-84	
	Created module.

4130	MRB	6-Jun-84
	Added routines SETRAN,SAVRAN,DTOGA and GTODA.

4162	RVM	2-Nov-84
	Add VAX INTEGER*4 and INTEGER*2 INTRINSIC functions.

4167	MRB	15-Nov-84
	Added routine MVBITS. Changed ISHFC to ISHFTC. 

4176	MRB	21-Jan-85
	Fixed ALOG10 to call ALG10. Was calling ALOG. 
	
4204	MRB	15-Mar-85
	Moved DUMVAX and DUMF77 to here from FORINI.  Aleviates the 
	undefinied globals when searching FORLIB for math routines
	in a non-FORTRAN program.

***** End V10 Development *****

4240	MRB	10-JAN-86
	Added routine DUMON. to get rid of undefined global FLGON.
	when using macro programs.

5024	20-Nov-86
	Moved routine DUMON to FORMSC.  Routines in this module need 
	the global symbol FLGON. also, so FORLIB *MUST* order FORCOM
	before FORMSC (or you will get undefines when LINKing MACRO
	programs).
	
***** End Revision History *****
\

	PRGEND
	TITLE	ABS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ABS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ABS)			;Define the entry point
	EXTERN	ABS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ABS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ABS
	TITLE	ACOS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ACOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ACOS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ACOS)			;Define the entry point
	EXTERN	ACOS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ACOS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ACOS
	TITLE	AIMAG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL AIMAG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AIMAG.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AIMAG)			;Define the entry point
	EXTERN	AIMAG., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AIMAG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine AIMAG
	TITLE	AINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL AINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AINT)			;Define the entry point
	EXTERN	AINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine AINT
	TITLE	ALG10 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ALG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ALG10.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ALG10)			;Define the entry point
	EXTERN	ALG10., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ALG10. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ALG10
	TITLE	ALOG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ALOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ALOG.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ALOG)			;Define the entry point
	EXTERN	ALOG., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ALOG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ALOG
	TITLE	ALOG10 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ALOG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ALOG10.
;
; IMPLICIT INPUTS:
;
;	FLXON.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ALOG10)		;Define the entry point
	EXTERN	ALG10., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ALG10. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ALOG10
	TITLE	AMAX0 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL AMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMAX0.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AMAX0)			;Define the entry point
	EXTERN	AMAX0., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AMAX0. 			;Call the correct (dotted) name
	PRGEND 				;End of routine AMAX0
	TITLE	AMAX1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL AMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMAX1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AMAX1)			;Define the entry point
	EXTERN	AMAX1., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AMAX1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine AMAX1
	TITLE	AMIN0 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL AMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMIN0.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AMIN0)			;Define the entry point
	EXTERN	AMIN0., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AMIN0. 			;Call the correct (dotted) name
	PRGEND 				;End of routine AMIN0
	TITLE	AMIN1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL AMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMIN1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AMIN1)			;Define the entry point
	EXTERN	AMIN1., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AMIN1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine AMIN1
	TITLE	AMOD - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL AMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMOD.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AMOD)			;Define the entry point
	EXTERN	AMOD., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AMOD. 			;Call the correct (dotted) name
	PRGEND 				;End of routine AMOD
	TITLE	ANINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ANINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ANINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ANINT)			;Define the entry point
	EXTERN	ANINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ANINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ANINT
	TITLE	ASIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ASIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ASIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ASIN)			;Define the entry point
	EXTERN	ASIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ASIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ASIN
	TITLE	ATAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ATAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ATAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ATAN)			;Define the entry point
	EXTERN	ATAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ATAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ATAN
	TITLE	ATAN2 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ATAN2 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ATAN2.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ATAN2)			;Define the entry point
	EXTERN	ATAN2., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ATAN2. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ATAN2
	TITLE	BTEST - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL BTEST (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to BTEST.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(BTEST)			;Define the entry point
	EXTERN	BTEST., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	BTEST. 			;Call the correct (dotted) name
	PRGEND 				;End of routine BTEST
	TITLE	CABS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CABS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CABS)			;Define the entry point
	EXTERN	CABS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CABS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CABS
	TITLE	CCOS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CCOS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CCOS)			;Define the entry point
	EXTERN	CCOS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CCOS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CCOS
	TITLE	CDABS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CDABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CDABS.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CDABS)			;Define the entry point
	EXTERN	CDABS., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	CDABS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CDABS
	TITLE	CDCOS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CDCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CDCOS.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CDCOS)			;Define the entry point
	EXTERN	CDCOS., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	CDCOS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CDCOS
	TITLE	CDEXP - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CDEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CDEXP.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CDEXP)			;Define the entry point
	EXTERN	CDEXP., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	CDEXP. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CDEXP
	TITLE	CDLOG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CDLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CDLOG.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CDLOG)			;Define the entry point
	EXTERN	CDLOG., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	CDLOG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CDLOG
	TITLE	CDSIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CDSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CDSIN.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CDSIN)			;Define the entry point
	EXTERN	CDSIN., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	CDSIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CDSIN
	TITLE	CDSQRT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CDSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CDSQRT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CDSQRT)		;Define the entry point
	EXTERN	CDSQT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	CDSQT.			;Call the correct (dotted) name
	PRGEND 				;End of routine CDSQRT
	TITLE	CEXP - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CEXP.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CEXP)			;Define the entry point
	EXTERN	CEXP., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CEXP. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CEXP
	TITLE	CGABS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CGABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CGABS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CGABS)			;Define the entry point
	EXTERN	CGABS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CGABS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CGABS
	TITLE	CHAR - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CHAR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CHAR.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CHAR)			;Define the entry point
	EXTERN	CHAR., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CHAR. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CHAR
	TITLE	CLOG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CLOG.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CLOG)			;Define the entry point
	EXTERN	CLOG., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CLOG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CLOG
	TITLE	CMPLX - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CMPLX (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CMPLX.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CMPLX)			;Define the entry point
	EXTERN	CMPLX., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CMPLX. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CMPLX
	TITLE	CONJG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CONJG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CONJG.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CONJG)			;Define the entry point
	EXTERN	CONJG., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CONJG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CONJG
	TITLE	COS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL COS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to COS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(COS)			;Define the entry point
	EXTERN	COS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	COS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine COS
	TITLE	COSD - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL COSD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to COSD.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(COSD)			;Define the entry point
	EXTERN	COSD., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	COSD. 			;Call the correct (dotted) name
	PRGEND 				;End of routine COSD
	TITLE	COSH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL COSH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to COSH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(COSH)			;Define the entry point
	EXTERN	COSH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	COSH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine COSH
	TITLE	COTAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL COTAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to COTAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(COTAN)			;Define the entry point
	EXTERN	COTAN., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	COTAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine COTAN
	TITLE	CSIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CSIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CSIN)			;Define the entry point
	EXTERN	CSIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CSIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CSIN
	TITLE	CSQRT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL CSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to CSQRT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(CSQRT)			;Define the entry point
	EXTERN	CSQRT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	CSQRT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine CSQRT
	TITLE	DABS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DABS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DABS)			;Define the entry point
	EXTERN	DABS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DABS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DABS
	TITLE	DACOS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DACOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DACOS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DACOS)			;Define the entry point
	EXTERN	DACOS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DACOS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DACOS
	TITLE	DASIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DASIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DASIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DASIN)			;Define the entry point
	EXTERN	DASIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DASIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DASIN
	TITLE	DATAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DATAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DATAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DATAN)			;Define the entry point
	EXTERN	DATAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DATAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DATAN
	TITLE	DATAN2 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DATAN2 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DATN2.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DATAN2)			;Define the entry point
	EXTERN	DATN2., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DATN2. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DATAN2
	TITLE	DBLE - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DBLE (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DBLE.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DBLE)			;Define the entry point
	EXTERN	DBLE., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DBLE. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DBLE
	TITLE	DCOS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DCOS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DCOS)			;Define the entry point
	EXTERN	DCOS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DCOS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DCOS
	TITLE	DCOSH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DCOSH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DCOSH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DCOSH)			;Define the entry point
	EXTERN	DCOSH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DCOSH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DCOSH
	TITLE	DCOTN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DCOTN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DCOTN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DCOTN)			;Define the entry point
	EXTERN	DCOTN., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DCOTN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DCOTN
	TITLE	DDIM - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DDIM.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DDIM)			;Define the entry point
	EXTERN	DDIM., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DDIM. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DDIM
	TITLE	DEXP - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DEXP.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DEXP)			;Define the entry point
	EXTERN	DEXP., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DEXP. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DEXP
	TITLE	DFLOAT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DFLOAT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DFLOAT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DFLOAT)			;Define the entry point
	EXTERN	DFLOT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DFLOT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DFLOAT
	TITLE	DIM - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DIM.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DIM)			;Define the entry point
	EXTERN	DIM., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DIM. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DIM
	TITLE	DINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DINT)			;Define the entry point
	EXTERN	DINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DINT
	TITLE	DLOG10 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DLOG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DLG10.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DLOG10)		;Define the entry point
	EXTERN	DLG10., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DLG10. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DLOG10
	TITLE	DLOG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DLOG.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DLOG)			;Define the entry point
	EXTERN	DLOG., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DLOG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DLOG
	TITLE	DMAX1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DMAX1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DMAX1)			;Define the entry point
	EXTERN	DMAX1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DMAX1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DMAX1
	TITLE	DMIN1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DMIN1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DMIN1)			;Define the entry point
	EXTERN	DMIN1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DMIN1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DMIN1
	TITLE	DMOD - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DMOD.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DMOD)			;Define the entry point
	EXTERN	DMOD., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DMOD. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DMOD
	TITLE	DNINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DNINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DNINT)			;Define the entry point
	EXTERN	DNINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DNINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DNINT
	TITLE	DPROD - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DPROD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DPROD.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DPROD)			;Define the entry point
	EXTERN	DPROD., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DPROD. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DPROD
	TITLE	DSIGN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DSIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DSIGN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DSIGN)			;Define the entry point
	EXTERN	DSIGN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DSIGN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DSIGN
	TITLE	DSIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DSIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DSIN)			;Define the entry point
	EXTERN	DSIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DSIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DSIN
	TITLE	DSINH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DSINH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DSINH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DSINH)			;Define the entry point
	EXTERN	DSINH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DSINH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DSINH
	TITLE	DSQRT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DSQRT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DSQRT)			;Define the entry point
	EXTERN	DSQRT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DSQRT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DSQRT
	TITLE	DTAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DTAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DTAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DTAN)			;Define the entry point
	EXTERN	DTAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DTAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DTAN
	TITLE	DTANH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DTANH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DTANH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DTANH)			;Define the entry point
	EXTERN	DTANH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	DTANH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DTANH
	TITLE	DTOGA - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL DTOGA (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DTOGA.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DTOGA)			;Define the entry point
	EXTERN	DTOGA., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFX 			;Yes; display the compatibility message
	PJRST	DTOGA. 			;Call the correct (dotted) name
	PRGEND 				;End of routine DTOGA
	TITLE	EXP - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL EXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to EXP.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(EXP)			;Define the entry point
	EXTERN	EXP., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	EXP. 			;Call the correct (dotted) name
	PRGEND 				;End of routine EXP
	TITLE	FLOAT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL FLOAT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to FLOAT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(FLOAT)			;Define the entry point
	EXTERN	FLOAT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	FLOAT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine FLOAT
	TITLE	GABS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GABS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GABS)			;Define the entry point
	EXTERN	GABS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GABS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GABS
	TITLE	GACOS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GACOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GACOS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GACOS)			;Define the entry point
	EXTERN	GACOS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GACOS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GACOS
	TITLE	GASIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GASIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GASIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GASIN)			;Define the entry point
	EXTERN	GASIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GASIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GASIN
	TITLE	GATAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GATAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GATAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GATAN)			;Define the entry point
	EXTERN	GATAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GATAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GATAN
	TITLE	GATN2 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GATN2 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GATN2.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GATN2)			;Define the entry point
	EXTERN	GATN2., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GATN2. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GATN2
	TITLE	GBLE - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GBLE (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GBLE.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GBLE)			;Define the entry point
	EXTERN	GBLE., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GBLE. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GBLE
	TITLE	GCOS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GCOS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GCOS)			;Define the entry point
	EXTERN	GCOS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GCOS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GCOS
	TITLE	GCOSH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GCOSH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GCOSH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GCOSH)			;Define the entry point
	EXTERN	GCOSH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GCOSH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GCOSH
	TITLE	GCOTN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GCOTN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GCOTN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GCOTN)			;Define the entry point
	EXTERN	GCOTN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GCOTN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GCOTN
	TITLE	GDIM - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GDIM.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GDIM)			;Define the entry point
	EXTERN	GDIM., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GDIM. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GDIM
	TITLE	GEXP - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GEXP.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GEXP)			;Define the entry point
	EXTERN	GEXP., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GEXP. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GEXP
	TITLE	GFLOT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GFLOT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GFLOT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GFLOT)			;Define the entry point
	EXTERN	GFLOT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GFLOT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GFLOT
	TITLE	GINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GINT)			;Define the entry point
	EXTERN	GINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GINT
	TITLE	GLG10 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GLG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GLG10.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GLG10)			;Define the entry point
	EXTERN	GLG10., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GLG10. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GLG10
	TITLE	GLOG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GLOG.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GLOG)			;Define the entry point
	EXTERN	GLOG., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GLOG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GLOG
	TITLE	GMAX1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GMAX1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GMAX1)			;Define the entry point
	EXTERN	GMAX1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GMAX1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GMAX1
	TITLE	GMIN1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GMIN1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GMIN1)			;Define the entry point
	EXTERN	GMIN1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GMIN1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GMIN1
	TITLE	GMOD - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GMOD.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GMOD)			;Define the entry point
	EXTERN	GMOD., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GMOD. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GMOD
	TITLE	GNINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GNINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GNINT)			;Define the entry point
	EXTERN	GNINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GNINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GNINT
	TITLE	GPROD - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GPROD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GPROD.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GPROD)			;Define the entry point
	EXTERN	GPROD., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GPROD. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GPROD
	TITLE	GSIGN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GSIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GSIGN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GSIGN)			;Define the entry point
	EXTERN	GSIGN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GSIGN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GSIGN
	TITLE	GSIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GSIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GSIN)			;Define the entry point
	EXTERN	GSIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GSIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GSIN
	TITLE	GSINH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GSINH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GSINH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GSINH)			;Define the entry point
	EXTERN	GSINH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GSINH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GSINH
	TITLE	GSNGL - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GSNGL (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GSNGL.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GSNGL)			;Define the entry point
	EXTERN	GSNGL., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GSNGL. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GSNGL
	TITLE	GSQRT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GSQRT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GSQRT)			;Define the entry point
	EXTERN	GSQRT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GSQRT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GSQRT
	TITLE	GTAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GTAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GTAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GTAN)			;Define the entry point
	EXTERN	GTAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GTAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GTAN
	TITLE	GTANH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GTANH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GTANH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GTANH)			;Define the entry point
	EXTERN	GTANH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	GTANH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GTANH
	TITLE	GTODA - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL GTODA (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to GTODA.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(GTODA)			;Define the entry point
	EXTERN	GTODA., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFX 			;Yes; display the compatibility message
	PJRST	GTODA. 			;Call the correct (dotted) name
	PRGEND 				;End of routine GTODA
	TITLE	IABS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IABS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IABS)			;Define the entry point
	EXTERN	IABS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IABS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IABS
	TITLE	IAND - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IAND (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IAND.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IAND)			;Define the entry point
	EXTERN	IAND., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IAND. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IAND
	TITLE	IBCLR - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IBCLR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBCLR.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IBCLR)			;Define the entry point
	EXTERN	IBCLR., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IBCLR. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IBCLR
	TITLE	IBITS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IBITS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBITS.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IBITS)			;Define the entry point
	EXTERN	IBITS., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IBITS. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IBITS
	TITLE	IBSET - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IBSET (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBSET.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IBSET)			;Define the entry point
	EXTERN	IBSET., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IBSET. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IBSET
	TITLE	ICHAR - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ICHAR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ICHAR.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ICHAR)			;Define the entry point
	EXTERN	ICHAR., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ICHAR. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ICHAR
	TITLE	IDIM - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDIM.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IDIM)			;Define the entry point
	EXTERN	IDIM., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IDIM. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IDIM
	TITLE	IDINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IDINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IDINT)			;Define the entry point
	EXTERN	IDINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IDINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IDINT
	TITLE	IDNINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IDNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDNIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IDNINT)		;Define the entry point
	EXTERN	IDNIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IDNIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IDNINT
	TITLE	IEOR - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IEOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IEOR.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IEOR)			;Define the entry point
	EXTERN	IEOR., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IEOR. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IEOR
	TITLE	IFIX - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IFIX (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IFIX.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IFIX)			;Define the entry point
	EXTERN	IFIX., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IFIX. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IFIX
	TITLE	IGINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IGINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IGINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IGINT)			;Define the entry point
	EXTERN	IGINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IGINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IGINT
	TITLE	IGNIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IGNIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IGNIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IGNIN)			;Define the entry point
	EXTERN	IGNIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IGNIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IGNIN
	TITLE	INDEX - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL INDEX (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to INDEX.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(INDEX)			;Define the entry point
	EXTERN	INDEX., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	INDEX. 			;Call the correct (dotted) name
	PRGEND 				;End of routine INDEX
	TITLE	INT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL INT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to INT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(INT)			;Define the entry point
	EXTERN	INT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	INT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine INT
	TITLE	IOR - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL IOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IOR.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IOR)			;Define the entry point
	EXTERN	IOR., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	IOR. 			;Call the correct (dotted) name
	PRGEND 				;End of routine IOR
	TITLE	ISHFTC - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ISHFTC (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ISHFC.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ISHFTC)		;Define the entry point
	EXTERN	ISHFC., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ISHFC. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ISHFTC
	TITLE	ISHFT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ISHFT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ISHFT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ISHFT)			;Define the entry point
	EXTERN	ISHFT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ISHFT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ISHFT
	TITLE	ISIGN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL ISIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ISIGN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ISIGN)			;Define the entry point
	EXTERN	ISIGN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ISIGN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine ISIGN
	TITLE	LEN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL LEN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to LEN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(LEN)			;Define the entry point
	EXTERN	LEN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	LEN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine LEN
	TITLE	LGE - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	18-Jun-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL LGE (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to LGE.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(LGE)			;Define the entry point
	EXTERN	LGE., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	LGE. 			;Call the correct (dotted) name
	PRGEND 				;End of routine LGE
	TITLE	LGT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	18-Jun-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL LGT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to LGT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(LGT)			;Define the entry point
	EXTERN	LGT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	LGT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine LGT
	TITLE	LLE - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	18-Jun-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL LLE (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to LLE.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(LLE)			;Define the entry point
	EXTERN	LLE., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	LLE. 			;Call the correct (dotted) name
	PRGEND 				;End of routine LLE
	TITLE	LLT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	18-Jun-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL LLT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to LLT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(LLT)			;Define the entry point
	EXTERN	LLT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	LLT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine LLT
	TITLE	LOG - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL LOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ALOG.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(LOG)			;Define the entry point
	EXTERN	ALOG., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ALOG. 			;Call the correct (dotted) name
	PRGEND 				;End of routine LOG
	TITLE	LOG10 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL LOG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ALOG10.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(LOG10)			;Define the entry point
	EXTERN	ALOG., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	ALOG.			;Call the correct (dotted) name
	PRGEND 				;End of routine LOG10
	TITLE	MAX - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL MAX (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMAX1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MAX)			;Define the entry point
	EXTERN	AMAX1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AMAX1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MAX
	TITLE	MAX0 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL MAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MAX0.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MAX0)			;Define the entry point
	EXTERN	MAX0., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	MAX0. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MAX0
	TITLE	MAX1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL MAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MAX1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MAX1)			;Define the entry point
	EXTERN	MAX1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	MAX1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MAX1
	TITLE	MIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL MIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMIN1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MIN)			;Define the entry point
	EXTERN	AMIN1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	AMIN1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MIN
	TITLE	MIN0 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL MIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MIN0.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MIN0)			;Define the entry point
	EXTERN	MIN0., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	MIN0. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MIN0
	TITLE	MIN1 - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL MIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MIN1.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MIN1)			;Define the entry point
	EXTERN	MIN1., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	MIN1. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MIN1
	TITLE	MOD - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL MOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MOD.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MOD)			;Define the entry point
	EXTERN	MOD., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	MOD. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MOD
	TITLE	MVBITS - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	15-NOV-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4167]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned 
;	on) that the calling sequence he has used is incompatible with the  
;	VAX calling sequence for the Math Library functions. After the 
;	message is output the correct Math Library function is called. 
; 
; CALLING SEQUENCE: 
; 
;	Called from users FORTRAN program. 
; 
;	    CALL MVBITS (arg,arg,...) 
;
; INPUT PARAMETERS: 
;
;	All parameters are passed on to MVBITS. 
;
; IMPLICIT INPUTS: 
;
;	FLXVX.		If this symbol is defined (as -1) the VAX 
;			compatibility flagger is ON 
;
; OUTPUT PARAMETERS: 
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(MVBITS)			;Define the entry point
	EXTERN	MVBIT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]			;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	MVBIT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine MVBITS
	TITLE	NINT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL NINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to NINT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(NINT)			;Define the entry point
	EXTERN	NINT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	NINT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine NINT
	TITLE	REAL - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL REAL (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to REAL.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(REAL)			;Define the entry point
	EXTERN	REAL., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	REAL. 			;Call the correct (dotted) name
	PRGEND 				;End of routine REAL
	TITLE	SAVRAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SAVRAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to SVRAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SAVRAN)		;Define the entry point
	EXTERN	SVRAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFX 			;Yes; display the compatibility message
	PJRST	SVRAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SAVRAN
	TITLE	SETRAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SETRAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to STRAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SETRAN)		;Define the entry point
	EXTERN	STRAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFX 			;Yes; display the compatibility message
	PJRST	STRAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SETRAN
	TITLE	SIGN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to SIGN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SIGN)			;Define the entry point
	EXTERN	SIGN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	SIGN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SIGN
	TITLE	SIN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to SIN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SIN)			;Define the entry point
	EXTERN	SIN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	SIN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SIN
	TITLE	SIND - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SIND (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to SIND.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SIND)			;Define the entry point
	EXTERN	SIND., FLGON.		;Define external symbols

	SKIPE	[FLGON.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	SIND. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SIND
	TITLE	SINH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SINH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to SINH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SINH)			;Define the entry point
	EXTERN	SINH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	SINH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SINH
	TITLE	SNGL - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SNGL (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to SNGL.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SNGL)			;Define the entry point
	EXTERN	SNGL., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	SNGL. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SNGL
	TITLE	SQRT - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL SQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to SQRT.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(SQRT)			;Define the entry point
	EXTERN	SQRT., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	SQRT. 			;Call the correct (dotted) name
	PRGEND 				;End of routine SQRT
	TITLE	TAN - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL TAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to TAN.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(TAN)			;Define the entry point
	EXTERN	TAN., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	TAN. 			;Call the correct (dotted) name
	PRGEND 				;End of routine TAN
	TITLE	TANH - Make dotted symbol for math library function calls
	SUBTTL	Mike Boucher /MRB	28-Feb-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if VAX compatibility flagging is turned
;	on) that the calling sequence he has used is incompatible with the 
;	VAX calling sequence for the Math Library functions. After the
;	message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    CALL TANH (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to TANH.
;
; IMPLICIT INPUTS:
;
;	FLXVX.		If this symbol is defined (as -1) the VAX
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	None
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(TANH)			;Define the entry point
	EXTERN	TANH., FLGV.		;Define external symbols

	SKIPE	[FLGV.]		;Is VAX compatbility flagging on ?
	 $FCALL	CFF 			;Yes; display the compatibility message
	PJRST	TANH. 			;Call the correct (dotted) name
	PRGEND 				;End of routine TANH
	TITLE	IIABS - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IABS.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIABS)			;Define the entry point
	EXTERN	IABS., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IABS.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIABS - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IABS.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIABS)			;Define the entry point
	EXTERN	IABS., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IABS.			;Call the correct (dotted) name
	PRGEND
	TITLE	IINT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to INT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IINT)			;Define the entry point
	EXTERN	INT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	INT.			;Call the correct (dotted) name
	PRGEND
	TITLE	JINT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to INT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JINT)			;Define the entry point
	EXTERN	INT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	INT.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIDINT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIDINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDINT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIDINT)		;Define the entry point
	EXTERN	IDINT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IDINT.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIDINT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIDINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDINT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIDINT)		;Define the entry point
	EXTERN	IDINT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IDINT.			;Call the correct (dotted) name
	PRGEND
	TITLE	ININT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = ININT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to NINT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(ININT)			;Define the entry point
	EXTERN	NINT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	NINT.			;Call the correct (dotted) name
	PRGEND
	TITLE	JNINT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to NINT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JNINT)			;Define the entry point
	EXTERN	NINT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	NINT.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIDNNT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIDNNT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDNIN.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIDNNT)		;Define the entry point
	EXTERN	IDNIN., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IDNIN.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIDNNT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIDNNT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDNIN.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIDNNT)		;Define the entry point
	EXTERN	IDNIN., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IDNIN.			;Call the correct (dotted) name
	PRGEND
	TITLE	FLOATI - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = FLOATI (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to FLOAT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(FLOATI)		;Define the entry point
	EXTERN	FLOAT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	FLOAT.			;Call the correct (dotted) name
	PRGEND
	TITLE	FLOATJ - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = FLOATJ (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to FLOAT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(FLOATJ)		;Define the entry point
	EXTERN	FLOAT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	FLOAT.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIFIX - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIFIX (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IFIX.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIFIX)			;Define the entry point
	EXTERN	IFIX., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IFIX.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIFIX - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIFIX (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IFIX.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIFIX)			;Define the entry point
	EXTERN	IFIX., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IFIX.			;Call the correct (dotted) name
	PRGEND
	TITLE	DFLOTI - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = DFLOTI (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DFLOT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DFLOTI)		;Define the entry point
	EXTERN	DFLOT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	DFLOT.			;Call the correct (dotted) name
	PRGEND
	TITLE	DFLOTJ - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = DFLOTJ (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to DFLOT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(DFLOTJ)		;Define the entry point
	EXTERN	DFLOT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	DFLOT.			;Call the correct (dotted) name
	PRGEND
	TITLE	IMAX0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MAX0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IMAX0)			;Define the entry point
	EXTERN	MAX0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MAX0.			;Call the correct (dotted) name
	PRGEND
	TITLE	JMAX0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MAX0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JMAX0)			;Define the entry point
	EXTERN	MAX0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MAX0.			;Call the correct (dotted) name
	PRGEND
	TITLE	IMAX1 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MAX1.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IMAX1)			;Define the entry point
	EXTERN	MAX1., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MAX1.			;Call the correct (dotted) name
	PRGEND
	TITLE	JMAX1 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MAX1.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JMAX1)			;Define the entry point
	EXTERN	MAX1., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MAX1.			;Call the correct (dotted) name
	PRGEND
	TITLE	AIMAX0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = AIMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMAX0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AIMAX0)		;Define the entry point
	EXTERN	AMAX0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	AMAX0.			;Call the correct (dotted) name
	PRGEND
	TITLE	AJMAX0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = AJMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMAX0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AJMAX0)		;Define the entry point
	EXTERN	AMAX0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	AMAX0.			;Call the correct (dotted) name
	PRGEND
	TITLE	IMIN0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MIN0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IMIN0)			;Define the entry point
	EXTERN	MIN0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MIN0.			;Call the correct (dotted) name
	PRGEND
	TITLE	JMIN0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MIN0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JMIN0)			;Define the entry point
	EXTERN	MIN0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MIN0.			;Call the correct (dotted) name
	PRGEND
	TITLE	IMIN1 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MIN1.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IMIN1)			;Define the entry point
	EXTERN	MIN1., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MIN1.			;Call the correct (dotted) name
	PRGEND
	TITLE	JMIN1 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MIN1.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JMIN1)			;Define the entry point
	EXTERN	MIN1., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MIN1.			;Call the correct (dotted) name
	PRGEND
	TITLE	AIMIN0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = AIMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMIN0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AIMIN0)		;Define the entry point
	EXTERN	AMIN0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	AMIN0.			;Call the correct (dotted) name
	PRGEND
	TITLE	AJMIN0 - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = AJMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to AMIN0.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(AJMIN0)		;Define the entry point
	EXTERN	AMIN0., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	AMIN0.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIDIM - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDIM.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIDIM)			;Define the entry point
	EXTERN	IDIM., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IDIM.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIDIM - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IDIM.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIDIM)			;Define the entry point
	EXTERN	IDIM., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IDIM.			;Call the correct (dotted) name
	PRGEND
	TITLE	IMOD - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MOD.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IMOD)			;Define the entry point
	EXTERN	MOD., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MOD.			;Call the correct (dotted) name
	PRGEND
	TITLE	JMOD - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to MOD.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JMOD)			;Define the entry point
	EXTERN	MOD., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	MOD.			;Call the correct (dotted) name
	PRGEND
	TITLE	IISIGN - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IISIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ISIGN.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IISIGN)		;Define the entry point
	EXTERN	ISIGN., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	ISIGN.			;Call the correct (dotted) name
	PRGEND
	TITLE	JISIGN - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JISIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ISIGN.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JISIGN)		;Define the entry point
	EXTERN	ISIGN., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	ISIGN.			;Call the correct (dotted) name
	PRGEND
	TITLE	BITEST - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = BITEST (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to BTEST.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(BITEST)		;Define the entry point
	EXTERN	BTEST., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	BTEST.			;Call the correct (dotted) name
	PRGEND
	TITLE	BJTEST - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = BJTEST (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to BTEST.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(BJTEST)		;Define the entry point
	EXTERN	BTEST., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	BTEST.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIAND - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIAND (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IAND.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIAND)			;Define the entry point
	EXTERN	IAND., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IAND.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIAND - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIAND (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IAND.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIAND)			;Define the entry point
	EXTERN	IAND., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IAND.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIBCLR - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIBCLR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBCLR.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIBCLR)		;Define the entry point
	EXTERN	IBCLR., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IBCLR.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIBCLR - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIBCLR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBCLR.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIBCLR)		;Define the entry point
	EXTERN	IBCLR., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IBCLR.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIBITS - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIBITS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBITS.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIBITS)		;Define the entry point
	EXTERN	IBITS., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IBITS.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIBITS - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIBITS (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBITS.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIBITS)		;Define the entry point
	EXTERN	IBITS., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IBITS.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIBSET - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIBSET (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBSET.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIBSET)		;Define the entry point
	EXTERN	IBSET., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IBSET.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIBSET - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIBSET (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IBSET.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIBSET)		;Define the entry point
	EXTERN	IBSET., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IBSET.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIEOR - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIEOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IEOR.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIEOR)			;Define the entry point
	EXTERN	IEOR., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IEOR.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIEOR - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIEOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IEOR.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIEOR)			;Define the entry point
	EXTERN	IEOR., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IEOR.			;Call the correct (dotted) name
	PRGEND
	TITLE	IIOR - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IIOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IOR.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IIOR)			;Define the entry point
	EXTERN	IOR., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IOR.			;Call the correct (dotted) name
	PRGEND
	TITLE	JIOR - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JIOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to IOR.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JIOR)			;Define the entry point
	EXTERN	IOR., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	IOR.			;Call the correct (dotted) name
	PRGEND
	TITLE	IISHFT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = IISHFT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ISHFT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(IISHFT)		;Define the entry point
	EXTERN	ISHFT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	ISHFT.			;Call the correct (dotted) name
	PRGEND
	TITLE	JISHFT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JISHFT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to ISHFT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JISHFT)		;Define the entry point
	EXTERN	ISHFT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	ISHFT.			;Call the correct (dotted) name
	PRGEND
	TITLE	INOT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = INOT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to NOT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(INOT)			;Define the entry point
	EXTERN	NOT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	NOT.			;Call the correct (dotted) name
	PRGEND
	TITLE	JNOT - Do Compatibility Flagging for Function
	SUBTTL	Randall Meyers/RVM	4-Nov-84
 
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
 
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.

;++				[4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
;	Routine to warn the user (if ANSI compatibility flagging is 
;	turned on) that the routine called is incompatible with ANSI-77
;	standard. After the message is output the correct Math Library 
;	function is called.
;
; CALLING SEQUENCE:
;
;	Called from users FORTRAN program.
;
;	    I = JNOT (arg,arg,...)
;
; INPUT PARAMETERS:
;
;	All parameters are passed on to NOT.
;
; IMPLICIT INPUTS:
;
;	FLG77.		If this symbol is defined (as -1) the ANSI
;			compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
;	None
;
; IMPLICIT OUTPUTS:
;
;	None
;
; FUNCTION VALUE:
;
;	None
;
; SIDE EFFECTS:
;
;	Compatibility flagging is done.
;
;--
	SEARCH	MTHPRM, FORPRM		;Get universal symbols
	SEGMENT	CODE			;
	SALL				;Supress macro expansion in listing
	NOSYM				;Supress symbol table in listing file
	HELLO	(JNOT)			;Define the entry point
	EXTERN	NOT., FLG77.		;Define external symbols

	SKIPE	[FLG77.]		;Is ANSI compatbility flagging on ?
	 $FCALL	CFR 			;Yes; display the compatibility message
	PJRST	NOT.			;Call the correct (dotted) name
	PRGEND
	TITLE	DUMVAX

;++ 					;[4204]
;  THIS MODULE IS LINKED IF THE VAX FLAGGER IS NOT INVOKED
;--

	ENTRY	FLGV.

FLGV.==0

	PRGEND

	TITLE	DUMF77
;++					;[4204]
;  THIS MODULE IS LINKED IF THE ANSI-77 FLAGGER IS NOT INVOKED
;--

	ENTRY	FLG77.

FLG77.==0

	PRGEND
	END				;[5024]End of module FORCOM