Trailing-Edge
-
PDP-10 Archives
-
BB-D480G-SB_FORTRAN10_V11.0_short
-
forcom.mac
Click forcom.mac to
see without markup as text/plain
There are 4 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 C