MSYM* EQU 4000 $(4) N0ARAY* . DUMMY ENTRY FOR START OF ARRAYS SYM* . NTIFG EQU 27 . 473000 . TSEDIT $(4). COMMON /SYMZ/ TSEDIT . TSEDIT NTIF EQU 66 RES 4*(NTIF+NTIFG+50) . THIS SPACE IN SYM WILL BE FILLETSEDIT . TSEDIT IN11 +0350000,0 . THIS TABLE IS USED TO INITIALIZE THE SYMBOL TABLE WITH FIRST WORDS 3043 TIFN* RES 0 TABLE OF INTRINSIC NAMES 30431 '$ARAYS' +'ABS ' 1 3044 +'IABS ' 2 3045 +'AINT ' 3 3046 +'INT ' 4 3047 +'AMOD ' 5 3048 + 'MOD ' 6 304900 +'AMAX0 ' 7 3050 +'AMAX1 ' 10 3051 +'MAX0 ' 11 3052 +'MAX1 ' 12 3053 +'AMIN0 ' 13 3054 +'AMIN1 ' 14 3055 +'MIN0 ' 15 3056 +'MIN1 ' 16 3057 +'FLOAT ' 17 3058 +'IFIX ' 20 3059 +'SIGN ' 21 3060 +'ISIGN ' 22 3061 +'DIM ' 23 3062 +'IDIM ' 24 3063 +'SNGL ' 25 3064 + 'IDINT ' 26 306410 +'REAL ' 27 3065 +'CMPLX ' 30 3066 +'CONJG ' 31 3067 +'DMOD ' 32 + 'MAX ' 33 BVER1 + 'MIN ' 34 BVER1 +'DMAX1 ' 36 3069 +'DMIN1 ' 37 3070 + 'AIMAG ' 40 307100 +'DBLE ' 41 3072 +'DSIGN ' 43 3073 +'LOC ' 44 +'DFLOAT' +'DDIM ' + 'DINT ' 53 307350 +'DABS ' 54 3074 +'CABS ' 55 +'FLD ' 56 +'AND ' 57 +'OR ' 60 +'COMPL ' 61 +'BOOL ' 62 + 'XOR ' 64 BVER1 TIFN67* 'FIX$$ ' SAME AS IFIX TIFN69* 'FLT$$ ' . SAME AS FLOAT +'FLD$ ' . FLD THAT CROSSES WORD BOUNDARY +'BITS ' . FTN BIT FUNCTION . THIS TABLE IS USED TO INITIALIZE THE SYMBOL TABLE WITH THE . AUTOMATIC MODE TYPE MATH FUNCTIONS + 'EXP ' 1 BVER1 + 'LOG ' 4 BVER1 + 'LOG10 ' 10 BVER1 + 'ASIN ' 13 BVER1 + 'ACOS ' 15 BVER1 + 'ATAN ' 17 BVER1 + 'ATAN2 ' 21 BVER1 + 'SIN ' 23 BVER1 + 'COS ' 26 BVER1 + 'TAN ' 31 BVER1 + 'SINH ' 34 BVER1 + 'COSH ' 37 BVER1 + 'TANH ' 42 BVER1 + 'SQRT ' 45 BVER1 + 'CBRT ' 50 BVER1 TIFN5 +'DEXP ' 2 +'CEXP ' 3 +'ALOG ' +'DLOG ' 6 +'CLOG ' 7 +'ALOG10' +'DLOG10' 12 +'DASIN ' 14 +'DACOS ' 16 +'DATAN ' 20 +'DATAN2' 24 +'DSIN ' 24 +'CSIN ' 25 +'DCOS ' 27 +'CCOS ' 30 +'DTAN ' 32 +'CTAN ' 33 +'DSINH ' 35 +'CSINH ' 36 +'DCOSH ' 40 +'CCOSH ' 41 +'DTANH ' 43 +'CTANH ' 44 +'DSQRT ' 46 +'CSQRT ' 47 +'DCBRT ' 51 +'CCBRT ' 52 + 'COTAN ' 53 + 'DCOTAN' 54 . THIS TABLE IS USED TO INITIALIZE THE THIRD WORD OF SYMBOL TABLE 3008 F2 FORM 15,3,6,6,6 3009 TIFW3* RES 0 TABLE OF 3RD WD ENTRIES 30091 +0 F2 2,6,0,1,0 ABS 3010 F2 1,6,0,2,0 IABS 3011 F2 2,6,0,3,0 AINT 3012 F2 1,6,0,4,0 INT 3013 F2 2,6,0,5,1 AMOD 3015 F2 1,6,0,6,1 MOD 3014 F2 2,6,0,7,2 AMAX0 3016 F2 2,6,0,010,2 AMAX1 3017 F2 1,6,0,011,2 MAX0 3018 F2 1,6,0,012,2 MAX1 3019 F2 2,6,0,013,3 AMIN0 3020 F2 2,6,0,014,3 AMIN1 3021 F2 1,6,0,015,3 MIN0 3022 F2 1,6,0,016,3 MIN1 3023 F2 2,6,0,017,0 FLOAT 3024 F2 1,6,0,020,0 IFIX 3025 F2 2,6,0,021,4 SIGN 3026 F2 1,6,0,022,4 ISIGN 3027 F2 2,6,0,023,5 D1M F2 1,6,0,024,5 IDIM 3029 F2 2,6,0,025,0 SNGL 3030 F2 1,6,0,026,0 IDINT 303050 F2 2,6,0,027,0 REAL 3031 F2 4,6,0,030,6 CMPLX F2 4,6,0,031,0 CONJG 3033 F2 3,6,0,032,1 F2 1,6,0,033,2 MAX BVER1 F2 1,6,0,034,3 MIN BVER1 F2 3,6,0,036,2 DMAX1 3035 F2 3,6,0,037,3 DMIN1 3036 F2 2,6,0,040,0 AIMG 3037 F2 3,6,0,041,0 DBLE 3038 F2 3,6,0,043,4 DSIGN 3039 F2 1,6,0,044,0 LOC F2 3,6,0,047,0 DFLOAT F2 3,6,0,050,5 F2 3,6,0,053,0 DINT 303910 F2 3,6,0,054,0 DABS 3040 F2 2,6,0,055,0 CABS F2 1,6,0,056,7 FLD BVER1 F2 6,6,0,057,011 AND BVER1 F2 6,6,0,060,012 OR BVER1 F2 6,6,0,061,0 COMPL BVER1 F2 6,6,0,062,0 BOOL BVER1 F2 6,6,0,063,013 XQR F2 1,6,0,020,0 FIX$$ SAME AS IFIX F2 2,6,0,017,0 . FLT$$ SAME AS FLOAT F2 1,6,0,056,7 . FLD$ SAME AS FLD F2 1,6,0,056,7 . BITS SAME AS FLD F2 2,6,077,1,0 EXP BVER1 F2 2,6,077,4,0 LOG BVER1 F2 2,6,077,010,0 LOG10 BVER1 F2 2,6,077,013,0 ASIN BVER1 F2 2,6,077,015,0 ACOS BVER1 F2 2,6,077,017,0 ATAN BVER1 F2 2,6,077,021,0 ATAN2 BVER1 F2 2,6,077,023,0 SIN BVER1 F2 2,6,077,026,0 COS BVER1 F2 2,6,077,031,0 TAN BVER1 F2 2,6,077,034,0 SINH BVER1 F2 2,6,077,037,0 COSH BVER1 F2 2,6,077,042,0 TANH BVER1 F2 2,6,077,045,0 SQRT BVER1 F2 2,6,077,050,0 CBRT BVER1 F2 3,6,077,2,0 DEXP F2 4,6,077,3,0 CEXP F2 2,6,077,5,0 F2 3,6,077,6,0 DLOG F2 4,6,077,7,0 CLOG F2 2,6,077,011,0 ALOG10 F2 3,6,077,012,0 DLOG10 F2 3,6,077,014,0 DASIN F2 3,6,077,016,0 DACOS F2 3,6,077,020,0 DATAN F2 3,6,077,022,0 DATAN2 F2 3,6,077,024,0 DSIN F2 4,6,077,025,0 CSIN F2 3,6,077,027,0 DCOS F2 4,6,077,030,0 CCOS F2 3,6,077,032,0 DTAN F2 4,6,077,033,0 CTAN F2 3,6,077,035,0 DSINH F2 4,6,077,036,0 CSINH F2 3,6,077,040,0 DCOSH F2 4,6,077,041,0 CCOSH F2 3,6,077,043,0 DTANH F2 4,6,077,044,0 CTANH F2 3,6,077,046,0 DSQRT F2 4,6,077,047,0 CSQRT F2 3,6,077,051,0 DCBRT F2 4,6,077,052,0 CCBRT F2 2,6,077,053,0 COTAN F2 3,6,077,054,0 DCOTAN FI FORM 6,6,6,6,6,6 307700 TIFW4* RES 0 TABLE OF 4TH WD ENTRIES 30771 +0 FI 2,0,054,055,1,0 ABS 307800 FI 0,1,054,055,1,0 IABS 3079 FI 076,0,053,077,1,0 AINT 3080 FI 076,0,053,077,1,0 INT 3081 + 0767676770022 AMOD + 0767676770022 MOD + 0767676770022 AMAX0 + 0767676770022 AMAX1 + 0767676770022 MAX0 + 0767676770022 MAX1 + 0767676770022 AMIN0 + 0767676770022 AMIN1 + 0767676770022 MIN0 + 0767676770022 MIN1 FI 0,076,025,027,1,0 FLOAT 3092 FI 076,0,026,046,1,0 IFIX 3093 + 0767676760014 SIGN + 0767676760014 ISIGN + 0767676770022 DIM + 0767676770022 IDIM FI 017,076,0,027,1,0 SNGL 3098 FI 076,020,0,046,1,0 IDINT 309850 FI 017,076,025,0,1,0 REAL 3100 + 0767676760025 COMPLX FI 077,077,077,0,1,0 CONJG 3102 + 0767676770022 DMOD + 0767676770022 MAX BVER1 + 0767676770022 MIN BVER1 +0767676770022 DMAX1 +0767676770022 DMIN1 FI 074,074,077,0,1,0 AIMAG FI 047,0,076,077,1,0 DBLE 3110 + 0767676760014 DSIGN + 025 LOC + 0004176770100 DFLOAT + 0767676770022 DDIM FI 076,3,0,077,1,0 DINT 311310 FI 02,01,0,055,1,0 DABS BVER1 +020100550100 + 20 FLD BVER1 + 0767676760025 AND BVER1 + 0767676760025 OR BVER1 + 21 COMPL BVER1 + 21 BOOL BVER1 + 0767676760025 XOR BVER1 FI 076,0,026,046,1,0 FIX$$ IS SAME AS IFIX FI 0,076,025,027,1,0 . FLT$$ SAME AS FLOAT +20 . FLD$ BEHAVES AS FLD +20 . BITS BEHAVES AS FLD + 0750002030100 EXP BVER1 + 0750506070100 LOG BVER1 + 0751112770100 LOG10 BVER1 + 0750014770100 ASIN BVER1 + 0750016770100 ACOS BVER1 + 0750020770100 ATAN BVER1 + 0750022770022 ATAN2 BVER1 + 0750024250100 SIN BVER1 + 0750027300100 COS BVER1 + 0750032330100 TAN BVER1 + 0750035360100 SINH BVER1 + 0750040410100 COSH BVER2 + 0750043440100 TANH BVER1 + 0750046470100 SQRT BVER1 + 0750051520100 CBRT BVER1 TIFN6 +0750102030100 DEXP +0750102030100 CEXP +0750506070100 +0750506070100 DLOG +0750506070100 CLOG +0751112770100 +0751112770100 DLOG10 +0751314770100 DASIN +0751516770100 DACOS +0751720770100 DATAN +0752122770022 DATAN2 +0752324250100 DSIN +0752324250100 CSIN +0752627300100 DCOS +0752627300100 CCOS +0753132330100 DTAN +0753132330100 CTAN +0753435360100 DSINH +0753435360100 CSINH +0753740410100 DCOSH +0753740410100 CCOSH +0754243440100 DTANH +0754243440100 CTANH +0754546470100 DSQRT +0754546470100 CSQRT 0755051520100 DCBRT +0755051520100 CCBRT +0750054770100 COTAN +0755354770100 DCOTAN NTIFX* EQU NTIF+NTIFG-1 RES MSYM-$ SYMZ INFO 2 4 END