Trailing-Edge
-
PDP-10 Archives
-
CFS_TSU04_19910205_1of1
-
update/ftnosr/forcom.mac
There are 7 other files named forcom.mac in the archive. Click here to see a list.
SEARCH MTHPRM, FORPRM
TV FORCOM COMPATIBILITY FLAGGING FOR LIBRARY FUNCTIONS 11(5024)
;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE
; COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE
; ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
; MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE
; TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES
; REMAIN IN DEC.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
;
;++
; FACILITY: FORTRAN LINK Time Library.
;
; ABSTRACT:
;
; Contains the routines to perform the compatibility flagging
; for FORTRAN.
;
; ENVIRONMENT: FORTRAN Link time library.
;
; AUTHOR: Mike Boucher, CREATION DATE: 28-Feb-84
;
; MODIFIED BY:
COMMENT \
***** Begin Revision History *****
4100 MRB 28-Feb-84
Created module.
4130 MRB 6-Jun-84
Added routines SETRAN,SAVRAN,DTOGA and GTODA.
4162 RVM 2-Nov-84
Add VAX INTEGER*4 and INTEGER*2 INTRINSIC functions.
4167 MRB 15-Nov-84
Added routine MVBITS. Changed ISHFC to ISHFTC.
4176 MRB 21-Jan-85
Fixed ALOG10 to call ALG10. Was calling ALOG.
4204 MRB 15-Mar-85
Moved DUMVAX and DUMF77 to here from FORINI. Aleviates the
undefinied globals when searching FORLIB for math routines
in a non-FORTRAN program.
***** End V10 Development *****
4240 MRB 10-JAN-86
Added routine DUMON. to get rid of undefined global FLGON.
when using macro programs.
5024 20-Nov-86
Moved routine DUMON to FORMSC. Routines in this module need
the global symbol FLGON. also, so FORLIB *MUST* order FORCOM
before FORMSC (or you will get undefines when LINKing MACRO
programs).
***** End Revision History *****
\
PRGEND
TITLE ABS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ABS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ABS) ;Define the entry point
EXTERN ABS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ABS. ;Call the correct (dotted) name
PRGEND ;End of routine ABS
TITLE ACOS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ACOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ACOS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ACOS) ;Define the entry point
EXTERN ACOS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ACOS. ;Call the correct (dotted) name
PRGEND ;End of routine ACOS
TITLE AIMAG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL AIMAG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AIMAG.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AIMAG) ;Define the entry point
EXTERN AIMAG., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AIMAG. ;Call the correct (dotted) name
PRGEND ;End of routine AIMAG
TITLE AINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL AINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AINT) ;Define the entry point
EXTERN AINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AINT. ;Call the correct (dotted) name
PRGEND ;End of routine AINT
TITLE ALG10 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ALG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ALG10.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ALG10) ;Define the entry point
EXTERN ALG10., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ALG10. ;Call the correct (dotted) name
PRGEND ;End of routine ALG10
TITLE ALOG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ALOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ALOG.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ALOG) ;Define the entry point
EXTERN ALOG., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ALOG. ;Call the correct (dotted) name
PRGEND ;End of routine ALOG
TITLE ALOG10 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ALOG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ALOG10.
;
; IMPLICIT INPUTS:
;
; FLXON. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ALOG10) ;Define the entry point
EXTERN ALG10., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ALG10. ;Call the correct (dotted) name
PRGEND ;End of routine ALOG10
TITLE AMAX0 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL AMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMAX0.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AMAX0) ;Define the entry point
EXTERN AMAX0., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AMAX0. ;Call the correct (dotted) name
PRGEND ;End of routine AMAX0
TITLE AMAX1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL AMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMAX1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AMAX1) ;Define the entry point
EXTERN AMAX1., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AMAX1. ;Call the correct (dotted) name
PRGEND ;End of routine AMAX1
TITLE AMIN0 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL AMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMIN0.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AMIN0) ;Define the entry point
EXTERN AMIN0., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AMIN0. ;Call the correct (dotted) name
PRGEND ;End of routine AMIN0
TITLE AMIN1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL AMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMIN1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AMIN1) ;Define the entry point
EXTERN AMIN1., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AMIN1. ;Call the correct (dotted) name
PRGEND ;End of routine AMIN1
TITLE AMOD - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL AMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMOD.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AMOD) ;Define the entry point
EXTERN AMOD., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AMOD. ;Call the correct (dotted) name
PRGEND ;End of routine AMOD
TITLE ANINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ANINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ANINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ANINT) ;Define the entry point
EXTERN ANINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ANINT. ;Call the correct (dotted) name
PRGEND ;End of routine ANINT
TITLE ASIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ASIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ASIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ASIN) ;Define the entry point
EXTERN ASIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ASIN. ;Call the correct (dotted) name
PRGEND ;End of routine ASIN
TITLE ATAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ATAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ATAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ATAN) ;Define the entry point
EXTERN ATAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ATAN. ;Call the correct (dotted) name
PRGEND ;End of routine ATAN
TITLE ATAN2 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ATAN2 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ATAN2.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ATAN2) ;Define the entry point
EXTERN ATAN2., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ATAN2. ;Call the correct (dotted) name
PRGEND ;End of routine ATAN2
TITLE BTEST - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL BTEST (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to BTEST.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (BTEST) ;Define the entry point
EXTERN BTEST., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST BTEST. ;Call the correct (dotted) name
PRGEND ;End of routine BTEST
TITLE CABS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CABS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CABS) ;Define the entry point
EXTERN CABS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CABS. ;Call the correct (dotted) name
PRGEND ;End of routine CABS
TITLE CCOS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CCOS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CCOS) ;Define the entry point
EXTERN CCOS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CCOS. ;Call the correct (dotted) name
PRGEND ;End of routine CCOS
TITLE CDABS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CDABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CDABS.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CDABS) ;Define the entry point
EXTERN CDABS., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST CDABS. ;Call the correct (dotted) name
PRGEND ;End of routine CDABS
TITLE CDCOS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CDCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CDCOS.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CDCOS) ;Define the entry point
EXTERN CDCOS., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST CDCOS. ;Call the correct (dotted) name
PRGEND ;End of routine CDCOS
TITLE CDEXP - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CDEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CDEXP.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CDEXP) ;Define the entry point
EXTERN CDEXP., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST CDEXP. ;Call the correct (dotted) name
PRGEND ;End of routine CDEXP
TITLE CDLOG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CDLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CDLOG.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CDLOG) ;Define the entry point
EXTERN CDLOG., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST CDLOG. ;Call the correct (dotted) name
PRGEND ;End of routine CDLOG
TITLE CDSIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CDSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CDSIN.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CDSIN) ;Define the entry point
EXTERN CDSIN., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST CDSIN. ;Call the correct (dotted) name
PRGEND ;End of routine CDSIN
TITLE CDSQRT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CDSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CDSQRT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CDSQRT) ;Define the entry point
EXTERN CDSQT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST CDSQT. ;Call the correct (dotted) name
PRGEND ;End of routine CDSQRT
TITLE CEXP - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CEXP.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CEXP) ;Define the entry point
EXTERN CEXP., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CEXP. ;Call the correct (dotted) name
PRGEND ;End of routine CEXP
TITLE CGABS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CGABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CGABS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CGABS) ;Define the entry point
EXTERN CGABS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CGABS. ;Call the correct (dotted) name
PRGEND ;End of routine CGABS
TITLE CHAR - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CHAR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CHAR.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CHAR) ;Define the entry point
EXTERN CHAR., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CHAR. ;Call the correct (dotted) name
PRGEND ;End of routine CHAR
TITLE CLOG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CLOG.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CLOG) ;Define the entry point
EXTERN CLOG., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CLOG. ;Call the correct (dotted) name
PRGEND ;End of routine CLOG
TITLE CMPLX - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CMPLX (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CMPLX.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CMPLX) ;Define the entry point
EXTERN CMPLX., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CMPLX. ;Call the correct (dotted) name
PRGEND ;End of routine CMPLX
TITLE CONJG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CONJG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CONJG.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CONJG) ;Define the entry point
EXTERN CONJG., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CONJG. ;Call the correct (dotted) name
PRGEND ;End of routine CONJG
TITLE COS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL COS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to COS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (COS) ;Define the entry point
EXTERN COS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST COS. ;Call the correct (dotted) name
PRGEND ;End of routine COS
TITLE COSD - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL COSD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to COSD.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (COSD) ;Define the entry point
EXTERN COSD., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST COSD. ;Call the correct (dotted) name
PRGEND ;End of routine COSD
TITLE COSH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL COSH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to COSH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (COSH) ;Define the entry point
EXTERN COSH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST COSH. ;Call the correct (dotted) name
PRGEND ;End of routine COSH
TITLE COTAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL COTAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to COTAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (COTAN) ;Define the entry point
EXTERN COTAN., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST COTAN. ;Call the correct (dotted) name
PRGEND ;End of routine COTAN
TITLE CSIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CSIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CSIN) ;Define the entry point
EXTERN CSIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CSIN. ;Call the correct (dotted) name
PRGEND ;End of routine CSIN
TITLE CSQRT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL CSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to CSQRT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (CSQRT) ;Define the entry point
EXTERN CSQRT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST CSQRT. ;Call the correct (dotted) name
PRGEND ;End of routine CSQRT
TITLE DABS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DABS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DABS) ;Define the entry point
EXTERN DABS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DABS. ;Call the correct (dotted) name
PRGEND ;End of routine DABS
TITLE DACOS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DACOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DACOS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DACOS) ;Define the entry point
EXTERN DACOS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DACOS. ;Call the correct (dotted) name
PRGEND ;End of routine DACOS
TITLE DASIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DASIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DASIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DASIN) ;Define the entry point
EXTERN DASIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DASIN. ;Call the correct (dotted) name
PRGEND ;End of routine DASIN
TITLE DATAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DATAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DATAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DATAN) ;Define the entry point
EXTERN DATAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DATAN. ;Call the correct (dotted) name
PRGEND ;End of routine DATAN
TITLE DATAN2 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DATAN2 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DATN2.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DATAN2) ;Define the entry point
EXTERN DATN2., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DATN2. ;Call the correct (dotted) name
PRGEND ;End of routine DATAN2
TITLE DBLE - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DBLE (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DBLE.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DBLE) ;Define the entry point
EXTERN DBLE., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DBLE. ;Call the correct (dotted) name
PRGEND ;End of routine DBLE
TITLE DCOS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DCOS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DCOS) ;Define the entry point
EXTERN DCOS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DCOS. ;Call the correct (dotted) name
PRGEND ;End of routine DCOS
TITLE DCOSH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DCOSH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DCOSH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DCOSH) ;Define the entry point
EXTERN DCOSH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DCOSH. ;Call the correct (dotted) name
PRGEND ;End of routine DCOSH
TITLE DCOTN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DCOTN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DCOTN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DCOTN) ;Define the entry point
EXTERN DCOTN., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DCOTN. ;Call the correct (dotted) name
PRGEND ;End of routine DCOTN
TITLE DDIM - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DDIM.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DDIM) ;Define the entry point
EXTERN DDIM., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DDIM. ;Call the correct (dotted) name
PRGEND ;End of routine DDIM
TITLE DEXP - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DEXP.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DEXP) ;Define the entry point
EXTERN DEXP., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DEXP. ;Call the correct (dotted) name
PRGEND ;End of routine DEXP
TITLE DFLOAT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DFLOAT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DFLOAT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DFLOAT) ;Define the entry point
EXTERN DFLOT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DFLOT. ;Call the correct (dotted) name
PRGEND ;End of routine DFLOAT
TITLE DIM - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DIM.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DIM) ;Define the entry point
EXTERN DIM., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DIM. ;Call the correct (dotted) name
PRGEND ;End of routine DIM
TITLE DINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DINT) ;Define the entry point
EXTERN DINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DINT. ;Call the correct (dotted) name
PRGEND ;End of routine DINT
TITLE DLOG10 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DLOG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DLG10.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DLOG10) ;Define the entry point
EXTERN DLG10., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DLG10. ;Call the correct (dotted) name
PRGEND ;End of routine DLOG10
TITLE DLOG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DLOG.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DLOG) ;Define the entry point
EXTERN DLOG., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DLOG. ;Call the correct (dotted) name
PRGEND ;End of routine DLOG
TITLE DMAX1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DMAX1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DMAX1) ;Define the entry point
EXTERN DMAX1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DMAX1. ;Call the correct (dotted) name
PRGEND ;End of routine DMAX1
TITLE DMIN1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DMIN1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DMIN1) ;Define the entry point
EXTERN DMIN1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DMIN1. ;Call the correct (dotted) name
PRGEND ;End of routine DMIN1
TITLE DMOD - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DMOD.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DMOD) ;Define the entry point
EXTERN DMOD., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DMOD. ;Call the correct (dotted) name
PRGEND ;End of routine DMOD
TITLE DNINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DNINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DNINT) ;Define the entry point
EXTERN DNINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DNINT. ;Call the correct (dotted) name
PRGEND ;End of routine DNINT
TITLE DPROD - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DPROD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DPROD.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DPROD) ;Define the entry point
EXTERN DPROD., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DPROD. ;Call the correct (dotted) name
PRGEND ;End of routine DPROD
TITLE DSIGN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DSIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DSIGN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DSIGN) ;Define the entry point
EXTERN DSIGN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DSIGN. ;Call the correct (dotted) name
PRGEND ;End of routine DSIGN
TITLE DSIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DSIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DSIN) ;Define the entry point
EXTERN DSIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DSIN. ;Call the correct (dotted) name
PRGEND ;End of routine DSIN
TITLE DSINH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DSINH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DSINH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DSINH) ;Define the entry point
EXTERN DSINH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DSINH. ;Call the correct (dotted) name
PRGEND ;End of routine DSINH
TITLE DSQRT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DSQRT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DSQRT) ;Define the entry point
EXTERN DSQRT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DSQRT. ;Call the correct (dotted) name
PRGEND ;End of routine DSQRT
TITLE DTAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DTAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DTAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DTAN) ;Define the entry point
EXTERN DTAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DTAN. ;Call the correct (dotted) name
PRGEND ;End of routine DTAN
TITLE DTANH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DTANH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DTANH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DTANH) ;Define the entry point
EXTERN DTANH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST DTANH. ;Call the correct (dotted) name
PRGEND ;End of routine DTANH
TITLE DTOGA - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL DTOGA (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DTOGA.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DTOGA) ;Define the entry point
EXTERN DTOGA., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFX ;Yes; display the compatibility message
PJRST DTOGA. ;Call the correct (dotted) name
PRGEND ;End of routine DTOGA
TITLE EXP - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL EXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to EXP.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (EXP) ;Define the entry point
EXTERN EXP., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST EXP. ;Call the correct (dotted) name
PRGEND ;End of routine EXP
TITLE FLOAT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL FLOAT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to FLOAT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (FLOAT) ;Define the entry point
EXTERN FLOAT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST FLOAT. ;Call the correct (dotted) name
PRGEND ;End of routine FLOAT
TITLE GABS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GABS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GABS) ;Define the entry point
EXTERN GABS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GABS. ;Call the correct (dotted) name
PRGEND ;End of routine GABS
TITLE GACOS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GACOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GACOS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GACOS) ;Define the entry point
EXTERN GACOS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GACOS. ;Call the correct (dotted) name
PRGEND ;End of routine GACOS
TITLE GASIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GASIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GASIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GASIN) ;Define the entry point
EXTERN GASIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GASIN. ;Call the correct (dotted) name
PRGEND ;End of routine GASIN
TITLE GATAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GATAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GATAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GATAN) ;Define the entry point
EXTERN GATAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GATAN. ;Call the correct (dotted) name
PRGEND ;End of routine GATAN
TITLE GATN2 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GATN2 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GATN2.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GATN2) ;Define the entry point
EXTERN GATN2., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GATN2. ;Call the correct (dotted) name
PRGEND ;End of routine GATN2
TITLE GBLE - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GBLE (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GBLE.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GBLE) ;Define the entry point
EXTERN GBLE., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GBLE. ;Call the correct (dotted) name
PRGEND ;End of routine GBLE
TITLE GCOS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GCOS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GCOS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GCOS) ;Define the entry point
EXTERN GCOS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GCOS. ;Call the correct (dotted) name
PRGEND ;End of routine GCOS
TITLE GCOSH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GCOSH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GCOSH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GCOSH) ;Define the entry point
EXTERN GCOSH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GCOSH. ;Call the correct (dotted) name
PRGEND ;End of routine GCOSH
TITLE GCOTN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GCOTN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GCOTN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GCOTN) ;Define the entry point
EXTERN GCOTN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GCOTN. ;Call the correct (dotted) name
PRGEND ;End of routine GCOTN
TITLE GDIM - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GDIM.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GDIM) ;Define the entry point
EXTERN GDIM., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GDIM. ;Call the correct (dotted) name
PRGEND ;End of routine GDIM
TITLE GEXP - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GEXP (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GEXP.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GEXP) ;Define the entry point
EXTERN GEXP., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GEXP. ;Call the correct (dotted) name
PRGEND ;End of routine GEXP
TITLE GFLOT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GFLOT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GFLOT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GFLOT) ;Define the entry point
EXTERN GFLOT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GFLOT. ;Call the correct (dotted) name
PRGEND ;End of routine GFLOT
TITLE GINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GINT) ;Define the entry point
EXTERN GINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GINT. ;Call the correct (dotted) name
PRGEND ;End of routine GINT
TITLE GLG10 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GLG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GLG10.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GLG10) ;Define the entry point
EXTERN GLG10., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GLG10. ;Call the correct (dotted) name
PRGEND ;End of routine GLG10
TITLE GLOG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GLOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GLOG.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GLOG) ;Define the entry point
EXTERN GLOG., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GLOG. ;Call the correct (dotted) name
PRGEND ;End of routine GLOG
TITLE GMAX1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GMAX1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GMAX1) ;Define the entry point
EXTERN GMAX1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GMAX1. ;Call the correct (dotted) name
PRGEND ;End of routine GMAX1
TITLE GMIN1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GMIN1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GMIN1) ;Define the entry point
EXTERN GMIN1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GMIN1. ;Call the correct (dotted) name
PRGEND ;End of routine GMIN1
TITLE GMOD - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GMOD.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GMOD) ;Define the entry point
EXTERN GMOD., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GMOD. ;Call the correct (dotted) name
PRGEND ;End of routine GMOD
TITLE GNINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GNINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GNINT) ;Define the entry point
EXTERN GNINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GNINT. ;Call the correct (dotted) name
PRGEND ;End of routine GNINT
TITLE GPROD - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GPROD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GPROD.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GPROD) ;Define the entry point
EXTERN GPROD., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GPROD. ;Call the correct (dotted) name
PRGEND ;End of routine GPROD
TITLE GSIGN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GSIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GSIGN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GSIGN) ;Define the entry point
EXTERN GSIGN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GSIGN. ;Call the correct (dotted) name
PRGEND ;End of routine GSIGN
TITLE GSIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GSIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GSIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GSIN) ;Define the entry point
EXTERN GSIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GSIN. ;Call the correct (dotted) name
PRGEND ;End of routine GSIN
TITLE GSINH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GSINH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GSINH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GSINH) ;Define the entry point
EXTERN GSINH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GSINH. ;Call the correct (dotted) name
PRGEND ;End of routine GSINH
TITLE GSNGL - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GSNGL (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GSNGL.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GSNGL) ;Define the entry point
EXTERN GSNGL., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GSNGL. ;Call the correct (dotted) name
PRGEND ;End of routine GSNGL
TITLE GSQRT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GSQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GSQRT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GSQRT) ;Define the entry point
EXTERN GSQRT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GSQRT. ;Call the correct (dotted) name
PRGEND ;End of routine GSQRT
TITLE GTAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GTAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GTAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GTAN) ;Define the entry point
EXTERN GTAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GTAN. ;Call the correct (dotted) name
PRGEND ;End of routine GTAN
TITLE GTANH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GTANH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GTANH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GTANH) ;Define the entry point
EXTERN GTANH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST GTANH. ;Call the correct (dotted) name
PRGEND ;End of routine GTANH
TITLE GTODA - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL GTODA (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to GTODA.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (GTODA) ;Define the entry point
EXTERN GTODA., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFX ;Yes; display the compatibility message
PJRST GTODA. ;Call the correct (dotted) name
PRGEND ;End of routine GTODA
TITLE IABS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IABS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IABS) ;Define the entry point
EXTERN IABS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IABS. ;Call the correct (dotted) name
PRGEND ;End of routine IABS
TITLE IAND - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IAND (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IAND.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IAND) ;Define the entry point
EXTERN IAND., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IAND. ;Call the correct (dotted) name
PRGEND ;End of routine IAND
TITLE IBCLR - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IBCLR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBCLR.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IBCLR) ;Define the entry point
EXTERN IBCLR., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IBCLR. ;Call the correct (dotted) name
PRGEND ;End of routine IBCLR
TITLE IBITS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IBITS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBITS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IBITS) ;Define the entry point
EXTERN IBITS., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IBITS. ;Call the correct (dotted) name
PRGEND ;End of routine IBITS
TITLE IBSET - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IBSET (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBSET.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IBSET) ;Define the entry point
EXTERN IBSET., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IBSET. ;Call the correct (dotted) name
PRGEND ;End of routine IBSET
TITLE ICHAR - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ICHAR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ICHAR.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ICHAR) ;Define the entry point
EXTERN ICHAR., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ICHAR. ;Call the correct (dotted) name
PRGEND ;End of routine ICHAR
TITLE IDIM - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDIM.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IDIM) ;Define the entry point
EXTERN IDIM., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IDIM. ;Call the correct (dotted) name
PRGEND ;End of routine IDIM
TITLE IDINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IDINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IDINT) ;Define the entry point
EXTERN IDINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IDINT. ;Call the correct (dotted) name
PRGEND ;End of routine IDINT
TITLE IDNINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IDNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDNIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IDNINT) ;Define the entry point
EXTERN IDNIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IDNIN. ;Call the correct (dotted) name
PRGEND ;End of routine IDNINT
TITLE IEOR - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IEOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IEOR.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IEOR) ;Define the entry point
EXTERN IEOR., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IEOR. ;Call the correct (dotted) name
PRGEND ;End of routine IEOR
TITLE IFIX - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IFIX (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IFIX.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IFIX) ;Define the entry point
EXTERN IFIX., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IFIX. ;Call the correct (dotted) name
PRGEND ;End of routine IFIX
TITLE IGINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IGINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IGINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IGINT) ;Define the entry point
EXTERN IGINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IGINT. ;Call the correct (dotted) name
PRGEND ;End of routine IGINT
TITLE IGNIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IGNIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IGNIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IGNIN) ;Define the entry point
EXTERN IGNIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IGNIN. ;Call the correct (dotted) name
PRGEND ;End of routine IGNIN
TITLE INDEX - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL INDEX (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to INDEX.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (INDEX) ;Define the entry point
EXTERN INDEX., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST INDEX. ;Call the correct (dotted) name
PRGEND ;End of routine INDEX
TITLE INT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL INT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to INT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (INT) ;Define the entry point
EXTERN INT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST INT. ;Call the correct (dotted) name
PRGEND ;End of routine INT
TITLE IOR - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL IOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IOR.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IOR) ;Define the entry point
EXTERN IOR., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST IOR. ;Call the correct (dotted) name
PRGEND ;End of routine IOR
TITLE ISHFTC - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ISHFTC (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ISHFC.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ISHFTC) ;Define the entry point
EXTERN ISHFC., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ISHFC. ;Call the correct (dotted) name
PRGEND ;End of routine ISHFTC
TITLE ISHFT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ISHFT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ISHFT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ISHFT) ;Define the entry point
EXTERN ISHFT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ISHFT. ;Call the correct (dotted) name
PRGEND ;End of routine ISHFT
TITLE ISIGN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL ISIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ISIGN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ISIGN) ;Define the entry point
EXTERN ISIGN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ISIGN. ;Call the correct (dotted) name
PRGEND ;End of routine ISIGN
TITLE LEN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL LEN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to LEN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (LEN) ;Define the entry point
EXTERN LEN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST LEN. ;Call the correct (dotted) name
PRGEND ;End of routine LEN
TITLE LGE - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 18-Jun-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL LGE (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to LGE.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (LGE) ;Define the entry point
EXTERN LGE., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST LGE. ;Call the correct (dotted) name
PRGEND ;End of routine LGE
TITLE LGT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 18-Jun-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL LGT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to LGT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (LGT) ;Define the entry point
EXTERN LGT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST LGT. ;Call the correct (dotted) name
PRGEND ;End of routine LGT
TITLE LLE - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 18-Jun-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL LLE (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to LLE.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (LLE) ;Define the entry point
EXTERN LLE., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST LLE. ;Call the correct (dotted) name
PRGEND ;End of routine LLE
TITLE LLT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 18-Jun-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL LLT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to LLT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (LLT) ;Define the entry point
EXTERN LLT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST LLT. ;Call the correct (dotted) name
PRGEND ;End of routine LLT
TITLE LOG - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL LOG (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ALOG.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (LOG) ;Define the entry point
EXTERN ALOG., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ALOG. ;Call the correct (dotted) name
PRGEND ;End of routine LOG
TITLE LOG10 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL LOG10 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ALOG10.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (LOG10) ;Define the entry point
EXTERN ALOG., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST ALOG. ;Call the correct (dotted) name
PRGEND ;End of routine LOG10
TITLE MAX - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MAX (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMAX1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MAX) ;Define the entry point
EXTERN AMAX1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AMAX1. ;Call the correct (dotted) name
PRGEND ;End of routine MAX
TITLE MAX0 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MAX0.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MAX0) ;Define the entry point
EXTERN MAX0., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST MAX0. ;Call the correct (dotted) name
PRGEND ;End of routine MAX0
TITLE MAX1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MAX1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MAX1) ;Define the entry point
EXTERN MAX1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST MAX1. ;Call the correct (dotted) name
PRGEND ;End of routine MAX1
TITLE MIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMIN1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MIN) ;Define the entry point
EXTERN AMIN1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST AMIN1. ;Call the correct (dotted) name
PRGEND ;End of routine MIN
TITLE MIN0 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MIN0.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MIN0) ;Define the entry point
EXTERN MIN0., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST MIN0. ;Call the correct (dotted) name
PRGEND ;End of routine MIN0
TITLE MIN1 - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MIN1.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MIN1) ;Define the entry point
EXTERN MIN1., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST MIN1. ;Call the correct (dotted) name
PRGEND ;End of routine MIN1
TITLE MOD - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MOD.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MOD) ;Define the entry point
EXTERN MOD., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST MOD. ;Call the correct (dotted) name
PRGEND ;End of routine MOD
TITLE MVBITS - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 15-NOV-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4167]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL MVBITS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MVBITS.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (MVBITS) ;Define the entry point
EXTERN MVBIT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST MVBIT. ;Call the correct (dotted) name
PRGEND ;End of routine MVBITS
TITLE NINT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL NINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to NINT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (NINT) ;Define the entry point
EXTERN NINT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST NINT. ;Call the correct (dotted) name
PRGEND ;End of routine NINT
TITLE REAL - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL REAL (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to REAL.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (REAL) ;Define the entry point
EXTERN REAL., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST REAL. ;Call the correct (dotted) name
PRGEND ;End of routine REAL
TITLE SAVRAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SAVRAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to SVRAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SAVRAN) ;Define the entry point
EXTERN SVRAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFX ;Yes; display the compatibility message
PJRST SVRAN. ;Call the correct (dotted) name
PRGEND ;End of routine SAVRAN
TITLE SETRAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4130]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SETRAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to STRAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SETRAN) ;Define the entry point
EXTERN STRAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFX ;Yes; display the compatibility message
PJRST STRAN. ;Call the correct (dotted) name
PRGEND ;End of routine SETRAN
TITLE SIGN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to SIGN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SIGN) ;Define the entry point
EXTERN SIGN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST SIGN. ;Call the correct (dotted) name
PRGEND ;End of routine SIGN
TITLE SIN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SIN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to SIN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SIN) ;Define the entry point
EXTERN SIN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST SIN. ;Call the correct (dotted) name
PRGEND ;End of routine SIN
TITLE SIND - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SIND (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to SIND.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SIND) ;Define the entry point
EXTERN SIND., FLGON. ;Define external symbols
SKIPE [FLGON.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST SIND. ;Call the correct (dotted) name
PRGEND ;End of routine SIND
TITLE SINH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SINH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to SINH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SINH) ;Define the entry point
EXTERN SINH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST SINH. ;Call the correct (dotted) name
PRGEND ;End of routine SINH
TITLE SNGL - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SNGL (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to SNGL.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SNGL) ;Define the entry point
EXTERN SNGL., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST SNGL. ;Call the correct (dotted) name
PRGEND ;End of routine SNGL
TITLE SQRT - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL SQRT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to SQRT.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (SQRT) ;Define the entry point
EXTERN SQRT., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST SQRT. ;Call the correct (dotted) name
PRGEND ;End of routine SQRT
TITLE TAN - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL TAN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to TAN.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (TAN) ;Define the entry point
EXTERN TAN., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST TAN. ;Call the correct (dotted) name
PRGEND ;End of routine TAN
TITLE TANH - Make dotted symbol for math library function calls
SUBTTL Mike Boucher /MRB 28-Feb-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4100]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if VAX compatibility flagging is turned
; on) that the calling sequence he has used is incompatible with the
; VAX calling sequence for the Math Library functions. After the
; message is output the correct Math Library function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; CALL TANH (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to TANH.
;
; IMPLICIT INPUTS:
;
; FLXVX. If this symbol is defined (as -1) the VAX
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; None
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (TANH) ;Define the entry point
EXTERN TANH., FLGV. ;Define external symbols
SKIPE [FLGV.] ;Is VAX compatbility flagging on ?
$FCALL CFF ;Yes; display the compatibility message
PJRST TANH. ;Call the correct (dotted) name
PRGEND ;End of routine TANH
TITLE IIABS - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IABS.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIABS) ;Define the entry point
EXTERN IABS., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IABS. ;Call the correct (dotted) name
PRGEND
TITLE JIABS - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIABS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IABS.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIABS) ;Define the entry point
EXTERN IABS., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IABS. ;Call the correct (dotted) name
PRGEND
TITLE IINT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to INT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IINT) ;Define the entry point
EXTERN INT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST INT. ;Call the correct (dotted) name
PRGEND
TITLE JINT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to INT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JINT) ;Define the entry point
EXTERN INT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST INT. ;Call the correct (dotted) name
PRGEND
TITLE IIDINT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIDINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDINT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIDINT) ;Define the entry point
EXTERN IDINT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IDINT. ;Call the correct (dotted) name
PRGEND
TITLE JIDINT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIDINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDINT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIDINT) ;Define the entry point
EXTERN IDINT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IDINT. ;Call the correct (dotted) name
PRGEND
TITLE ININT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = ININT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to NINT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (ININT) ;Define the entry point
EXTERN NINT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST NINT. ;Call the correct (dotted) name
PRGEND
TITLE JNINT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JNINT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to NINT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JNINT) ;Define the entry point
EXTERN NINT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST NINT. ;Call the correct (dotted) name
PRGEND
TITLE IIDNNT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIDNNT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDNIN.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIDNNT) ;Define the entry point
EXTERN IDNIN., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IDNIN. ;Call the correct (dotted) name
PRGEND
TITLE JIDNNT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIDNNT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDNIN.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIDNNT) ;Define the entry point
EXTERN IDNIN., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IDNIN. ;Call the correct (dotted) name
PRGEND
TITLE FLOATI - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = FLOATI (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to FLOAT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (FLOATI) ;Define the entry point
EXTERN FLOAT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST FLOAT. ;Call the correct (dotted) name
PRGEND
TITLE FLOATJ - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = FLOATJ (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to FLOAT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (FLOATJ) ;Define the entry point
EXTERN FLOAT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST FLOAT. ;Call the correct (dotted) name
PRGEND
TITLE IIFIX - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIFIX (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IFIX.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIFIX) ;Define the entry point
EXTERN IFIX., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IFIX. ;Call the correct (dotted) name
PRGEND
TITLE JIFIX - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIFIX (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IFIX.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIFIX) ;Define the entry point
EXTERN IFIX., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IFIX. ;Call the correct (dotted) name
PRGEND
TITLE DFLOTI - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = DFLOTI (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DFLOT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DFLOTI) ;Define the entry point
EXTERN DFLOT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST DFLOT. ;Call the correct (dotted) name
PRGEND
TITLE DFLOTJ - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = DFLOTJ (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to DFLOT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (DFLOTJ) ;Define the entry point
EXTERN DFLOT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST DFLOT. ;Call the correct (dotted) name
PRGEND
TITLE IMAX0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MAX0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IMAX0) ;Define the entry point
EXTERN MAX0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MAX0. ;Call the correct (dotted) name
PRGEND
TITLE JMAX0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MAX0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JMAX0) ;Define the entry point
EXTERN MAX0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MAX0. ;Call the correct (dotted) name
PRGEND
TITLE IMAX1 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MAX1.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IMAX1) ;Define the entry point
EXTERN MAX1., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MAX1. ;Call the correct (dotted) name
PRGEND
TITLE JMAX1 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JMAX1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MAX1.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JMAX1) ;Define the entry point
EXTERN MAX1., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MAX1. ;Call the correct (dotted) name
PRGEND
TITLE AIMAX0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = AIMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMAX0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AIMAX0) ;Define the entry point
EXTERN AMAX0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST AMAX0. ;Call the correct (dotted) name
PRGEND
TITLE AJMAX0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = AJMAX0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMAX0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AJMAX0) ;Define the entry point
EXTERN AMAX0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST AMAX0. ;Call the correct (dotted) name
PRGEND
TITLE IMIN0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MIN0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IMIN0) ;Define the entry point
EXTERN MIN0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MIN0. ;Call the correct (dotted) name
PRGEND
TITLE JMIN0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MIN0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JMIN0) ;Define the entry point
EXTERN MIN0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MIN0. ;Call the correct (dotted) name
PRGEND
TITLE IMIN1 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MIN1.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IMIN1) ;Define the entry point
EXTERN MIN1., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MIN1. ;Call the correct (dotted) name
PRGEND
TITLE JMIN1 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JMIN1 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MIN1.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JMIN1) ;Define the entry point
EXTERN MIN1., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MIN1. ;Call the correct (dotted) name
PRGEND
TITLE AIMIN0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = AIMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMIN0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AIMIN0) ;Define the entry point
EXTERN AMIN0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST AMIN0. ;Call the correct (dotted) name
PRGEND
TITLE AJMIN0 - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = AJMIN0 (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to AMIN0.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (AJMIN0) ;Define the entry point
EXTERN AMIN0., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST AMIN0. ;Call the correct (dotted) name
PRGEND
TITLE IIDIM - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDIM.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIDIM) ;Define the entry point
EXTERN IDIM., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IDIM. ;Call the correct (dotted) name
PRGEND
TITLE JIDIM - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIDIM (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IDIM.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIDIM) ;Define the entry point
EXTERN IDIM., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IDIM. ;Call the correct (dotted) name
PRGEND
TITLE IMOD - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MOD.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IMOD) ;Define the entry point
EXTERN MOD., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MOD. ;Call the correct (dotted) name
PRGEND
TITLE JMOD - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JMOD (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to MOD.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JMOD) ;Define the entry point
EXTERN MOD., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST MOD. ;Call the correct (dotted) name
PRGEND
TITLE IISIGN - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IISIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ISIGN.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IISIGN) ;Define the entry point
EXTERN ISIGN., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST ISIGN. ;Call the correct (dotted) name
PRGEND
TITLE JISIGN - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JISIGN (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ISIGN.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JISIGN) ;Define the entry point
EXTERN ISIGN., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST ISIGN. ;Call the correct (dotted) name
PRGEND
TITLE BITEST - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = BITEST (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to BTEST.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (BITEST) ;Define the entry point
EXTERN BTEST., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST BTEST. ;Call the correct (dotted) name
PRGEND
TITLE BJTEST - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = BJTEST (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to BTEST.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (BJTEST) ;Define the entry point
EXTERN BTEST., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST BTEST. ;Call the correct (dotted) name
PRGEND
TITLE IIAND - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIAND (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IAND.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIAND) ;Define the entry point
EXTERN IAND., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IAND. ;Call the correct (dotted) name
PRGEND
TITLE JIAND - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIAND (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IAND.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIAND) ;Define the entry point
EXTERN IAND., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IAND. ;Call the correct (dotted) name
PRGEND
TITLE IIBCLR - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIBCLR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBCLR.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIBCLR) ;Define the entry point
EXTERN IBCLR., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IBCLR. ;Call the correct (dotted) name
PRGEND
TITLE JIBCLR - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIBCLR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBCLR.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIBCLR) ;Define the entry point
EXTERN IBCLR., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IBCLR. ;Call the correct (dotted) name
PRGEND
TITLE IIBITS - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIBITS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBITS.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIBITS) ;Define the entry point
EXTERN IBITS., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IBITS. ;Call the correct (dotted) name
PRGEND
TITLE JIBITS - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIBITS (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBITS.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIBITS) ;Define the entry point
EXTERN IBITS., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IBITS. ;Call the correct (dotted) name
PRGEND
TITLE IIBSET - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIBSET (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBSET.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIBSET) ;Define the entry point
EXTERN IBSET., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IBSET. ;Call the correct (dotted) name
PRGEND
TITLE JIBSET - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIBSET (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IBSET.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIBSET) ;Define the entry point
EXTERN IBSET., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IBSET. ;Call the correct (dotted) name
PRGEND
TITLE IIEOR - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIEOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IEOR.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIEOR) ;Define the entry point
EXTERN IEOR., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IEOR. ;Call the correct (dotted) name
PRGEND
TITLE JIEOR - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIEOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IEOR.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIEOR) ;Define the entry point
EXTERN IEOR., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IEOR. ;Call the correct (dotted) name
PRGEND
TITLE IIOR - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IIOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IOR.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IIOR) ;Define the entry point
EXTERN IOR., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IOR. ;Call the correct (dotted) name
PRGEND
TITLE JIOR - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JIOR (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to IOR.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JIOR) ;Define the entry point
EXTERN IOR., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST IOR. ;Call the correct (dotted) name
PRGEND
TITLE IISHFT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = IISHFT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ISHFT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (IISHFT) ;Define the entry point
EXTERN ISHFT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST ISHFT. ;Call the correct (dotted) name
PRGEND
TITLE JISHFT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JISHFT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to ISHFT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JISHFT) ;Define the entry point
EXTERN ISHFT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST ISHFT. ;Call the correct (dotted) name
PRGEND
TITLE INOT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = INOT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to NOT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (INOT) ;Define the entry point
EXTERN NOT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST NOT. ;Call the correct (dotted) name
PRGEND
TITLE JNOT - Do Compatibility Flagging for Function
SUBTTL Randall Meyers/RVM 4-Nov-84
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1984, 1987
;ALL RIGHTS RESERVED.
;++ [4162]Create this routine
; FUNCTIONAL DESCRIPTION:
;
; Routine to warn the user (if ANSI compatibility flagging is
; turned on) that the routine called is incompatible with ANSI-77
; standard. After the message is output the correct Math Library
; function is called.
;
; CALLING SEQUENCE:
;
; Called from users FORTRAN program.
;
; I = JNOT (arg,arg,...)
;
; INPUT PARAMETERS:
;
; All parameters are passed on to NOT.
;
; IMPLICIT INPUTS:
;
; FLG77. If this symbol is defined (as -1) the ANSI
; compatibility flagger is ON
;
; OUTPUT PARAMETERS:
;
; None
;
; IMPLICIT OUTPUTS:
;
; None
;
; FUNCTION VALUE:
;
; None
;
; SIDE EFFECTS:
;
; Compatibility flagging is done.
;
;--
SEARCH MTHPRM, FORPRM ;Get universal symbols
SEGMENT CODE ;
SALL ;Supress macro expansion in listing
NOSYM ;Supress symbol table in listing file
HELLO (JNOT) ;Define the entry point
EXTERN NOT., FLG77. ;Define external symbols
SKIPE [FLG77.] ;Is ANSI compatbility flagging on ?
$FCALL CFR ;Yes; display the compatibility message
PJRST NOT. ;Call the correct (dotted) name
PRGEND
TITLE DUMVAX
;++ ;[4204]
; THIS MODULE IS LINKED IF THE VAX FLAGGER IS NOT INVOKED
;--
ENTRY FLGV.
FLGV.==0
PRGEND
TITLE DUMF77
;++ ;[4204]
; THIS MODULE IS LINKED IF THE ANSI-77 FLAGGER IS NOT INVOKED
;--
ENTRY FLG77.
FLG77.==0
PRGEND
END ;[5024]End of module FORCOM