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