home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / g77-0.5.15-src.tgz / tar.out / fsf / g77 / f / intrin.def < prev    next >
Text File  |  1996-09-28  |  108KB  |  4,697 lines
  1. /* intrin.def -- Public #include File (module.h template V1.0)
  2.    Copyright (C) 1995 Free Software Foundation, Inc.
  3.    Contributed by James Craig Burley (burley@gnu.ai.mit.edu).
  4.  
  5. This file is part of GNU Fortran.
  6.  
  7. GNU Fortran is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2, or (at your option)
  10. any later version.
  11.  
  12. GNU Fortran is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with GNU Fortran; see the file COPYING.  If not, write to
  19. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21.    Owning Modules:
  22.       intrin.c
  23.  
  24.    Modifications:
  25. */
  26.  
  27. /* Throughout this file, g77 internal codes often use the following
  28.    letters to mean the following types:
  29.  
  30.    I -- INTEGER*4
  31.    J -- INTEGER*2
  32.    K -- INTEGER*1
  33.    R -- REAL*4
  34.    D -- REAL*8
  35.    Q -- REAL*16
  36.    C -- COMPLEX*8
  37.    E -- COMPLEX*16
  38.    F -- COMPLEX*32
  39.    A -- CHARACTER
  40.    L -- LOGICAL*4
  41.    M -- LOGICAL*2
  42.    N -- LOGICAL*1
  43.    B -- Boolean (INTEGER or LOGICAL)
  44.  
  45.    Note that the above aren't blessed by any standard, and conflict
  46.    in some ways with various popular compilers (e.g. VAX/VMS FORTRAN
  47.    switches I and J; f2c/f77 uses Z instead of E).  But it makes sense
  48.    to pick one naming convention for internal use and stick to it, and
  49.    have intrinsic-name and library-name issues be separate.
  50.  
  51.    FFEINTRIN_genXYZZY and FFEINTRIN_specXYZZY are keywords referring
  52.    to XYZZY as external (i.e. user-visible) names, while FFEINTRIN_gen_XYZZY,
  53.    FFEINTRIN_spec_XYZZY, and FFEINTRIN_impXYZZY all are keywords referring
  54.    to XYZZY as g77-internal and thus XYZZY is named according to the
  55.    above mapping.
  56.  
  57.    So the keyword FFEINTRIN_specJFOO refers to some language's definition
  58.    of JFOO, thus that language's use of J prevails for that keyword
  59.    (e.g. for VAX FORTRAN, it means INTEGER*4), whereas the keyword
  60.    FFEINTRIN_spec_JFOO_C, being an internal name, refers to g77's
  61.    definition of _JFOO_C, thus it means it's a FOO taking COMPLEX args
  62.    and returning INTEGER*2.  Sigh.  Being compatible is really annoying!  */
  63.  
  64. /* Generic intrinsics listed in any order.
  65.    This list corresponds to the names of generic intrinsics as seen
  66.    in source code, and should thus be consulted only when an intrinsic
  67.    invocation of the form "MAYBEGENERIC(...)" or "INTRINSIC MAYBEGENERIC"
  68.    is seen.  */
  69.  
  70. DEFGEN (FFEINTRIN_genABS, "ABS",
  71.     FFEINTRIN_specIABS,
  72.     FFEINTRIN_specABS,
  73.     FFEINTRIN_specDABS,
  74.     FFEINTRIN_specCABS,
  75.     FFEINTRIN_specIIABS,
  76.     FFEINTRIN_specJIABS,
  77.     FFEINTRIN_specQABS,
  78.     FFEINTRIN_specCDABS,
  79.     FFEINTRIN_specZABS,
  80.     FFEINTRIN_specNONE,
  81.     FFEINTRIN_specNONE,
  82.     FFEINTRIN_specNONE,
  83.     FFEINTRIN_specNONE,
  84.     FFEINTRIN_specNONE
  85.   )
  86. DEFGEN (FFEINTRIN_genACOS, "ACOS",
  87.     FFEINTRIN_specACOS,
  88.     FFEINTRIN_specDACOS,
  89.     FFEINTRIN_specQACOS,
  90.     FFEINTRIN_specNONE,
  91.     FFEINTRIN_specNONE,
  92.     FFEINTRIN_specNONE,
  93.     FFEINTRIN_specNONE,
  94.     FFEINTRIN_specNONE,
  95.     FFEINTRIN_specNONE,
  96.     FFEINTRIN_specNONE,
  97.     FFEINTRIN_specNONE,
  98.     FFEINTRIN_specNONE,
  99.     FFEINTRIN_specNONE,
  100.     FFEINTRIN_specNONE
  101.   )
  102. DEFGEN (FFEINTRIN_genAINT, "AINT",
  103.     FFEINTRIN_specAINT,
  104.     FFEINTRIN_specDINT,
  105.     FFEINTRIN_specQINT,
  106.     FFEINTRIN_specNONE,
  107.     FFEINTRIN_specNONE,
  108.     FFEINTRIN_specNONE,
  109.     FFEINTRIN_specNONE,
  110.     FFEINTRIN_specNONE,
  111.     FFEINTRIN_specNONE,
  112.     FFEINTRIN_specNONE,
  113.     FFEINTRIN_specNONE,
  114.     FFEINTRIN_specNONE,
  115.     FFEINTRIN_specNONE,
  116.     FFEINTRIN_specNONE
  117.   )
  118. DEFGEN (FFEINTRIN_genANINT, "ANINT",
  119.     FFEINTRIN_specANINT,
  120.     FFEINTRIN_specDNINT,
  121.     FFEINTRIN_specQNINT,
  122.     FFEINTRIN_specNONE,
  123.     FFEINTRIN_specNONE,
  124.     FFEINTRIN_specNONE,
  125.     FFEINTRIN_specNONE,
  126.     FFEINTRIN_specNONE,
  127.     FFEINTRIN_specNONE,
  128.     FFEINTRIN_specNONE,
  129.     FFEINTRIN_specNONE,
  130.     FFEINTRIN_specNONE,
  131.     FFEINTRIN_specNONE,
  132.     FFEINTRIN_specNONE
  133.   )
  134. DEFGEN (FFEINTRIN_genASIN, "ASIN",
  135.     FFEINTRIN_specASIN,
  136.     FFEINTRIN_specDASIN,
  137.     FFEINTRIN_specQASIN,
  138.     FFEINTRIN_specNONE,
  139.     FFEINTRIN_specNONE,
  140.     FFEINTRIN_specNONE,
  141.     FFEINTRIN_specNONE,
  142.     FFEINTRIN_specNONE,
  143.     FFEINTRIN_specNONE,
  144.     FFEINTRIN_specNONE,
  145.     FFEINTRIN_specNONE,
  146.     FFEINTRIN_specNONE,
  147.     FFEINTRIN_specNONE,
  148.     FFEINTRIN_specNONE
  149.   )
  150. DEFGEN (FFEINTRIN_genATAN, "ATAN",
  151.     FFEINTRIN_specATAN,
  152.     FFEINTRIN_specDATAN,
  153.     FFEINTRIN_specQATAN,
  154.     FFEINTRIN_specNONE,
  155.     FFEINTRIN_specNONE,
  156.     FFEINTRIN_specNONE,
  157.     FFEINTRIN_specNONE,
  158.     FFEINTRIN_specNONE,
  159.     FFEINTRIN_specNONE,
  160.     FFEINTRIN_specNONE,
  161.     FFEINTRIN_specNONE,
  162.     FFEINTRIN_specNONE,
  163.     FFEINTRIN_specNONE,
  164.     FFEINTRIN_specNONE
  165.   )
  166. DEFGEN (FFEINTRIN_genATAN2, "ATAN2",
  167.     FFEINTRIN_specATAN2,
  168.     FFEINTRIN_specDATAN2,
  169.     FFEINTRIN_specQATAN2,
  170.     FFEINTRIN_specNONE,
  171.     FFEINTRIN_specNONE,
  172.     FFEINTRIN_specNONE,
  173.     FFEINTRIN_specNONE,
  174.     FFEINTRIN_specNONE,
  175.     FFEINTRIN_specNONE,
  176.     FFEINTRIN_specNONE,
  177.     FFEINTRIN_specNONE,
  178.     FFEINTRIN_specNONE,
  179.     FFEINTRIN_specNONE,
  180.     FFEINTRIN_specNONE
  181.   )
  182. DEFGEN (FFEINTRIN_genCMPLX, "CMPLX",
  183.     FFEINTRIN_spec_CMPLX_I,
  184.     FFEINTRIN_spec_CMPLX_R,
  185.     FFEINTRIN_spec_CMPLX_D,
  186.     FFEINTRIN_spec_CMPLX_C,
  187.     FFEINTRIN_spec_CMPLX_J,
  188.     FFEINTRIN_spec_CMPLX_Q,
  189.     FFEINTRIN_spec_CMPLX_E,
  190.     FFEINTRIN_specNONE,
  191.     FFEINTRIN_specNONE,
  192.     FFEINTRIN_specNONE,
  193.     FFEINTRIN_specNONE,
  194.     FFEINTRIN_specNONE,
  195.     FFEINTRIN_specNONE,
  196.     FFEINTRIN_specNONE
  197.   )
  198. DEFGEN (FFEINTRIN_genCOS, "COS",
  199.     FFEINTRIN_specCOS,
  200.     FFEINTRIN_specDCOS,
  201.     FFEINTRIN_specCCOS,
  202.     FFEINTRIN_specQCOS,
  203.     FFEINTRIN_specCDCOS,
  204.     FFEINTRIN_specZCOS,
  205.     FFEINTRIN_specNONE,
  206.     FFEINTRIN_specNONE,
  207.     FFEINTRIN_specNONE,
  208.     FFEINTRIN_specNONE,
  209.     FFEINTRIN_specNONE,
  210.     FFEINTRIN_specNONE,
  211.     FFEINTRIN_specNONE,
  212.     FFEINTRIN_specNONE
  213.   )
  214. DEFGEN (FFEINTRIN_genCOSH, "COSH",
  215.     FFEINTRIN_specCOSH,
  216.     FFEINTRIN_specDCOSH,
  217.     FFEINTRIN_specQCOSH,
  218.     FFEINTRIN_specNONE,
  219.     FFEINTRIN_specNONE,
  220.     FFEINTRIN_specNONE,
  221.     FFEINTRIN_specNONE,
  222.     FFEINTRIN_specNONE,
  223.     FFEINTRIN_specNONE,
  224.     FFEINTRIN_specNONE,
  225.     FFEINTRIN_specNONE,
  226.     FFEINTRIN_specNONE,
  227.     FFEINTRIN_specNONE,
  228.     FFEINTRIN_specNONE
  229.   )
  230. DEFGEN (FFEINTRIN_genDBLE, "DBLE",
  231.     FFEINTRIN_spec_DBLE_I,
  232.     FFEINTRIN_spec_DBLE_R,
  233.     FFEINTRIN_spec_DBLE_D,
  234.     FFEINTRIN_spec_DBLE_C,
  235.     FFEINTRIN_spec_DBLE_J,
  236.     FFEINTRIN_specDBLEQ,
  237.     FFEINTRIN_spec_DBLE_E,
  238.     FFEINTRIN_specDBLE,
  239.     FFEINTRIN_specNONE,
  240.     FFEINTRIN_specNONE,
  241.     FFEINTRIN_specNONE,
  242.     FFEINTRIN_specNONE,
  243.     FFEINTRIN_specNONE,
  244.     FFEINTRIN_specNONE
  245.   )
  246. DEFGEN (FFEINTRIN_genDIM, "DIM",
  247.     FFEINTRIN_specIDIM,
  248.     FFEINTRIN_specDIM,
  249.     FFEINTRIN_specDDIM,
  250.     FFEINTRIN_specIIDIM,
  251.     FFEINTRIN_specJIDIM,
  252.     FFEINTRIN_specQDIM,
  253.     FFEINTRIN_specNONE,
  254.     FFEINTRIN_specNONE,
  255.     FFEINTRIN_specNONE,
  256.     FFEINTRIN_specNONE,
  257.     FFEINTRIN_specNONE,
  258.     FFEINTRIN_specNONE,
  259.     FFEINTRIN_specNONE,
  260.     FFEINTRIN_specNONE
  261.   )
  262. DEFGEN (FFEINTRIN_genEXP, "EXP",
  263.     FFEINTRIN_specEXP,
  264.     FFEINTRIN_specDEXP,
  265.     FFEINTRIN_specCEXP,
  266.     FFEINTRIN_specQEXP,
  267.     FFEINTRIN_specCDEXP,
  268.     FFEINTRIN_specZEXP,
  269.     FFEINTRIN_specNONE,
  270.     FFEINTRIN_specNONE,
  271.     FFEINTRIN_specNONE,
  272.     FFEINTRIN_specNONE,
  273.     FFEINTRIN_specNONE,
  274.     FFEINTRIN_specNONE,
  275.     FFEINTRIN_specNONE,
  276.     FFEINTRIN_specNONE
  277.   )
  278. DEFGEN (FFEINTRIN_genIABS, "IABS",
  279.     FFEINTRIN_specIABS,
  280.     FFEINTRIN_specIIABS,
  281.     FFEINTRIN_specJIABS,
  282.     FFEINTRIN_specNONE,
  283.     FFEINTRIN_specNONE,
  284.     FFEINTRIN_specNONE,
  285.     FFEINTRIN_specNONE,
  286.     FFEINTRIN_specNONE,
  287.     FFEINTRIN_specNONE,
  288.     FFEINTRIN_specNONE,
  289.     FFEINTRIN_specNONE,
  290.     FFEINTRIN_specNONE,
  291.     FFEINTRIN_specNONE,
  292.     FFEINTRIN_specNONE
  293.   )
  294. DEFGEN (FFEINTRIN_genINT, "INT",
  295.     FFEINTRIN_spec_INT_I,
  296.     FFEINTRIN_specINT,
  297.     FFEINTRIN_specIDINT,
  298.     FFEINTRIN_spec_INT_C,
  299.     FFEINTRIN_specIINT,
  300.     FFEINTRIN_specJINT,
  301.     FFEINTRIN_specIIDINT,
  302.     FFEINTRIN_specJIDINT,
  303.     FFEINTRIN_specIIQINT,
  304.     FFEINTRIN_specJIQINT,
  305.     FFEINTRIN_spec_JINT_C,
  306.     FFEINTRIN_spec_IINT_C,
  307.     FFEINTRIN_spec_JINT_E,
  308.     FFEINTRIN_spec_IINT_E
  309.   )
  310. DEFGEN (FFEINTRIN_genLOG, "LOG",
  311.     FFEINTRIN_specALOG,
  312.     FFEINTRIN_specDLOG,
  313.     FFEINTRIN_specCLOG,
  314.     FFEINTRIN_specQLOG,
  315.     FFEINTRIN_specCDLOG,
  316.     FFEINTRIN_specZLOG,
  317.     FFEINTRIN_specNONE,
  318.     FFEINTRIN_specNONE,
  319.     FFEINTRIN_specNONE,
  320.     FFEINTRIN_specNONE,
  321.     FFEINTRIN_specNONE,
  322.     FFEINTRIN_specNONE,
  323.     FFEINTRIN_specNONE,
  324.     FFEINTRIN_specNONE
  325.   )
  326. DEFGEN (FFEINTRIN_genLOG10, "LOG10",
  327.     FFEINTRIN_specALOG10,
  328.     FFEINTRIN_specDLOG10,
  329.     FFEINTRIN_specQLOG10,
  330.     FFEINTRIN_specNONE,
  331.     FFEINTRIN_specNONE,
  332.     FFEINTRIN_specNONE,
  333.     FFEINTRIN_specNONE,
  334.     FFEINTRIN_specNONE,
  335.     FFEINTRIN_specNONE,
  336.     FFEINTRIN_specNONE,
  337.     FFEINTRIN_specNONE,
  338.     FFEINTRIN_specNONE,
  339.     FFEINTRIN_specNONE,
  340.     FFEINTRIN_specNONE
  341.   )
  342. DEFGEN (FFEINTRIN_genMAX, "MAX",
  343.     FFEINTRIN_specMAX0,
  344.     FFEINTRIN_specAMAX1,
  345.     FFEINTRIN_specDMAX1,
  346.     FFEINTRIN_specIMAX0,
  347.     FFEINTRIN_specJMAX0,
  348.     FFEINTRIN_specQMAX1,
  349.     FFEINTRIN_specNONE,
  350.     FFEINTRIN_specNONE,
  351.     FFEINTRIN_specNONE,
  352.     FFEINTRIN_specNONE,
  353.     FFEINTRIN_specNONE,
  354.     FFEINTRIN_specNONE,
  355.     FFEINTRIN_specNONE,
  356.     FFEINTRIN_specNONE
  357.   )
  358. DEFGEN (FFEINTRIN_genMIN, "MIN",
  359.     FFEINTRIN_specMIN0,
  360.     FFEINTRIN_specAMIN1,
  361.     FFEINTRIN_specDMIN1,
  362.     FFEINTRIN_specIMIN0,
  363.     FFEINTRIN_specJMIN0,
  364.     FFEINTRIN_specQMIN1,
  365.     FFEINTRIN_specNONE,
  366.     FFEINTRIN_specNONE,
  367.     FFEINTRIN_specNONE,
  368.     FFEINTRIN_specNONE,
  369.     FFEINTRIN_specNONE,
  370.     FFEINTRIN_specNONE,
  371.     FFEINTRIN_specNONE,
  372.     FFEINTRIN_specNONE
  373.   )
  374. DEFGEN (FFEINTRIN_genMOD, "MOD",
  375.     FFEINTRIN_specMOD,
  376.     FFEINTRIN_specAMOD,
  377.     FFEINTRIN_specDMOD,
  378.     FFEINTRIN_specIMOD,
  379.     FFEINTRIN_specJMOD,
  380.     FFEINTRIN_specQMOD,
  381.     FFEINTRIN_specNONE,
  382.     FFEINTRIN_specNONE,
  383.     FFEINTRIN_specNONE,
  384.     FFEINTRIN_specNONE,
  385.     FFEINTRIN_specNONE,
  386.     FFEINTRIN_specNONE,
  387.     FFEINTRIN_specNONE,
  388.     FFEINTRIN_specNONE
  389.   )
  390. DEFGEN (FFEINTRIN_genMVBITS, "MVBITS",
  391.     FFEINTRIN_specMVBITS,
  392.     FFEINTRIN_specNONE,
  393.     FFEINTRIN_specNONE,
  394.     FFEINTRIN_specNONE,
  395.     FFEINTRIN_specNONE,
  396.     FFEINTRIN_specNONE,
  397.     FFEINTRIN_specNONE,
  398.     FFEINTRIN_specNONE,
  399.     FFEINTRIN_specNONE,
  400.     FFEINTRIN_specNONE,
  401.     FFEINTRIN_specNONE,
  402.     FFEINTRIN_specNONE,
  403.     FFEINTRIN_specNONE,
  404.     FFEINTRIN_specNONE
  405.   )
  406. DEFGEN (FFEINTRIN_genNINT, "NINT",
  407.     FFEINTRIN_specNINT,
  408.     FFEINTRIN_specIDNINT,
  409.     FFEINTRIN_specININT,
  410.     FFEINTRIN_specJNINT,
  411.     FFEINTRIN_specIIDNNT,
  412.     FFEINTRIN_specJIDNNT,
  413.     FFEINTRIN_specIIQNNT,
  414.     FFEINTRIN_specJIQNNT,
  415.     FFEINTRIN_specNONE,
  416.     FFEINTRIN_specNONE,
  417.     FFEINTRIN_specNONE,
  418.     FFEINTRIN_specNONE,
  419.     FFEINTRIN_specNONE,
  420.     FFEINTRIN_specNONE
  421.   )
  422. DEFGEN (FFEINTRIN_genREAL, "REAL",
  423.     FFEINTRIN_specREAL,
  424.     FFEINTRIN_specFLOAT,
  425.     FFEINTRIN_spec_REAL_R,
  426.     FFEINTRIN_specSNGL,
  427.     FFEINTRIN_spec_REAL_C,
  428.     FFEINTRIN_specFLOATI,
  429.     FFEINTRIN_specFLOATJ,
  430.     FFEINTRIN_specSNGLQ,
  431.     FFEINTRIN_spec_REAL_E,
  432.     FFEINTRIN_specNONE,
  433.     FFEINTRIN_specNONE,
  434.     FFEINTRIN_specNONE,
  435.     FFEINTRIN_specNONE,
  436.     FFEINTRIN_specNONE
  437.   )
  438. DEFGEN (FFEINTRIN_genSIGN, "SIGN",
  439.     FFEINTRIN_specISIGN,
  440.     FFEINTRIN_specSIGN,
  441.     FFEINTRIN_specDSIGN,
  442.     FFEINTRIN_specIISIGN,
  443.     FFEINTRIN_specJISIGN,
  444.     FFEINTRIN_specQSIGN,
  445.     FFEINTRIN_specNONE,
  446.     FFEINTRIN_specNONE,
  447.     FFEINTRIN_specNONE,
  448.     FFEINTRIN_specNONE,
  449.     FFEINTRIN_specNONE,
  450.     FFEINTRIN_specNONE,
  451.     FFEINTRIN_specNONE,
  452.     FFEINTRIN_specNONE
  453.   )
  454. DEFGEN (FFEINTRIN_genSIN, "SIN",
  455.     FFEINTRIN_specSIN,
  456.     FFEINTRIN_specDSIN,
  457.     FFEINTRIN_specCSIN,
  458.     FFEINTRIN_specQSIN,
  459.     FFEINTRIN_specCDSIN,
  460.     FFEINTRIN_specZSIN,
  461.     FFEINTRIN_specNONE,
  462.     FFEINTRIN_specNONE,
  463.     FFEINTRIN_specNONE,
  464.     FFEINTRIN_specNONE,
  465.     FFEINTRIN_specNONE,
  466.     FFEINTRIN_specNONE,
  467.     FFEINTRIN_specNONE,
  468.     FFEINTRIN_specNONE
  469.   )
  470. DEFGEN (FFEINTRIN_genSINH, "SINH",
  471.     FFEINTRIN_specSINH,
  472.     FFEINTRIN_specDSINH,
  473.     FFEINTRIN_specQSINH,
  474.     FFEINTRIN_specNONE,
  475.     FFEINTRIN_specNONE,
  476.     FFEINTRIN_specNONE,
  477.     FFEINTRIN_specNONE,
  478.     FFEINTRIN_specNONE,
  479.     FFEINTRIN_specNONE,
  480.     FFEINTRIN_specNONE,
  481.     FFEINTRIN_specNONE,
  482.     FFEINTRIN_specNONE,
  483.     FFEINTRIN_specNONE,
  484.     FFEINTRIN_specNONE
  485.   )
  486. DEFGEN (FFEINTRIN_genSQRT, "SQRT",
  487.     FFEINTRIN_specSQRT,
  488.     FFEINTRIN_specDSQRT,
  489.     FFEINTRIN_specCSQRT,
  490.     FFEINTRIN_specQSQRT,
  491.     FFEINTRIN_specCDSQRT,
  492.     FFEINTRIN_specZSQRT,
  493.     FFEINTRIN_specNONE,
  494.     FFEINTRIN_specNONE,
  495.     FFEINTRIN_specNONE,
  496.     FFEINTRIN_specNONE,
  497.     FFEINTRIN_specNONE,
  498.     FFEINTRIN_specNONE,
  499.     FFEINTRIN_specNONE,
  500.     FFEINTRIN_specNONE
  501.   )
  502. DEFGEN (FFEINTRIN_genTAN, "TAN",
  503.     FFEINTRIN_specTAN,
  504.     FFEINTRIN_specDTAN,
  505.     FFEINTRIN_specQTAN,
  506.     FFEINTRIN_specNONE,
  507.     FFEINTRIN_specNONE,
  508.     FFEINTRIN_specNONE,
  509.     FFEINTRIN_specNONE,
  510.     FFEINTRIN_specNONE,
  511.     FFEINTRIN_specNONE,
  512.     FFEINTRIN_specNONE,
  513.     FFEINTRIN_specNONE,
  514.     FFEINTRIN_specNONE,
  515.     FFEINTRIN_specNONE,
  516.     FFEINTRIN_specNONE
  517.   )
  518. DEFGEN (FFEINTRIN_genTANH, "TANH",
  519.     FFEINTRIN_specTANH,
  520.     FFEINTRIN_specDTANH,
  521.     FFEINTRIN_specQTANH,
  522.     FFEINTRIN_specNONE,
  523.     FFEINTRIN_specNONE,
  524.     FFEINTRIN_specNONE,
  525.     FFEINTRIN_specNONE,
  526.     FFEINTRIN_specNONE,
  527.     FFEINTRIN_specNONE,
  528.     FFEINTRIN_specNONE,
  529.     FFEINTRIN_specNONE,
  530.     FFEINTRIN_specNONE,
  531.     FFEINTRIN_specNONE,
  532.     FFEINTRIN_specNONE
  533.   )
  534. DEFGEN (FFEINTRIN_genAIMAG, "AIMAG",
  535.     FFEINTRIN_specAIMAG,
  536.     FFEINTRIN_spec_IMAG_E,
  537.     FFEINTRIN_specNONE,
  538.     FFEINTRIN_specNONE,
  539.     FFEINTRIN_specNONE,
  540.     FFEINTRIN_specNONE,
  541.     FFEINTRIN_specNONE,
  542.     FFEINTRIN_specNONE,
  543.     FFEINTRIN_specNONE,
  544.     FFEINTRIN_specNONE,
  545.     FFEINTRIN_specNONE,
  546.     FFEINTRIN_specNONE,
  547.     FFEINTRIN_specNONE,
  548.     FFEINTRIN_specNONE
  549.   )
  550. DEFGEN (FFEINTRIN_genAMAX0, "AMAX0",
  551.     FFEINTRIN_specAMAX0,
  552.     FFEINTRIN_specAIMAX0,
  553.     FFEINTRIN_specAJMAX0,
  554.     FFEINTRIN_specNONE,
  555.     FFEINTRIN_specNONE,
  556.     FFEINTRIN_specNONE,
  557.     FFEINTRIN_specNONE,
  558.     FFEINTRIN_specNONE,
  559.     FFEINTRIN_specNONE,
  560.     FFEINTRIN_specNONE,
  561.     FFEINTRIN_specNONE,
  562.     FFEINTRIN_specNONE,
  563.     FFEINTRIN_specNONE,
  564.     FFEINTRIN_specNONE
  565.   )
  566. DEFGEN (FFEINTRIN_genAMIN0, "AMIN0",
  567.     FFEINTRIN_specAMIN0,
  568.     FFEINTRIN_specAIMIN0,
  569.     FFEINTRIN_specAJMIN0,
  570.     FFEINTRIN_specNONE,
  571.     FFEINTRIN_specNONE,
  572.     FFEINTRIN_specNONE,
  573.     FFEINTRIN_specNONE,
  574.     FFEINTRIN_specNONE,
  575.     FFEINTRIN_specNONE,
  576.     FFEINTRIN_specNONE,
  577.     FFEINTRIN_specNONE,
  578.     FFEINTRIN_specNONE,
  579.     FFEINTRIN_specNONE,
  580.     FFEINTRIN_specNONE
  581.   )
  582. DEFGEN (FFEINTRIN_genFLOAT, "FLOAT",
  583.     FFEINTRIN_specFLOAT,
  584.     FFEINTRIN_specFLOATI,
  585.     FFEINTRIN_specFLOATJ,
  586.     FFEINTRIN_specNONE,
  587.     FFEINTRIN_specNONE,
  588.     FFEINTRIN_specNONE,
  589.     FFEINTRIN_specNONE,
  590.     FFEINTRIN_specNONE,
  591.     FFEINTRIN_specNONE,
  592.     FFEINTRIN_specNONE,
  593.     FFEINTRIN_specNONE,
  594.     FFEINTRIN_specNONE,
  595.     FFEINTRIN_specNONE,
  596.     FFEINTRIN_specNONE
  597.   )
  598. DEFGEN (FFEINTRIN_genIDIM, "IDIM",
  599.     FFEINTRIN_specIDIM,
  600.     FFEINTRIN_specIIDIM,
  601.     FFEINTRIN_specJIDIM,
  602.     FFEINTRIN_specNONE,
  603.     FFEINTRIN_specNONE,
  604.     FFEINTRIN_specNONE,
  605.     FFEINTRIN_specNONE,
  606.     FFEINTRIN_specNONE,
  607.     FFEINTRIN_specNONE,
  608.     FFEINTRIN_specNONE,
  609.     FFEINTRIN_specNONE,
  610.     FFEINTRIN_specNONE,
  611.     FFEINTRIN_specNONE,
  612.     FFEINTRIN_specNONE
  613.   )
  614. DEFGEN (FFEINTRIN_genIDINT, "IDINT",
  615.     FFEINTRIN_specIDINT,
  616.     FFEINTRIN_specIIDINT,
  617.     FFEINTRIN_specJIDINT,
  618.     FFEINTRIN_specNONE,
  619.     FFEINTRIN_specNONE,
  620.     FFEINTRIN_specNONE,
  621.     FFEINTRIN_specNONE,
  622.     FFEINTRIN_specNONE,
  623.     FFEINTRIN_specNONE,
  624.     FFEINTRIN_specNONE,
  625.     FFEINTRIN_specNONE,
  626.     FFEINTRIN_specNONE,
  627.     FFEINTRIN_specNONE,
  628.     FFEINTRIN_specNONE
  629.   )
  630. DEFGEN (FFEINTRIN_genIDNINT, "IDNINT",
  631.     FFEINTRIN_specIDNINT,
  632.     FFEINTRIN_specIIDNNT,
  633.     FFEINTRIN_specJIDNNT,
  634.     FFEINTRIN_specNONE,
  635.     FFEINTRIN_specNONE,
  636.     FFEINTRIN_specNONE,
  637.     FFEINTRIN_specNONE,
  638.     FFEINTRIN_specNONE,
  639.     FFEINTRIN_specNONE,
  640.     FFEINTRIN_specNONE,
  641.     FFEINTRIN_specNONE,
  642.     FFEINTRIN_specNONE,
  643.     FFEINTRIN_specNONE,
  644.     FFEINTRIN_specNONE
  645.   )
  646. DEFGEN (FFEINTRIN_genIFIX, "IFIX",
  647.     FFEINTRIN_specIFIX,
  648.     FFEINTRIN_specIIFIX,
  649.     FFEINTRIN_specJIFIX,
  650.     FFEINTRIN_specNONE,
  651.     FFEINTRIN_specNONE,
  652.     FFEINTRIN_specNONE,
  653.     FFEINTRIN_specNONE,
  654.     FFEINTRIN_specNONE,
  655.     FFEINTRIN_specNONE,
  656.     FFEINTRIN_specNONE,
  657.     FFEINTRIN_specNONE,
  658.     FFEINTRIN_specNONE,
  659.     FFEINTRIN_specNONE,
  660.     FFEINTRIN_specNONE
  661.   )
  662. DEFGEN (FFEINTRIN_genIMAG, "IMAG",
  663.     FFEINTRIN_spec_IMAG_C_F2C,
  664.     FFEINTRIN_spec_IMAG_E_F2C,
  665.     FFEINTRIN_specNONE,
  666.     FFEINTRIN_specNONE,
  667.     FFEINTRIN_specNONE,
  668.     FFEINTRIN_specNONE,
  669.     FFEINTRIN_specNONE,
  670.     FFEINTRIN_specNONE,
  671.     FFEINTRIN_specNONE,
  672.     FFEINTRIN_specNONE,
  673.     FFEINTRIN_specNONE,
  674.     FFEINTRIN_specNONE,
  675.     FFEINTRIN_specNONE,
  676.     FFEINTRIN_specNONE
  677.   )
  678. DEFGEN (FFEINTRIN_genIQINT, "IQINT",
  679.     FFEINTRIN_specIIQINT,
  680.     FFEINTRIN_specJIQINT,
  681.     FFEINTRIN_specNONE,
  682.     FFEINTRIN_specNONE,
  683.     FFEINTRIN_specNONE,
  684.     FFEINTRIN_specNONE,
  685.     FFEINTRIN_specNONE,
  686.     FFEINTRIN_specNONE,
  687.     FFEINTRIN_specNONE,
  688.     FFEINTRIN_specNONE,
  689.     FFEINTRIN_specNONE,
  690.     FFEINTRIN_specNONE,
  691.     FFEINTRIN_specNONE,
  692.     FFEINTRIN_specNONE
  693.   )
  694. DEFGEN (FFEINTRIN_genIQNINT, "IQNINT",
  695.     FFEINTRIN_specIIQNNT,
  696.     FFEINTRIN_specJIQNNT,
  697.     FFEINTRIN_specNONE,
  698.     FFEINTRIN_specNONE,
  699.     FFEINTRIN_specNONE,
  700.     FFEINTRIN_specNONE,
  701.     FFEINTRIN_specNONE,
  702.     FFEINTRIN_specNONE,
  703.     FFEINTRIN_specNONE,
  704.     FFEINTRIN_specNONE,
  705.     FFEINTRIN_specNONE,
  706.     FFEINTRIN_specNONE,
  707.     FFEINTRIN_specNONE,
  708.     FFEINTRIN_specNONE
  709.   )
  710. DEFGEN (FFEINTRIN_genMAX0, "MAX0",
  711.     FFEINTRIN_specMAX0,
  712.     FFEINTRIN_specIMAX0,
  713.     FFEINTRIN_specJMAX0,
  714.     FFEINTRIN_specNONE,
  715.     FFEINTRIN_specNONE,
  716.     FFEINTRIN_specNONE,
  717.     FFEINTRIN_specNONE,
  718.     FFEINTRIN_specNONE,
  719.     FFEINTRIN_specNONE,
  720.     FFEINTRIN_specNONE,
  721.     FFEINTRIN_specNONE,
  722.     FFEINTRIN_specNONE,
  723.     FFEINTRIN_specNONE,
  724.     FFEINTRIN_specNONE
  725.   )
  726. DEFGEN (FFEINTRIN_genMAX1, "MAX1",
  727.     FFEINTRIN_specMAX1,
  728.     FFEINTRIN_specIMAX1,
  729.     FFEINTRIN_specJMAX1,
  730.     FFEINTRIN_specNONE,
  731.     FFEINTRIN_specNONE,
  732.     FFEINTRIN_specNONE,
  733.     FFEINTRIN_specNONE,
  734.     FFEINTRIN_specNONE,
  735.     FFEINTRIN_specNONE,
  736.     FFEINTRIN_specNONE,
  737.     FFEINTRIN_specNONE,
  738.     FFEINTRIN_specNONE,
  739.     FFEINTRIN_specNONE,
  740.     FFEINTRIN_specNONE
  741.   )
  742. DEFGEN (FFEINTRIN_genMIN0, "MIN0",
  743.     FFEINTRIN_specMIN0,
  744.     FFEINTRIN_specIMIN0,
  745.     FFEINTRIN_specJMIN0,
  746.     FFEINTRIN_specNONE,
  747.     FFEINTRIN_specNONE,
  748.     FFEINTRIN_specNONE,
  749.     FFEINTRIN_specNONE,
  750.     FFEINTRIN_specNONE,
  751.     FFEINTRIN_specNONE,
  752.     FFEINTRIN_specNONE,
  753.     FFEINTRIN_specNONE,
  754.     FFEINTRIN_specNONE,
  755.     FFEINTRIN_specNONE,
  756.     FFEINTRIN_specNONE
  757.   )
  758. DEFGEN (FFEINTRIN_genMIN1, "MIN1",
  759.     FFEINTRIN_specMIN1,
  760.     FFEINTRIN_specIMIN1,
  761.     FFEINTRIN_specJMIN1,
  762.     FFEINTRIN_specNONE,
  763.     FFEINTRIN_specNONE,
  764.     FFEINTRIN_specNONE,
  765.     FFEINTRIN_specNONE,
  766.     FFEINTRIN_specNONE,
  767.     FFEINTRIN_specNONE,
  768.     FFEINTRIN_specNONE,
  769.     FFEINTRIN_specNONE,
  770.     FFEINTRIN_specNONE,
  771.     FFEINTRIN_specNONE,
  772.     FFEINTRIN_specNONE
  773.   )
  774. DEFGEN (FFEINTRIN_genACHAR, "ACHAR",    /* F90, F2C */
  775.     FFEINTRIN_specACHAR,
  776.     FFEINTRIN_specNONE,
  777.     FFEINTRIN_specNONE,
  778.     FFEINTRIN_specNONE,
  779.     FFEINTRIN_specNONE,
  780.     FFEINTRIN_specNONE,
  781.     FFEINTRIN_specNONE,
  782.     FFEINTRIN_specNONE,
  783.     FFEINTRIN_specNONE,
  784.     FFEINTRIN_specNONE,
  785.     FFEINTRIN_specNONE,
  786.     FFEINTRIN_specNONE,
  787.     FFEINTRIN_specNONE,
  788.     FFEINTRIN_specNONE
  789.   )
  790. DEFGEN (FFEINTRIN_genACOSD, "ACOSD",    /* VXT */
  791.     FFEINTRIN_specACOSD,
  792.     FFEINTRIN_specDACOSD,
  793.     FFEINTRIN_specQACOSD,
  794.     FFEINTRIN_specNONE,
  795.     FFEINTRIN_specNONE,
  796.     FFEINTRIN_specNONE,
  797.     FFEINTRIN_specNONE,
  798.     FFEINTRIN_specNONE,
  799.     FFEINTRIN_specNONE,
  800.     FFEINTRIN_specNONE,
  801.     FFEINTRIN_specNONE,
  802.     FFEINTRIN_specNONE,
  803.     FFEINTRIN_specNONE,
  804.     FFEINTRIN_specNONE
  805.   )
  806. DEFGEN (FFEINTRIN_genADJUSTL, "ADJUSTL",    /* F90 */
  807.     FFEINTRIN_specADJUSTL,
  808.     FFEINTRIN_specNONE,
  809.     FFEINTRIN_specNONE,
  810.     FFEINTRIN_specNONE,
  811.     FFEINTRIN_specNONE,
  812.     FFEINTRIN_specNONE,
  813.     FFEINTRIN_specNONE,
  814.     FFEINTRIN_specNONE,
  815.     FFEINTRIN_specNONE,
  816.     FFEINTRIN_specNONE,
  817.     FFEINTRIN_specNONE,
  818.     FFEINTRIN_specNONE,
  819.     FFEINTRIN_specNONE,
  820.     FFEINTRIN_specNONE
  821.   )
  822. DEFGEN (FFEINTRIN_genADJUSTR, "ADJUSTR",    /* F90 */
  823.     FFEINTRIN_specADJUSTR,
  824.     FFEINTRIN_specNONE,
  825.     FFEINTRIN_specNONE,
  826.     FFEINTRIN_specNONE,
  827.     FFEINTRIN_specNONE,
  828.     FFEINTRIN_specNONE,
  829.     FFEINTRIN_specNONE,
  830.     FFEINTRIN_specNONE,
  831.     FFEINTRIN_specNONE,
  832.     FFEINTRIN_specNONE,
  833.     FFEINTRIN_specNONE,
  834.     FFEINTRIN_specNONE,
  835.     FFEINTRIN_specNONE,
  836.     FFEINTRIN_specNONE
  837.   )
  838. DEFGEN (FFEINTRIN_genALL, "ALL",    /* F90 */
  839.     FFEINTRIN_specALL,
  840.     FFEINTRIN_specNONE,
  841.     FFEINTRIN_specNONE,
  842.     FFEINTRIN_specNONE,
  843.     FFEINTRIN_specNONE,
  844.     FFEINTRIN_specNONE,
  845.     FFEINTRIN_specNONE,
  846.     FFEINTRIN_specNONE,
  847.     FFEINTRIN_specNONE,
  848.     FFEINTRIN_specNONE,
  849.     FFEINTRIN_specNONE,
  850.     FFEINTRIN_specNONE,
  851.     FFEINTRIN_specNONE,
  852.     FFEINTRIN_specNONE
  853.   )
  854. DEFGEN (FFEINTRIN_genALLOCATED, "ALLOCATED",    /* F90 */
  855.     FFEINTRIN_specALLOCATED,
  856.     FFEINTRIN_specNONE,
  857.     FFEINTRIN_specNONE,
  858.     FFEINTRIN_specNONE,
  859.     FFEINTRIN_specNONE,
  860.     FFEINTRIN_specNONE,
  861.     FFEINTRIN_specNONE,
  862.     FFEINTRIN_specNONE,
  863.     FFEINTRIN_specNONE,
  864.     FFEINTRIN_specNONE,
  865.     FFEINTRIN_specNONE,
  866.     FFEINTRIN_specNONE,
  867.     FFEINTRIN_specNONE,
  868.     FFEINTRIN_specNONE
  869.   )
  870. DEFGEN (FFEINTRIN_genAND, "AND",    /* F2C */
  871.     FFEINTRIN_spec_AND_I,
  872.     FFEINTRIN_spec_AND_L,
  873.     FFEINTRIN_specNONE,
  874.     FFEINTRIN_specNONE,
  875.     FFEINTRIN_specNONE,
  876.     FFEINTRIN_specNONE,
  877.     FFEINTRIN_specNONE,
  878.     FFEINTRIN_specNONE,
  879.     FFEINTRIN_specNONE,
  880.     FFEINTRIN_specNONE,
  881.     FFEINTRIN_specNONE,
  882.     FFEINTRIN_specNONE,
  883.     FFEINTRIN_specNONE,
  884.     FFEINTRIN_specNONE
  885.   )
  886. DEFGEN (FFEINTRIN_genANY, "ANY",    /* F90 */
  887.     FFEINTRIN_specANY,
  888.     FFEINTRIN_specNONE,
  889.     FFEINTRIN_specNONE,
  890.     FFEINTRIN_specNONE,
  891.     FFEINTRIN_specNONE,
  892.     FFEINTRIN_specNONE,
  893.     FFEINTRIN_specNONE,
  894.     FFEINTRIN_specNONE,
  895.     FFEINTRIN_specNONE,
  896.     FFEINTRIN_specNONE,
  897.     FFEINTRIN_specNONE,
  898.     FFEINTRIN_specNONE,
  899.     FFEINTRIN_specNONE,
  900.     FFEINTRIN_specNONE
  901.   )
  902. DEFGEN (FFEINTRIN_genASIND, "ASIND",    /* VXT */
  903.     FFEINTRIN_specASIND,
  904.     FFEINTRIN_specDASIND,
  905.     FFEINTRIN_specQASIND,
  906.     FFEINTRIN_specNONE,
  907.     FFEINTRIN_specNONE,
  908.     FFEINTRIN_specNONE,
  909.     FFEINTRIN_specNONE,
  910.     FFEINTRIN_specNONE,
  911.     FFEINTRIN_specNONE,
  912.     FFEINTRIN_specNONE,
  913.     FFEINTRIN_specNONE,
  914.     FFEINTRIN_specNONE,
  915.     FFEINTRIN_specNONE,
  916.     FFEINTRIN_specNONE
  917.   )
  918. DEFGEN (FFEINTRIN_genASSOCIATED, "ASSOCIATED",    /* F90 */
  919.     FFEINTRIN_specASSOCIATED,
  920.     FFEINTRIN_specNONE,
  921.     FFEINTRIN_specNONE,
  922.     FFEINTRIN_specNONE,
  923.     FFEINTRIN_specNONE,
  924.     FFEINTRIN_specNONE,
  925.     FFEINTRIN_specNONE,
  926.     FFEINTRIN_specNONE,
  927.     FFEINTRIN_specNONE,
  928.     FFEINTRIN_specNONE,
  929.     FFEINTRIN_specNONE,
  930.     FFEINTRIN_specNONE,
  931.     FFEINTRIN_specNONE,
  932.     FFEINTRIN_specNONE
  933.   )
  934. DEFGEN (FFEINTRIN_genATAN2D, "ATAN2D",    /* VXT */
  935.     FFEINTRIN_specATAN2D,
  936.     FFEINTRIN_specDATAN2D,
  937.     FFEINTRIN_specQATAN2D,
  938.     FFEINTRIN_specNONE,
  939.     FFEINTRIN_specNONE,
  940.     FFEINTRIN_specNONE,
  941.     FFEINTRIN_specNONE,
  942.     FFEINTRIN_specNONE,
  943.     FFEINTRIN_specNONE,
  944.     FFEINTRIN_specNONE,
  945.     FFEINTRIN_specNONE,
  946.     FFEINTRIN_specNONE,
  947.     FFEINTRIN_specNONE,
  948.     FFEINTRIN_specNONE
  949.   )
  950. DEFGEN (FFEINTRIN_genATAND, "ATAND",    /* VXT */
  951.     FFEINTRIN_specATAND,
  952.     FFEINTRIN_specDATAND,
  953.     FFEINTRIN_specQATAND,
  954.     FFEINTRIN_specNONE,
  955.     FFEINTRIN_specNONE,
  956.     FFEINTRIN_specNONE,
  957.     FFEINTRIN_specNONE,
  958.     FFEINTRIN_specNONE,
  959.     FFEINTRIN_specNONE,
  960.     FFEINTRIN_specNONE,
  961.     FFEINTRIN_specNONE,
  962.     FFEINTRIN_specNONE,
  963.     FFEINTRIN_specNONE,
  964.     FFEINTRIN_specNONE
  965.   )
  966. DEFGEN (FFEINTRIN_genBIT_SIZE, "BIT_SIZE",    /* F90 */
  967.     FFEINTRIN_specBIT_SIZE,
  968.     FFEINTRIN_specNONE,
  969.     FFEINTRIN_specNONE,
  970.     FFEINTRIN_specNONE,
  971.     FFEINTRIN_specNONE,
  972.     FFEINTRIN_specNONE,
  973.     FFEINTRIN_specNONE,
  974.     FFEINTRIN_specNONE,
  975.     FFEINTRIN_specNONE,
  976.     FFEINTRIN_specNONE,
  977.     FFEINTRIN_specNONE,
  978.     FFEINTRIN_specNONE,
  979.     FFEINTRIN_specNONE,
  980.     FFEINTRIN_specNONE
  981.   )
  982. DEFGEN (FFEINTRIN_genBTEST, "BTEST",    /* F90, VXT */
  983.     FFEINTRIN_specBTEST,
  984.     FFEINTRIN_specBITEST,
  985.     FFEINTRIN_specBJTEST,
  986.     FFEINTRIN_specNONE,
  987.     FFEINTRIN_specNONE,
  988.     FFEINTRIN_specNONE,
  989.     FFEINTRIN_specNONE,
  990.     FFEINTRIN_specNONE,
  991.     FFEINTRIN_specNONE,
  992.     FFEINTRIN_specNONE,
  993.     FFEINTRIN_specNONE,
  994.     FFEINTRIN_specNONE,
  995.     FFEINTRIN_specNONE,
  996.     FFEINTRIN_specNONE
  997.   )
  998. DEFGEN (FFEINTRIN_genCEILING, "CEILING",    /* F90 */
  999.     FFEINTRIN_specCEILING,
  1000.     FFEINTRIN_specNONE,
  1001.     FFEINTRIN_specNONE,
  1002.     FFEINTRIN_specNONE,
  1003.     FFEINTRIN_specNONE,
  1004.     FFEINTRIN_specNONE,
  1005.     FFEINTRIN_specNONE,
  1006.     FFEINTRIN_specNONE,
  1007.     FFEINTRIN_specNONE,
  1008.     FFEINTRIN_specNONE,
  1009.     FFEINTRIN_specNONE,
  1010.     FFEINTRIN_specNONE,
  1011.     FFEINTRIN_specNONE,
  1012.     FFEINTRIN_specNONE
  1013.   )
  1014. DEFGEN (FFEINTRIN_genCHAR, "CHAR",    /* VXT */
  1015.     FFEINTRIN_specCHAR,
  1016.     FFEINTRIN_spec_CHAR_N,
  1017.     FFEINTRIN_spec_CHAR_J,
  1018.     FFEINTRIN_specNONE,
  1019.     FFEINTRIN_specNONE,
  1020.     FFEINTRIN_specNONE,
  1021.     FFEINTRIN_specNONE,
  1022.     FFEINTRIN_specNONE,
  1023.     FFEINTRIN_specNONE,
  1024.     FFEINTRIN_specNONE,
  1025.     FFEINTRIN_specNONE,
  1026.     FFEINTRIN_specNONE,
  1027.     FFEINTRIN_specNONE,
  1028.     FFEINTRIN_specNONE
  1029.   )
  1030. DEFGEN (FFEINTRIN_genCONJG, "CONJG",    /* VXT */
  1031.     FFEINTRIN_specCONJG,
  1032.     FFEINTRIN_specDCONJG,
  1033.     FFEINTRIN_specNONE,
  1034.     FFEINTRIN_specNONE,
  1035.     FFEINTRIN_specNONE,
  1036.     FFEINTRIN_specNONE,
  1037.     FFEINTRIN_specNONE,
  1038.     FFEINTRIN_specNONE,
  1039.     FFEINTRIN_specNONE,
  1040.     FFEINTRIN_specNONE,
  1041.     FFEINTRIN_specNONE,
  1042.     FFEINTRIN_specNONE,
  1043.     FFEINTRIN_specNONE,
  1044.     FFEINTRIN_specNONE
  1045.   )
  1046. DEFGEN (FFEINTRIN_genCOSD, "COSD",    /* VXT */
  1047.     FFEINTRIN_specCOSD,
  1048.     FFEINTRIN_specDCOSD,
  1049.     FFEINTRIN_specQCOSD,
  1050.     FFEINTRIN_specNONE,
  1051.     FFEINTRIN_specNONE,
  1052.     FFEINTRIN_specNONE,
  1053.     FFEINTRIN_specNONE,
  1054.     FFEINTRIN_specNONE,
  1055.     FFEINTRIN_specNONE,
  1056.     FFEINTRIN_specNONE,
  1057.     FFEINTRIN_specNONE,
  1058.     FFEINTRIN_specNONE,
  1059.     FFEINTRIN_specNONE,
  1060.     FFEINTRIN_specNONE
  1061.   )
  1062. DEFGEN (FFEINTRIN_genCOUNT, "COUNT",    /* F90 */
  1063.     FFEINTRIN_specCOUNT,
  1064.     FFEINTRIN_specNONE,
  1065.     FFEINTRIN_specNONE,
  1066.     FFEINTRIN_specNONE,
  1067.     FFEINTRIN_specNONE,
  1068.     FFEINTRIN_specNONE,
  1069.     FFEINTRIN_specNONE,
  1070.     FFEINTRIN_specNONE,
  1071.     FFEINTRIN_specNONE,
  1072.     FFEINTRIN_specNONE,
  1073.     FFEINTRIN_specNONE,
  1074.     FFEINTRIN_specNONE,
  1075.     FFEINTRIN_specNONE,
  1076.     FFEINTRIN_specNONE
  1077.   )
  1078. DEFGEN (FFEINTRIN_genCSHIFT, "CSHIFT",    /* F90 */
  1079.     FFEINTRIN_specCSHIFT,
  1080.     FFEINTRIN_specNONE,
  1081.     FFEINTRIN_specNONE,
  1082.     FFEINTRIN_specNONE,
  1083.     FFEINTRIN_specNONE,
  1084.     FFEINTRIN_specNONE,
  1085.     FFEINTRIN_specNONE,
  1086.     FFEINTRIN_specNONE,
  1087.     FFEINTRIN_specNONE,
  1088.     FFEINTRIN_specNONE,
  1089.     FFEINTRIN_specNONE,
  1090.     FFEINTRIN_specNONE,
  1091.     FFEINTRIN_specNONE,
  1092.     FFEINTRIN_specNONE
  1093.   )
  1094. DEFGEN (FFEINTRIN_genDCMPLX, "DCMPLX",    /* F2C, VXT */
  1095.     FFEINTRIN_spec_DCMPLX_J,
  1096.     FFEINTRIN_spec_DCMPLX_I,
  1097.     FFEINTRIN_spec_DCMPLX_R,
  1098.     FFEINTRIN_spec_DCMPLX_D,
  1099.     FFEINTRIN_spec_DCMPLX_Q,
  1100.     FFEINTRIN_spec_DCMPLX_C,
  1101.     FFEINTRIN_spec_DCMPLX_E,
  1102.     FFEINTRIN_specNONE,
  1103.     FFEINTRIN_specNONE,
  1104.     FFEINTRIN_specNONE,
  1105.     FFEINTRIN_specNONE,
  1106.     FFEINTRIN_specNONE,
  1107.     FFEINTRIN_specNONE,
  1108.     FFEINTRIN_specNONE
  1109.   )
  1110. DEFGEN (FFEINTRIN_genDFLOAT, "DFLOAT",    /* F2C, VXT */
  1111.     FFEINTRIN_specDFLOAT,
  1112.     FFEINTRIN_specDFLOTI,
  1113.     FFEINTRIN_specDFLOTJ,
  1114.     FFEINTRIN_specNONE,
  1115.     FFEINTRIN_specNONE,
  1116.     FFEINTRIN_specNONE,
  1117.     FFEINTRIN_specNONE,
  1118.     FFEINTRIN_specNONE,
  1119.     FFEINTRIN_specNONE,
  1120.     FFEINTRIN_specNONE,
  1121.     FFEINTRIN_specNONE,
  1122.     FFEINTRIN_specNONE,
  1123.     FFEINTRIN_specNONE,
  1124.     FFEINTRIN_specNONE
  1125.   )
  1126. DEFGEN (FFEINTRIN_genDIGITS, "DIGITS",    /* F90 */
  1127.     FFEINTRIN_specDIGITS,
  1128.     FFEINTRIN_specNONE,
  1129.     FFEINTRIN_specNONE,
  1130.     FFEINTRIN_specNONE,
  1131.     FFEINTRIN_specNONE,
  1132.     FFEINTRIN_specNONE,
  1133.     FFEINTRIN_specNONE,
  1134.     FFEINTRIN_specNONE,
  1135.     FFEINTRIN_specNONE,
  1136.     FFEINTRIN_specNONE,
  1137.     FFEINTRIN_specNONE,
  1138.     FFEINTRIN_specNONE,
  1139.     FFEINTRIN_specNONE,
  1140.     FFEINTRIN_specNONE
  1141.   )
  1142. DEFGEN (FFEINTRIN_genDOT_PRODUCT, "DOT_PRODUCT",    /* F90 */
  1143.     FFEINTRIN_specDOT_PRODUCT,
  1144.     FFEINTRIN_specNONE,
  1145.     FFEINTRIN_specNONE,
  1146.     FFEINTRIN_specNONE,
  1147.     FFEINTRIN_specNONE,
  1148.     FFEINTRIN_specNONE,
  1149.     FFEINTRIN_specNONE,
  1150.     FFEINTRIN_specNONE,
  1151.     FFEINTRIN_specNONE,
  1152.     FFEINTRIN_specNONE,
  1153.     FFEINTRIN_specNONE,
  1154.     FFEINTRIN_specNONE,
  1155.     FFEINTRIN_specNONE,
  1156.     FFEINTRIN_specNONE
  1157.   )
  1158. DEFGEN (FFEINTRIN_genDPROD, "DPROD",    /* F90 */
  1159.     FFEINTRIN_specDPROD,
  1160.     FFEINTRIN_specNONE,
  1161.     FFEINTRIN_specNONE,
  1162.     FFEINTRIN_specNONE,
  1163.     FFEINTRIN_specNONE,
  1164.     FFEINTRIN_specNONE,
  1165.     FFEINTRIN_specNONE,
  1166.     FFEINTRIN_specNONE,
  1167.     FFEINTRIN_specNONE,
  1168.     FFEINTRIN_specNONE,
  1169.     FFEINTRIN_specNONE,
  1170.     FFEINTRIN_specNONE,
  1171.     FFEINTRIN_specNONE,
  1172.     FFEINTRIN_specNONE
  1173.   )
  1174. DEFGEN (FFEINTRIN_genEOSHIFT, "EOSHIFT",    /* F90 */
  1175.     FFEINTRIN_specEOSHIFT,
  1176.     FFEINTRIN_specNONE,
  1177.     FFEINTRIN_specNONE,
  1178.     FFEINTRIN_specNONE,
  1179.     FFEINTRIN_specNONE,
  1180.     FFEINTRIN_specNONE,
  1181.     FFEINTRIN_specNONE,
  1182.     FFEINTRIN_specNONE,
  1183.     FFEINTRIN_specNONE,
  1184.     FFEINTRIN_specNONE,
  1185.     FFEINTRIN_specNONE,
  1186.     FFEINTRIN_specNONE,
  1187.     FFEINTRIN_specNONE,
  1188.     FFEINTRIN_specNONE
  1189.   )
  1190. DEFGEN (FFEINTRIN_genEPSILON, "EPSILON",    /* F90 */
  1191.     FFEINTRIN_specEPSILON,
  1192.     FFEINTRIN_specNONE,
  1193.     FFEINTRIN_specNONE,
  1194.     FFEINTRIN_specNONE,
  1195.     FFEINTRIN_specNONE,
  1196.     FFEINTRIN_specNONE,
  1197.     FFEINTRIN_specNONE,
  1198.     FFEINTRIN_specNONE,
  1199.     FFEINTRIN_specNONE,
  1200.     FFEINTRIN_specNONE,
  1201.     FFEINTRIN_specNONE,
  1202.     FFEINTRIN_specNONE,
  1203.     FFEINTRIN_specNONE,
  1204.     FFEINTRIN_specNONE
  1205.   )
  1206. DEFGEN (FFEINTRIN_genEXPONENT, "EXPONENT",    /* F90 */
  1207.     FFEINTRIN_specEXPONENT,
  1208.     FFEINTRIN_specNONE,
  1209.     FFEINTRIN_specNONE,
  1210.     FFEINTRIN_specNONE,
  1211.     FFEINTRIN_specNONE,
  1212.     FFEINTRIN_specNONE,
  1213.     FFEINTRIN_specNONE,
  1214.     FFEINTRIN_specNONE,
  1215.     FFEINTRIN_specNONE,
  1216.     FFEINTRIN_specNONE,
  1217.     FFEINTRIN_specNONE,
  1218.     FFEINTRIN_specNONE,
  1219.     FFEINTRIN_specNONE,
  1220.     FFEINTRIN_specNONE
  1221.   )
  1222. DEFGEN (FFEINTRIN_genFLOOR, "FLOOR",    /* F90 */
  1223.     FFEINTRIN_specFLOOR,
  1224.     FFEINTRIN_specNONE,
  1225.     FFEINTRIN_specNONE,
  1226.     FFEINTRIN_specNONE,
  1227.     FFEINTRIN_specNONE,
  1228.     FFEINTRIN_specNONE,
  1229.     FFEINTRIN_specNONE,
  1230.     FFEINTRIN_specNONE,
  1231.     FFEINTRIN_specNONE,
  1232.     FFEINTRIN_specNONE,
  1233.     FFEINTRIN_specNONE,
  1234.     FFEINTRIN_specNONE,
  1235.     FFEINTRIN_specNONE,
  1236.     FFEINTRIN_specNONE
  1237.   )
  1238. DEFGEN (FFEINTRIN_genFPABSP, "FPABSP",    /* F2C */
  1239.     FFEINTRIN_specNONE,
  1240.     FFEINTRIN_specNONE,
  1241.     FFEINTRIN_specNONE,
  1242.     FFEINTRIN_specNONE,
  1243.     FFEINTRIN_specNONE,
  1244.     FFEINTRIN_specNONE,
  1245.     FFEINTRIN_specNONE,
  1246.     FFEINTRIN_specNONE,
  1247.     FFEINTRIN_specNONE,
  1248.     FFEINTRIN_specNONE,
  1249.     FFEINTRIN_specNONE,
  1250.     FFEINTRIN_specNONE,
  1251.     FFEINTRIN_specNONE,
  1252.     FFEINTRIN_specNONE
  1253.   )
  1254. DEFGEN (FFEINTRIN_genFPEXPN, "FPEXPN",    /* F2C */
  1255.     FFEINTRIN_specNONE,
  1256.     FFEINTRIN_specNONE,
  1257.     FFEINTRIN_specNONE,
  1258.     FFEINTRIN_specNONE,
  1259.     FFEINTRIN_specNONE,
  1260.     FFEINTRIN_specNONE,
  1261.     FFEINTRIN_specNONE,
  1262.     FFEINTRIN_specNONE,
  1263.     FFEINTRIN_specNONE,
  1264.     FFEINTRIN_specNONE,
  1265.     FFEINTRIN_specNONE,
  1266.     FFEINTRIN_specNONE,
  1267.     FFEINTRIN_specNONE,
  1268.     FFEINTRIN_specNONE
  1269.   )
  1270. DEFGEN (FFEINTRIN_genFPFRAC, "FPFRAC",    /* F2C */
  1271.     FFEINTRIN_specNONE,
  1272.     FFEINTRIN_specNONE,
  1273.     FFEINTRIN_specNONE,
  1274.     FFEINTRIN_specNONE,
  1275.     FFEINTRIN_specNONE,
  1276.     FFEINTRIN_specNONE,
  1277.     FFEINTRIN_specNONE,
  1278.     FFEINTRIN_specNONE,
  1279.     FFEINTRIN_specNONE,
  1280.     FFEINTRIN_specNONE,
  1281.     FFEINTRIN_specNONE,
  1282.     FFEINTRIN_specNONE,
  1283.     FFEINTRIN_specNONE,
  1284.     FFEINTRIN_specNONE
  1285.   )
  1286. DEFGEN (FFEINTRIN_genFPMAKE, "FPMAKE",    /* F2C */
  1287.     FFEINTRIN_specNONE,
  1288.     FFEINTRIN_specNONE,
  1289.     FFEINTRIN_specNONE,
  1290.     FFEINTRIN_specNONE,
  1291.     FFEINTRIN_specNONE,
  1292.     FFEINTRIN_specNONE,
  1293.     FFEINTRIN_specNONE,
  1294.     FFEINTRIN_specNONE,
  1295.     FFEINTRIN_specNONE,
  1296.     FFEINTRIN_specNONE,
  1297.     FFEINTRIN_specNONE,
  1298.     FFEINTRIN_specNONE,
  1299.     FFEINTRIN_specNONE,
  1300.     FFEINTRIN_specNONE
  1301.   )
  1302. DEFGEN (FFEINTRIN_genFPRRSP, "FPRRSP",    /* F2C */
  1303.     FFEINTRIN_specNONE,
  1304.     FFEINTRIN_specNONE,
  1305.     FFEINTRIN_specNONE,
  1306.     FFEINTRIN_specNONE,
  1307.     FFEINTRIN_specNONE,
  1308.     FFEINTRIN_specNONE,
  1309.     FFEINTRIN_specNONE,
  1310.     FFEINTRIN_specNONE,
  1311.     FFEINTRIN_specNONE,
  1312.     FFEINTRIN_specNONE,
  1313.     FFEINTRIN_specNONE,
  1314.     FFEINTRIN_specNONE,
  1315.     FFEINTRIN_specNONE,
  1316.     FFEINTRIN_specNONE
  1317.   )
  1318. DEFGEN (FFEINTRIN_genFPSCAL, "FPSCAL",    /* F2C */
  1319.     FFEINTRIN_specNONE,
  1320.     FFEINTRIN_specNONE,
  1321.     FFEINTRIN_specNONE,
  1322.     FFEINTRIN_specNONE,
  1323.     FFEINTRIN_specNONE,
  1324.     FFEINTRIN_specNONE,
  1325.     FFEINTRIN_specNONE,
  1326.     FFEINTRIN_specNONE,
  1327.     FFEINTRIN_specNONE,
  1328.     FFEINTRIN_specNONE,
  1329.     FFEINTRIN_specNONE,
  1330.     FFEINTRIN_specNONE,
  1331.     FFEINTRIN_specNONE,
  1332.     FFEINTRIN_specNONE
  1333.   )
  1334. DEFGEN (FFEINTRIN_genFRACTION, "FRACTION",    /* F90 */
  1335.     FFEINTRIN_specFRACTION,
  1336.     FFEINTRIN_specNONE,
  1337.     FFEINTRIN_specNONE,
  1338.     FFEINTRIN_specNONE,
  1339.     FFEINTRIN_specNONE,
  1340.     FFEINTRIN_specNONE,
  1341.     FFEINTRIN_specNONE,
  1342.     FFEINTRIN_specNONE,
  1343.     FFEINTRIN_specNONE,
  1344.     FFEINTRIN_specNONE,
  1345.     FFEINTRIN_specNONE,
  1346.     FFEINTRIN_specNONE,
  1347.     FFEINTRIN_specNONE,
  1348.     FFEINTRIN_specNONE
  1349.   )
  1350. DEFGEN (FFEINTRIN_genHUGE, "HUGE",    /* F90 */
  1351.     FFEINTRIN_specHUGE,
  1352.     FFEINTRIN_specNONE,
  1353.     FFEINTRIN_specNONE,
  1354.     FFEINTRIN_specNONE,
  1355.     FFEINTRIN_specNONE,
  1356.     FFEINTRIN_specNONE,
  1357.     FFEINTRIN_specNONE,
  1358.     FFEINTRIN_specNONE,
  1359.     FFEINTRIN_specNONE,
  1360.     FFEINTRIN_specNONE,
  1361.     FFEINTRIN_specNONE,
  1362.     FFEINTRIN_specNONE,
  1363.     FFEINTRIN_specNONE,
  1364.     FFEINTRIN_specNONE
  1365.   )
  1366. DEFGEN (FFEINTRIN_genIACHAR, "IACHAR",    /* F90, F2C */
  1367.     FFEINTRIN_specIACHAR,
  1368.     FFEINTRIN_specNONE,
  1369.     FFEINTRIN_specNONE,
  1370.     FFEINTRIN_specNONE,
  1371.     FFEINTRIN_specNONE,
  1372.     FFEINTRIN_specNONE,
  1373.     FFEINTRIN_specNONE,
  1374.     FFEINTRIN_specNONE,
  1375.     FFEINTRIN_specNONE,
  1376.     FFEINTRIN_specNONE,
  1377.     FFEINTRIN_specNONE,
  1378.     FFEINTRIN_specNONE,
  1379.     FFEINTRIN_specNONE,
  1380.     FFEINTRIN_specNONE
  1381.   )
  1382. DEFGEN (FFEINTRIN_genIAND, "IAND",    /* F90, VXT */
  1383.     FFEINTRIN_specIAND,
  1384.     FFEINTRIN_specIIAND,
  1385.     FFEINTRIN_specJIAND,
  1386.     FFEINTRIN_specNONE,
  1387.     FFEINTRIN_specNONE,
  1388.     FFEINTRIN_specNONE,
  1389.     FFEINTRIN_specNONE,
  1390.     FFEINTRIN_specNONE,
  1391.     FFEINTRIN_specNONE,
  1392.     FFEINTRIN_specNONE,
  1393.     FFEINTRIN_specNONE,
  1394.     FFEINTRIN_specNONE,
  1395.     FFEINTRIN_specNONE,
  1396.     FFEINTRIN_specNONE
  1397.   )
  1398. DEFGEN (FFEINTRIN_genIBCLR, "IBCLR",    /* F90, VXT */
  1399.     FFEINTRIN_specIBCLR,
  1400.     FFEINTRIN_specIIBCLR,
  1401.     FFEINTRIN_specJIBCLR,
  1402.     FFEINTRIN_specNONE,
  1403.     FFEINTRIN_specNONE,
  1404.     FFEINTRIN_specNONE,
  1405.     FFEINTRIN_specNONE,
  1406.     FFEINTRIN_specNONE,
  1407.     FFEINTRIN_specNONE,
  1408.     FFEINTRIN_specNONE,
  1409.     FFEINTRIN_specNONE,
  1410.     FFEINTRIN_specNONE,
  1411.     FFEINTRIN_specNONE,
  1412.     FFEINTRIN_specNONE
  1413.   )
  1414. DEFGEN (FFEINTRIN_genIBITS, "IBITS",    /* F90, VXT */
  1415.     FFEINTRIN_specIBITS,
  1416.     FFEINTRIN_specIIBITS,
  1417.     FFEINTRIN_specJIBITS,
  1418.     FFEINTRIN_specNONE,
  1419.     FFEINTRIN_specNONE,
  1420.     FFEINTRIN_specNONE,
  1421.     FFEINTRIN_specNONE,
  1422.     FFEINTRIN_specNONE,
  1423.     FFEINTRIN_specNONE,
  1424.     FFEINTRIN_specNONE,
  1425.     FFEINTRIN_specNONE,
  1426.     FFEINTRIN_specNONE,
  1427.     FFEINTRIN_specNONE,
  1428.     FFEINTRIN_specNONE
  1429.   )
  1430. DEFGEN (FFEINTRIN_genIBSET, "IBSET",    /* F90, VXT */
  1431.     FFEINTRIN_specIBSET,
  1432.     FFEINTRIN_specIIBSET,
  1433.     FFEINTRIN_specJIBSET,
  1434.     FFEINTRIN_specNONE,
  1435.     FFEINTRIN_specNONE,
  1436.     FFEINTRIN_specNONE,
  1437.     FFEINTRIN_specNONE,
  1438.     FFEINTRIN_specNONE,
  1439.     FFEINTRIN_specNONE,
  1440.     FFEINTRIN_specNONE,
  1441.     FFEINTRIN_specNONE,
  1442.     FFEINTRIN_specNONE,
  1443.     FFEINTRIN_specNONE,
  1444.     FFEINTRIN_specNONE
  1445.   )
  1446. DEFGEN (FFEINTRIN_genICHAR, "ICHAR",    /* F90 */
  1447.     FFEINTRIN_specICHAR,
  1448.     FFEINTRIN_specNONE,
  1449.     FFEINTRIN_specNONE,
  1450.     FFEINTRIN_specNONE,
  1451.     FFEINTRIN_specNONE,
  1452.     FFEINTRIN_specNONE,
  1453.     FFEINTRIN_specNONE,
  1454.     FFEINTRIN_specNONE,
  1455.     FFEINTRIN_specNONE,
  1456.     FFEINTRIN_specNONE,
  1457.     FFEINTRIN_specNONE,
  1458.     FFEINTRIN_specNONE,
  1459.     FFEINTRIN_specNONE,
  1460.     FFEINTRIN_specNONE
  1461.   )
  1462. DEFGEN (FFEINTRIN_genIEOR, "IEOR",    /* F90, VXT */
  1463.     FFEINTRIN_specIEOR,
  1464.     FFEINTRIN_specIIEOR,
  1465.     FFEINTRIN_specJIEOR,
  1466.     FFEINTRIN_specNONE,
  1467.     FFEINTRIN_specNONE,
  1468.     FFEINTRIN_specNONE,
  1469.     FFEINTRIN_specNONE,
  1470.     FFEINTRIN_specNONE,
  1471.     FFEINTRIN_specNONE,
  1472.     FFEINTRIN_specNONE,
  1473.     FFEINTRIN_specNONE,
  1474.     FFEINTRIN_specNONE,
  1475.     FFEINTRIN_specNONE,
  1476.     FFEINTRIN_specNONE
  1477.   )
  1478. DEFGEN (FFEINTRIN_genINDEX, "INDEX",    /* F90 */
  1479.     FFEINTRIN_specINDEX,
  1480.     FFEINTRIN_specNONE,
  1481.     FFEINTRIN_specNONE,
  1482.     FFEINTRIN_specNONE,
  1483.     FFEINTRIN_specNONE,
  1484.     FFEINTRIN_specNONE,
  1485.     FFEINTRIN_specNONE,
  1486.     FFEINTRIN_specNONE,
  1487.     FFEINTRIN_specNONE,
  1488.     FFEINTRIN_specNONE,
  1489.     FFEINTRIN_specNONE,
  1490.     FFEINTRIN_specNONE,
  1491.     FFEINTRIN_specNONE,
  1492.     FFEINTRIN_specNONE
  1493.   )
  1494. DEFGEN (FFEINTRIN_genIOR, "IOR",    /* F90, VXT */
  1495.     FFEINTRIN_specIOR,
  1496.     FFEINTRIN_specIIOR,
  1497.     FFEINTRIN_specJIOR,
  1498.     FFEINTRIN_specNONE,
  1499.     FFEINTRIN_specNONE,
  1500.     FFEINTRIN_specNONE,
  1501.     FFEINTRIN_specNONE,
  1502.     FFEINTRIN_specNONE,
  1503.     FFEINTRIN_specNONE,
  1504.     FFEINTRIN_specNONE,
  1505.     FFEINTRIN_specNONE,
  1506.     FFEINTRIN_specNONE,
  1507.     FFEINTRIN_specNONE,
  1508.     FFEINTRIN_specNONE
  1509.   )
  1510. DEFGEN (FFEINTRIN_genISHFT, "ISHFT",    /* F90 */
  1511.     FFEINTRIN_specISHFT,
  1512.     FFEINTRIN_specIISHFT,
  1513.     FFEINTRIN_specJISHFT,
  1514.     FFEINTRIN_specNONE,
  1515.     FFEINTRIN_specNONE,
  1516.     FFEINTRIN_specNONE,
  1517.     FFEINTRIN_specNONE,
  1518.     FFEINTRIN_specNONE,
  1519.     FFEINTRIN_specNONE,
  1520.     FFEINTRIN_specNONE,
  1521.     FFEINTRIN_specNONE,
  1522.     FFEINTRIN_specNONE,
  1523.     FFEINTRIN_specNONE,
  1524.     FFEINTRIN_specNONE
  1525.   )
  1526. DEFGEN (FFEINTRIN_genISHFTC, "ISHFTC",    /* F90, VXT */
  1527.     FFEINTRIN_specISHFTC,
  1528.     FFEINTRIN_specIISHFTC,
  1529.     FFEINTRIN_specJISHFTC,
  1530.     FFEINTRIN_specNONE,
  1531.     FFEINTRIN_specNONE,
  1532.     FFEINTRIN_specNONE,
  1533.     FFEINTRIN_specNONE,
  1534.     FFEINTRIN_specNONE,
  1535.     FFEINTRIN_specNONE,
  1536.     FFEINTRIN_specNONE,
  1537.     FFEINTRIN_specNONE,
  1538.     FFEINTRIN_specNONE,
  1539.     FFEINTRIN_specNONE,
  1540.     FFEINTRIN_specNONE
  1541.   )
  1542. DEFGEN (FFEINTRIN_genISIGN, "ISIGN",    /* F90 */
  1543.     FFEINTRIN_specISIGN,
  1544.     FFEINTRIN_specIISIGN,
  1545.     FFEINTRIN_specJISIGN,
  1546.     FFEINTRIN_specNONE,
  1547.     FFEINTRIN_specNONE,
  1548.     FFEINTRIN_specNONE,
  1549.     FFEINTRIN_specNONE,
  1550.     FFEINTRIN_specNONE,
  1551.     FFEINTRIN_specNONE,
  1552.     FFEINTRIN_specNONE,
  1553.     FFEINTRIN_specNONE,
  1554.     FFEINTRIN_specNONE,
  1555.     FFEINTRIN_specNONE,
  1556.     FFEINTRIN_specNONE
  1557.   )
  1558. DEFGEN (FFEINTRIN_genKIND, "KIND",    /* F90 */
  1559.     FFEINTRIN_specKIND,
  1560.     FFEINTRIN_specNONE,
  1561.     FFEINTRIN_specNONE,
  1562.     FFEINTRIN_specNONE,
  1563.     FFEINTRIN_specNONE,
  1564.     FFEINTRIN_specNONE,
  1565.     FFEINTRIN_specNONE,
  1566.     FFEINTRIN_specNONE,
  1567.     FFEINTRIN_specNONE,
  1568.     FFEINTRIN_specNONE,
  1569.     FFEINTRIN_specNONE,
  1570.     FFEINTRIN_specNONE,
  1571.     FFEINTRIN_specNONE,
  1572.     FFEINTRIN_specNONE
  1573.   )
  1574. DEFGEN (FFEINTRIN_genLBOUND, "LBOUND",    /* F90 */
  1575.     FFEINTRIN_specLBOUND,
  1576.     FFEINTRIN_specNONE,
  1577.     FFEINTRIN_specNONE,
  1578.     FFEINTRIN_specNONE,
  1579.     FFEINTRIN_specNONE,
  1580.     FFEINTRIN_specNONE,
  1581.     FFEINTRIN_specNONE,
  1582.     FFEINTRIN_specNONE,
  1583.     FFEINTRIN_specNONE,
  1584.     FFEINTRIN_specNONE,
  1585.     FFEINTRIN_specNONE,
  1586.     FFEINTRIN_specNONE,
  1587.     FFEINTRIN_specNONE,
  1588.     FFEINTRIN_specNONE
  1589.   )
  1590. DEFGEN (FFEINTRIN_genLEN, "LEN",    /* F90 */
  1591.     FFEINTRIN_specLEN,
  1592.     FFEINTRIN_specNONE,
  1593.     FFEINTRIN_specNONE,
  1594.     FFEINTRIN_specNONE,
  1595.     FFEINTRIN_specNONE,
  1596.     FFEINTRIN_specNONE,
  1597.     FFEINTRIN_specNONE,
  1598.     FFEINTRIN_specNONE,
  1599.     FFEINTRIN_specNONE,
  1600.     FFEINTRIN_specNONE,
  1601.     FFEINTRIN_specNONE,
  1602.     FFEINTRIN_specNONE,
  1603.     FFEINTRIN_specNONE,
  1604.     FFEINTRIN_specNONE
  1605.   )
  1606. DEFGEN (FFEINTRIN_genLEN_TRIM, "LEN_TRIM",    /* F90 */
  1607.     FFEINTRIN_specLEN_TRIM,
  1608.     FFEINTRIN_specNONE,
  1609.     FFEINTRIN_specNONE,
  1610.     FFEINTRIN_specNONE,
  1611.     FFEINTRIN_specNONE,
  1612.     FFEINTRIN_specNONE,
  1613.     FFEINTRIN_specNONE,
  1614.     FFEINTRIN_specNONE,
  1615.     FFEINTRIN_specNONE,
  1616.     FFEINTRIN_specNONE,
  1617.     FFEINTRIN_specNONE,
  1618.     FFEINTRIN_specNONE,
  1619.     FFEINTRIN_specNONE,
  1620.     FFEINTRIN_specNONE
  1621.   )
  1622. DEFGEN (FFEINTRIN_genLGE, "LGE",    /* F90 */
  1623.     FFEINTRIN_specLGE,
  1624.     FFEINTRIN_specNONE,
  1625.     FFEINTRIN_specNONE,
  1626.     FFEINTRIN_specNONE,
  1627.     FFEINTRIN_specNONE,
  1628.     FFEINTRIN_specNONE,
  1629.     FFEINTRIN_specNONE,
  1630.     FFEINTRIN_specNONE,
  1631.     FFEINTRIN_specNONE,
  1632.     FFEINTRIN_specNONE,
  1633.     FFEINTRIN_specNONE,
  1634.     FFEINTRIN_specNONE,
  1635.     FFEINTRIN_specNONE,
  1636.     FFEINTRIN_specNONE
  1637.   )
  1638. DEFGEN (FFEINTRIN_genLGT, "LGT",    /* F90 */
  1639.     FFEINTRIN_specLGT,
  1640.     FFEINTRIN_specNONE,
  1641.     FFEINTRIN_specNONE,
  1642.     FFEINTRIN_specNONE,
  1643.     FFEINTRIN_specNONE,
  1644.     FFEINTRIN_specNONE,
  1645.     FFEINTRIN_specNONE,
  1646.     FFEINTRIN_specNONE,
  1647.     FFEINTRIN_specNONE,
  1648.     FFEINTRIN_specNONE,
  1649.     FFEINTRIN_specNONE,
  1650.     FFEINTRIN_specNONE,
  1651.     FFEINTRIN_specNONE,
  1652.     FFEINTRIN_specNONE
  1653.   )
  1654. DEFGEN (FFEINTRIN_genLLE, "LLE",    /* F90 */
  1655.     FFEINTRIN_specLLE,
  1656.     FFEINTRIN_specNONE,
  1657.     FFEINTRIN_specNONE,
  1658.     FFEINTRIN_specNONE,
  1659.     FFEINTRIN_specNONE,
  1660.     FFEINTRIN_specNONE,
  1661.     FFEINTRIN_specNONE,
  1662.     FFEINTRIN_specNONE,
  1663.     FFEINTRIN_specNONE,
  1664.     FFEINTRIN_specNONE,
  1665.     FFEINTRIN_specNONE,
  1666.     FFEINTRIN_specNONE,
  1667.     FFEINTRIN_specNONE,
  1668.     FFEINTRIN_specNONE
  1669.   )
  1670. DEFGEN (FFEINTRIN_genLLT, "LLT",    /* F90 */
  1671.     FFEINTRIN_specLLT,
  1672.     FFEINTRIN_specNONE,
  1673.     FFEINTRIN_specNONE,
  1674.     FFEINTRIN_specNONE,
  1675.     FFEINTRIN_specNONE,
  1676.     FFEINTRIN_specNONE,
  1677.     FFEINTRIN_specNONE,
  1678.     FFEINTRIN_specNONE,
  1679.     FFEINTRIN_specNONE,
  1680.     FFEINTRIN_specNONE,
  1681.     FFEINTRIN_specNONE,
  1682.     FFEINTRIN_specNONE,
  1683.     FFEINTRIN_specNONE,
  1684.     FFEINTRIN_specNONE
  1685.   )
  1686. DEFGEN (FFEINTRIN_genLOGICAL, "LOGICAL",    /* F90 */
  1687.     FFEINTRIN_specLOGICAL,
  1688.     FFEINTRIN_specNONE,
  1689.     FFEINTRIN_specNONE,
  1690.     FFEINTRIN_specNONE,
  1691.     FFEINTRIN_specNONE,
  1692.     FFEINTRIN_specNONE,
  1693.     FFEINTRIN_specNONE,
  1694.     FFEINTRIN_specNONE,
  1695.     FFEINTRIN_specNONE,
  1696.     FFEINTRIN_specNONE,
  1697.     FFEINTRIN_specNONE,
  1698.     FFEINTRIN_specNONE,
  1699.     FFEINTRIN_specNONE,
  1700.     FFEINTRIN_specNONE
  1701.   )
  1702. DEFGEN (FFEINTRIN_genLSHIFT, "LSHIFT",    /* F2C */
  1703.     FFEINTRIN_spec_LSHIFT_I,
  1704.     FFEINTRIN_spec_LSHIFT_L,
  1705.     FFEINTRIN_specNONE,
  1706.     FFEINTRIN_specNONE,
  1707.     FFEINTRIN_specNONE,
  1708.     FFEINTRIN_specNONE,
  1709.     FFEINTRIN_specNONE,
  1710.     FFEINTRIN_specNONE,
  1711.     FFEINTRIN_specNONE,
  1712.     FFEINTRIN_specNONE,
  1713.     FFEINTRIN_specNONE,
  1714.     FFEINTRIN_specNONE,
  1715.     FFEINTRIN_specNONE,
  1716.     FFEINTRIN_specNONE
  1717.   )
  1718. DEFGEN (FFEINTRIN_genMATMUL, "MATMUL",    /* F90 */
  1719.     FFEINTRIN_specMATMUL,
  1720.     FFEINTRIN_specNONE,
  1721.     FFEINTRIN_specNONE,
  1722.     FFEINTRIN_specNONE,
  1723.     FFEINTRIN_specNONE,
  1724.     FFEINTRIN_specNONE,
  1725.     FFEINTRIN_specNONE,
  1726.     FFEINTRIN_specNONE,
  1727.     FFEINTRIN_specNONE,
  1728.     FFEINTRIN_specNONE,
  1729.     FFEINTRIN_specNONE,
  1730.     FFEINTRIN_specNONE,
  1731.     FFEINTRIN_specNONE,
  1732.     FFEINTRIN_specNONE
  1733.   )
  1734. DEFGEN (FFEINTRIN_genMAXEXPONENT, "MAXEXPONENT",    /* F90 */
  1735.     FFEINTRIN_specMAXEXPONENT,
  1736.     FFEINTRIN_specNONE,
  1737.     FFEINTRIN_specNONE,
  1738.     FFEINTRIN_specNONE,
  1739.     FFEINTRIN_specNONE,
  1740.     FFEINTRIN_specNONE,
  1741.     FFEINTRIN_specNONE,
  1742.     FFEINTRIN_specNONE,
  1743.     FFEINTRIN_specNONE,
  1744.     FFEINTRIN_specNONE,
  1745.     FFEINTRIN_specNONE,
  1746.     FFEINTRIN_specNONE,
  1747.     FFEINTRIN_specNONE,
  1748.     FFEINTRIN_specNONE
  1749.   )
  1750. DEFGEN (FFEINTRIN_genMAXLOC, "MAXLOC",    /* F90 */
  1751.     FFEINTRIN_specMAXLOC,
  1752.     FFEINTRIN_specNONE,
  1753.     FFEINTRIN_specNONE,
  1754.     FFEINTRIN_specNONE,
  1755.     FFEINTRIN_specNONE,
  1756.     FFEINTRIN_specNONE,
  1757.     FFEINTRIN_specNONE,
  1758.     FFEINTRIN_specNONE,
  1759.     FFEINTRIN_specNONE,
  1760.     FFEINTRIN_specNONE,
  1761.     FFEINTRIN_specNONE,
  1762.     FFEINTRIN_specNONE,
  1763.     FFEINTRIN_specNONE,
  1764.     FFEINTRIN_specNONE
  1765.   )
  1766. DEFGEN (FFEINTRIN_genMAXVAL, "MAXVAL",    /* F90 */
  1767.     FFEINTRIN_specMAXVAL,
  1768.     FFEINTRIN_specNONE,
  1769.     FFEINTRIN_specNONE,
  1770.     FFEINTRIN_specNONE,
  1771.     FFEINTRIN_specNONE,
  1772.     FFEINTRIN_specNONE,
  1773.     FFEINTRIN_specNONE,
  1774.     FFEINTRIN_specNONE,
  1775.     FFEINTRIN_specNONE,
  1776.     FFEINTRIN_specNONE,
  1777.     FFEINTRIN_specNONE,
  1778.     FFEINTRIN_specNONE,
  1779.     FFEINTRIN_specNONE,
  1780.     FFEINTRIN_specNONE
  1781.   )
  1782. DEFGEN (FFEINTRIN_genMERGE, "MERGE",    /* F90 */
  1783.     FFEINTRIN_specMERGE,
  1784.     FFEINTRIN_specNONE,
  1785.     FFEINTRIN_specNONE,
  1786.     FFEINTRIN_specNONE,
  1787.     FFEINTRIN_specNONE,
  1788.     FFEINTRIN_specNONE,
  1789.     FFEINTRIN_specNONE,
  1790.     FFEINTRIN_specNONE,
  1791.     FFEINTRIN_specNONE,
  1792.     FFEINTRIN_specNONE,
  1793.     FFEINTRIN_specNONE,
  1794.     FFEINTRIN_specNONE,
  1795.     FFEINTRIN_specNONE,
  1796.     FFEINTRIN_specNONE
  1797.   )
  1798. DEFGEN (FFEINTRIN_genMINEXPONENT, "MINEXPONENT",    /* F90 */
  1799.     FFEINTRIN_specMINEXPONENT,
  1800.     FFEINTRIN_specNONE,
  1801.     FFEINTRIN_specNONE,
  1802.     FFEINTRIN_specNONE,
  1803.     FFEINTRIN_specNONE,
  1804.     FFEINTRIN_specNONE,
  1805.     FFEINTRIN_specNONE,
  1806.     FFEINTRIN_specNONE,
  1807.     FFEINTRIN_specNONE,
  1808.     FFEINTRIN_specNONE,
  1809.     FFEINTRIN_specNONE,
  1810.     FFEINTRIN_specNONE,
  1811.     FFEINTRIN_specNONE,
  1812.     FFEINTRIN_specNONE
  1813.   )
  1814. DEFGEN (FFEINTRIN_genMINLOC, "MINLOC",    /* F90 */
  1815.     FFEINTRIN_specMINLOC,
  1816.     FFEINTRIN_specNONE,
  1817.     FFEINTRIN_specNONE,
  1818.     FFEINTRIN_specNONE,
  1819.     FFEINTRIN_specNONE,
  1820.     FFEINTRIN_specNONE,
  1821.     FFEINTRIN_specNONE,
  1822.     FFEINTRIN_specNONE,
  1823.     FFEINTRIN_specNONE,
  1824.     FFEINTRIN_specNONE,
  1825.     FFEINTRIN_specNONE,
  1826.     FFEINTRIN_specNONE,
  1827.     FFEINTRIN_specNONE,
  1828.     FFEINTRIN_specNONE
  1829.   )
  1830. DEFGEN (FFEINTRIN_genMINVAL, "MINVAL",    /* F90 */
  1831.     FFEINTRIN_specMINVAL,
  1832.     FFEINTRIN_specNONE,
  1833.     FFEINTRIN_specNONE,
  1834.     FFEINTRIN_specNONE,
  1835.     FFEINTRIN_specNONE,
  1836.     FFEINTRIN_specNONE,
  1837.     FFEINTRIN_specNONE,
  1838.     FFEINTRIN_specNONE,
  1839.     FFEINTRIN_specNONE,
  1840.     FFEINTRIN_specNONE,
  1841.     FFEINTRIN_specNONE,
  1842.     FFEINTRIN_specNONE,
  1843.     FFEINTRIN_specNONE,
  1844.     FFEINTRIN_specNONE
  1845.   )
  1846. DEFGEN (FFEINTRIN_genMODULO, "MODULO",    /* F90 */
  1847.     FFEINTRIN_specMODULO,
  1848.     FFEINTRIN_specNONE,
  1849.     FFEINTRIN_specNONE,
  1850.     FFEINTRIN_specNONE,
  1851.     FFEINTRIN_specNONE,
  1852.     FFEINTRIN_specNONE,
  1853.     FFEINTRIN_specNONE,
  1854.     FFEINTRIN_specNONE,
  1855.     FFEINTRIN_specNONE,
  1856.     FFEINTRIN_specNONE,
  1857.     FFEINTRIN_specNONE,
  1858.     FFEINTRIN_specNONE,
  1859.     FFEINTRIN_specNONE,
  1860.     FFEINTRIN_specNONE
  1861.   )
  1862. DEFGEN (FFEINTRIN_genNEAREST, "NEAREST",    /* F90 */
  1863.     FFEINTRIN_specNEAREST,
  1864.     FFEINTRIN_specNONE,
  1865.     FFEINTRIN_specNONE,
  1866.     FFEINTRIN_specNONE,
  1867.     FFEINTRIN_specNONE,
  1868.     FFEINTRIN_specNONE,
  1869.     FFEINTRIN_specNONE,
  1870.     FFEINTRIN_specNONE,
  1871.     FFEINTRIN_specNONE,
  1872.     FFEINTRIN_specNONE,
  1873.     FFEINTRIN_specNONE,
  1874.     FFEINTRIN_specNONE,
  1875.     FFEINTRIN_specNONE,
  1876.     FFEINTRIN_specNONE
  1877.   )
  1878. DEFGEN (FFEINTRIN_genNOT, "NOT",    /* F2C, F90, VXT */
  1879.     FFEINTRIN_specNOT,
  1880.     FFEINTRIN_spec_NOT_I,
  1881.     FFEINTRIN_spec_NOT_L,
  1882.     FFEINTRIN_specINOT,
  1883.     FFEINTRIN_specJNOT,
  1884.     FFEINTRIN_specNONE,
  1885.     FFEINTRIN_specNONE,
  1886.     FFEINTRIN_specNONE,
  1887.     FFEINTRIN_specNONE,
  1888.     FFEINTRIN_specNONE,
  1889.     FFEINTRIN_specNONE,
  1890.     FFEINTRIN_specNONE,
  1891.     FFEINTRIN_specNONE,
  1892.     FFEINTRIN_specNONE
  1893.   )
  1894. DEFGEN (FFEINTRIN_genOR, "OR",    /* F2C */
  1895.     FFEINTRIN_spec_OR_I,
  1896.     FFEINTRIN_spec_OR_L,
  1897.     FFEINTRIN_specNONE,
  1898.     FFEINTRIN_specNONE,
  1899.     FFEINTRIN_specNONE,
  1900.     FFEINTRIN_specNONE,
  1901.     FFEINTRIN_specNONE,
  1902.     FFEINTRIN_specNONE,
  1903.     FFEINTRIN_specNONE,
  1904.     FFEINTRIN_specNONE,
  1905.     FFEINTRIN_specNONE,
  1906.     FFEINTRIN_specNONE,
  1907.     FFEINTRIN_specNONE,
  1908.     FFEINTRIN_specNONE
  1909.   )
  1910. DEFGEN (FFEINTRIN_genPACK, "PACK",    /* F90 */
  1911.     FFEINTRIN_specPACK,
  1912.     FFEINTRIN_specNONE,
  1913.     FFEINTRIN_specNONE,
  1914.     FFEINTRIN_specNONE,
  1915.     FFEINTRIN_specNONE,
  1916.     FFEINTRIN_specNONE,
  1917.     FFEINTRIN_specNONE,
  1918.     FFEINTRIN_specNONE,
  1919.     FFEINTRIN_specNONE,
  1920.     FFEINTRIN_specNONE,
  1921.     FFEINTRIN_specNONE,
  1922.     FFEINTRIN_specNONE,
  1923.     FFEINTRIN_specNONE,
  1924.     FFEINTRIN_specNONE
  1925.   )
  1926. DEFGEN (FFEINTRIN_genPRECISION, "PRECISION",    /* F90 */
  1927.     FFEINTRIN_specPRECISION,
  1928.     FFEINTRIN_specNONE,
  1929.     FFEINTRIN_specNONE,
  1930.     FFEINTRIN_specNONE,
  1931.     FFEINTRIN_specNONE,
  1932.     FFEINTRIN_specNONE,
  1933.     FFEINTRIN_specNONE,
  1934.     FFEINTRIN_specNONE,
  1935.     FFEINTRIN_specNONE,
  1936.     FFEINTRIN_specNONE,
  1937.     FFEINTRIN_specNONE,
  1938.     FFEINTRIN_specNONE,
  1939.     FFEINTRIN_specNONE,
  1940.     FFEINTRIN_specNONE
  1941.   )
  1942. DEFGEN (FFEINTRIN_genPRESENT, "PRESENT",    /* F90 */
  1943.     FFEINTRIN_specPRESENT,
  1944.     FFEINTRIN_specNONE,
  1945.     FFEINTRIN_specNONE,
  1946.     FFEINTRIN_specNONE,
  1947.     FFEINTRIN_specNONE,
  1948.     FFEINTRIN_specNONE,
  1949.     FFEINTRIN_specNONE,
  1950.     FFEINTRIN_specNONE,
  1951.     FFEINTRIN_specNONE,
  1952.     FFEINTRIN_specNONE,
  1953.     FFEINTRIN_specNONE,
  1954.     FFEINTRIN_specNONE,
  1955.     FFEINTRIN_specNONE,
  1956.     FFEINTRIN_specNONE
  1957.   )
  1958. DEFGEN (FFEINTRIN_genPRODUCT, "PRODUCT",    /* F90 */
  1959.     FFEINTRIN_specPRODUCT,
  1960.     FFEINTRIN_specNONE,
  1961.     FFEINTRIN_specNONE,
  1962.     FFEINTRIN_specNONE,
  1963.     FFEINTRIN_specNONE,
  1964.     FFEINTRIN_specNONE,
  1965.     FFEINTRIN_specNONE,
  1966.     FFEINTRIN_specNONE,
  1967.     FFEINTRIN_specNONE,
  1968.     FFEINTRIN_specNONE,
  1969.     FFEINTRIN_specNONE,
  1970.     FFEINTRIN_specNONE,
  1971.     FFEINTRIN_specNONE,
  1972.     FFEINTRIN_specNONE
  1973.   )
  1974. DEFGEN (FFEINTRIN_genQEXT, "QEXT",    /* VXT */
  1975.     FFEINTRIN_spec_QEXT_J,
  1976.     FFEINTRIN_spec_QEXT_I,
  1977.     FFEINTRIN_specQEXT,
  1978.     FFEINTRIN_specQEXTD,
  1979.     FFEINTRIN_spec_QEXT_Q,
  1980.     FFEINTRIN_spec_QEXT_C,
  1981.     FFEINTRIN_spec_QEXT_E,
  1982.     FFEINTRIN_specNONE,
  1983.     FFEINTRIN_specNONE,
  1984.     FFEINTRIN_specNONE,
  1985.     FFEINTRIN_specNONE,
  1986.     FFEINTRIN_specNONE,
  1987.     FFEINTRIN_specNONE,
  1988.     FFEINTRIN_specNONE
  1989.   )
  1990. DEFGEN (FFEINTRIN_genQFLOAT, "QFLOAT",    /* VXT */
  1991.     FFEINTRIN_spec_QFLOAT_J,
  1992.     FFEINTRIN_spec_QFLOAT_I,
  1993.     FFEINTRIN_specNONE,
  1994.     FFEINTRIN_specNONE,
  1995.     FFEINTRIN_specNONE,
  1996.     FFEINTRIN_specNONE,
  1997.     FFEINTRIN_specNONE,
  1998.     FFEINTRIN_specNONE,
  1999.     FFEINTRIN_specNONE,
  2000.     FFEINTRIN_specNONE,
  2001.     FFEINTRIN_specNONE,
  2002.     FFEINTRIN_specNONE,
  2003.     FFEINTRIN_specNONE,
  2004.     FFEINTRIN_specNONE
  2005.   )
  2006. DEFGEN (FFEINTRIN_genRADIX, "RADIX",    /* F90 */
  2007.     FFEINTRIN_specRADIX,
  2008.     FFEINTRIN_specNONE,
  2009.     FFEINTRIN_specNONE,
  2010.     FFEINTRIN_specNONE,
  2011.     FFEINTRIN_specNONE,
  2012.     FFEINTRIN_specNONE,
  2013.     FFEINTRIN_specNONE,
  2014.     FFEINTRIN_specNONE,
  2015.     FFEINTRIN_specNONE,
  2016.     FFEINTRIN_specNONE,
  2017.     FFEINTRIN_specNONE,
  2018.     FFEINTRIN_specNONE,
  2019.     FFEINTRIN_specNONE,
  2020.     FFEINTRIN_specNONE
  2021.   )
  2022. DEFGEN (FFEINTRIN_genRANGE, "RANGE",    /* F90 */
  2023.     FFEINTRIN_specRANGE,
  2024.     FFEINTRIN_specNONE,
  2025.     FFEINTRIN_specNONE,
  2026.     FFEINTRIN_specNONE,
  2027.     FFEINTRIN_specNONE,
  2028.     FFEINTRIN_specNONE,
  2029.     FFEINTRIN_specNONE,
  2030.     FFEINTRIN_specNONE,
  2031.     FFEINTRIN_specNONE,
  2032.     FFEINTRIN_specNONE,
  2033.     FFEINTRIN_specNONE,
  2034.     FFEINTRIN_specNONE,
  2035.     FFEINTRIN_specNONE,
  2036.     FFEINTRIN_specNONE
  2037.   )
  2038. DEFGEN (FFEINTRIN_genREPEAT, "REPEAT",    /* F90 */
  2039.     FFEINTRIN_specREPEAT,
  2040.     FFEINTRIN_specNONE,
  2041.     FFEINTRIN_specNONE,
  2042.     FFEINTRIN_specNONE,
  2043.     FFEINTRIN_specNONE,
  2044.     FFEINTRIN_specNONE,
  2045.     FFEINTRIN_specNONE,
  2046.     FFEINTRIN_specNONE,
  2047.     FFEINTRIN_specNONE,
  2048.     FFEINTRIN_specNONE,
  2049.     FFEINTRIN_specNONE,
  2050.     FFEINTRIN_specNONE,
  2051.     FFEINTRIN_specNONE,
  2052.     FFEINTRIN_specNONE
  2053.   )
  2054. DEFGEN (FFEINTRIN_genRESHAPE, "RESHAPE",    /* F90 */
  2055.     FFEINTRIN_specRESHAPE,
  2056.     FFEINTRIN_specNONE,
  2057.     FFEINTRIN_specNONE,
  2058.     FFEINTRIN_specNONE,
  2059.     FFEINTRIN_specNONE,
  2060.     FFEINTRIN_specNONE,
  2061.     FFEINTRIN_specNONE,
  2062.     FFEINTRIN_specNONE,
  2063.     FFEINTRIN_specNONE,
  2064.     FFEINTRIN_specNONE,
  2065.     FFEINTRIN_specNONE,
  2066.     FFEINTRIN_specNONE,
  2067.     FFEINTRIN_specNONE,
  2068.     FFEINTRIN_specNONE
  2069.   )
  2070. DEFGEN (FFEINTRIN_genRRSPACING, "RRSPACING",    /* F90 */
  2071.     FFEINTRIN_specRRSPACING,
  2072.     FFEINTRIN_specNONE,
  2073.     FFEINTRIN_specNONE,
  2074.     FFEINTRIN_specNONE,
  2075.     FFEINTRIN_specNONE,
  2076.     FFEINTRIN_specNONE,
  2077.     FFEINTRIN_specNONE,
  2078.     FFEINTRIN_specNONE,
  2079.     FFEINTRIN_specNONE,
  2080.     FFEINTRIN_specNONE,
  2081.     FFEINTRIN_specNONE,
  2082.     FFEINTRIN_specNONE,
  2083.     FFEINTRIN_specNONE,
  2084.     FFEINTRIN_specNONE
  2085.   )
  2086. DEFGEN (FFEINTRIN_genRSHIFT, "RSHIFT",    /* F2C */
  2087.     FFEINTRIN_spec_RSHIFT_I,
  2088.     FFEINTRIN_spec_RSHIFT_L,
  2089.     FFEINTRIN_specNONE,
  2090.     FFEINTRIN_specNONE,
  2091.     FFEINTRIN_specNONE,
  2092.     FFEINTRIN_specNONE,
  2093.     FFEINTRIN_specNONE,
  2094.     FFEINTRIN_specNONE,
  2095.     FFEINTRIN_specNONE,
  2096.     FFEINTRIN_specNONE,
  2097.     FFEINTRIN_specNONE,
  2098.     FFEINTRIN_specNONE,
  2099.     FFEINTRIN_specNONE,
  2100.     FFEINTRIN_specNONE
  2101.   )
  2102. DEFGEN (FFEINTRIN_genSCALE, "SCALE",    /* F90 */
  2103.     FFEINTRIN_specSCALE,
  2104.     FFEINTRIN_specNONE,
  2105.     FFEINTRIN_specNONE,
  2106.     FFEINTRIN_specNONE,
  2107.     FFEINTRIN_specNONE,
  2108.     FFEINTRIN_specNONE,
  2109.     FFEINTRIN_specNONE,
  2110.     FFEINTRIN_specNONE,
  2111.     FFEINTRIN_specNONE,
  2112.     FFEINTRIN_specNONE,
  2113.     FFEINTRIN_specNONE,
  2114.     FFEINTRIN_specNONE,
  2115.     FFEINTRIN_specNONE,
  2116.     FFEINTRIN_specNONE
  2117.   )
  2118. DEFGEN (FFEINTRIN_genSCAN, "SCAN",    /* F90 */
  2119.     FFEINTRIN_specSCAN,
  2120.     FFEINTRIN_specNONE,
  2121.     FFEINTRIN_specNONE,
  2122.     FFEINTRIN_specNONE,
  2123.     FFEINTRIN_specNONE,
  2124.     FFEINTRIN_specNONE,
  2125.     FFEINTRIN_specNONE,
  2126.     FFEINTRIN_specNONE,
  2127.     FFEINTRIN_specNONE,
  2128.     FFEINTRIN_specNONE,
  2129.     FFEINTRIN_specNONE,
  2130.     FFEINTRIN_specNONE,
  2131.     FFEINTRIN_specNONE,
  2132.     FFEINTRIN_specNONE
  2133.   )
  2134. DEFGEN (FFEINTRIN_genSEL_INT_KIND, "SEL_INT_KIND",    /* F90 */
  2135.     FFEINTRIN_specSEL_INT_KIND,
  2136.     FFEINTRIN_specNONE,
  2137.     FFEINTRIN_specNONE,
  2138.     FFEINTRIN_specNONE,
  2139.     FFEINTRIN_specNONE,
  2140.     FFEINTRIN_specNONE,
  2141.     FFEINTRIN_specNONE,
  2142.     FFEINTRIN_specNONE,
  2143.     FFEINTRIN_specNONE,
  2144.     FFEINTRIN_specNONE,
  2145.     FFEINTRIN_specNONE,
  2146.     FFEINTRIN_specNONE,
  2147.     FFEINTRIN_specNONE,
  2148.     FFEINTRIN_specNONE
  2149.   )
  2150. DEFGEN (FFEINTRIN_genSEL_REAL_KIND, "SEL_REAL_KIND",    /* F90 */
  2151.     FFEINTRIN_specSEL_REAL_KIND,
  2152.     FFEINTRIN_specNONE,
  2153.     FFEINTRIN_specNONE,
  2154.     FFEINTRIN_specNONE,
  2155.     FFEINTRIN_specNONE,
  2156.     FFEINTRIN_specNONE,
  2157.     FFEINTRIN_specNONE,
  2158.     FFEINTRIN_specNONE,
  2159.     FFEINTRIN_specNONE,
  2160.     FFEINTRIN_specNONE,
  2161.     FFEINTRIN_specNONE,
  2162.     FFEINTRIN_specNONE,
  2163.     FFEINTRIN_specNONE,
  2164.     FFEINTRIN_specNONE
  2165.   )
  2166. DEFGEN (FFEINTRIN_genSET_EXPONENT, "SET_EXPONENT",    /* F90 */
  2167.     FFEINTRIN_specSET_EXPONENT,
  2168.     FFEINTRIN_specNONE,
  2169.     FFEINTRIN_specNONE,
  2170.     FFEINTRIN_specNONE,
  2171.     FFEINTRIN_specNONE,
  2172.     FFEINTRIN_specNONE,
  2173.     FFEINTRIN_specNONE,
  2174.     FFEINTRIN_specNONE,
  2175.     FFEINTRIN_specNONE,
  2176.     FFEINTRIN_specNONE,
  2177.     FFEINTRIN_specNONE,
  2178.     FFEINTRIN_specNONE,
  2179.     FFEINTRIN_specNONE,
  2180.     FFEINTRIN_specNONE
  2181.   )
  2182. DEFGEN (FFEINTRIN_genSHAPE, "SHAPE",    /* F90 */
  2183.     FFEINTRIN_specSHAPE,
  2184.     FFEINTRIN_specNONE,
  2185.     FFEINTRIN_specNONE,
  2186.     FFEINTRIN_specNONE,
  2187.     FFEINTRIN_specNONE,
  2188.     FFEINTRIN_specNONE,
  2189.     FFEINTRIN_specNONE,
  2190.     FFEINTRIN_specNONE,
  2191.     FFEINTRIN_specNONE,
  2192.     FFEINTRIN_specNONE,
  2193.     FFEINTRIN_specNONE,
  2194.     FFEINTRIN_specNONE,
  2195.     FFEINTRIN_specNONE,
  2196.     FFEINTRIN_specNONE
  2197.   )
  2198. DEFGEN (FFEINTRIN_genSIND, "SIND",    /* VXT */
  2199.     FFEINTRIN_specSIND,
  2200.     FFEINTRIN_specDSIND,
  2201.     FFEINTRIN_specQSIND,
  2202.     FFEINTRIN_specNONE,
  2203.     FFEINTRIN_specNONE,
  2204.     FFEINTRIN_specNONE,
  2205.     FFEINTRIN_specNONE,
  2206.     FFEINTRIN_specNONE,
  2207.     FFEINTRIN_specNONE,
  2208.     FFEINTRIN_specNONE,
  2209.     FFEINTRIN_specNONE,
  2210.     FFEINTRIN_specNONE,
  2211.     FFEINTRIN_specNONE,
  2212.     FFEINTRIN_specNONE
  2213.   )
  2214. DEFGEN (FFEINTRIN_genSPACING, "SPACING",    /* F90 */
  2215.     FFEINTRIN_specSPACING,
  2216.     FFEINTRIN_specNONE,
  2217.     FFEINTRIN_specNONE,
  2218.     FFEINTRIN_specNONE,
  2219.     FFEINTRIN_specNONE,
  2220.     FFEINTRIN_specNONE,
  2221.     FFEINTRIN_specNONE,
  2222.     FFEINTRIN_specNONE,
  2223.     FFEINTRIN_specNONE,
  2224.     FFEINTRIN_specNONE,
  2225.     FFEINTRIN_specNONE,
  2226.     FFEINTRIN_specNONE,
  2227.     FFEINTRIN_specNONE,
  2228.     FFEINTRIN_specNONE
  2229.   )
  2230. DEFGEN (FFEINTRIN_genSPREAD, "SPREAD",    /* F90 */
  2231.     FFEINTRIN_specSPREAD,
  2232.     FFEINTRIN_specNONE,
  2233.     FFEINTRIN_specNONE,
  2234.     FFEINTRIN_specNONE,
  2235.     FFEINTRIN_specNONE,
  2236.     FFEINTRIN_specNONE,
  2237.     FFEINTRIN_specNONE,
  2238.     FFEINTRIN_specNONE,
  2239.     FFEINTRIN_specNONE,
  2240.     FFEINTRIN_specNONE,
  2241.     FFEINTRIN_specNONE,
  2242.     FFEINTRIN_specNONE,
  2243.     FFEINTRIN_specNONE,
  2244.     FFEINTRIN_specNONE
  2245.   )
  2246. DEFGEN (FFEINTRIN_genSUM, "SUM",    /* F90 */
  2247.     FFEINTRIN_specSUM,
  2248.     FFEINTRIN_specNONE,
  2249.     FFEINTRIN_specNONE,
  2250.     FFEINTRIN_specNONE,
  2251.     FFEINTRIN_specNONE,
  2252.     FFEINTRIN_specNONE,
  2253.     FFEINTRIN_specNONE,
  2254.     FFEINTRIN_specNONE,
  2255.     FFEINTRIN_specNONE,
  2256.     FFEINTRIN_specNONE,
  2257.     FFEINTRIN_specNONE,
  2258.     FFEINTRIN_specNONE,
  2259.     FFEINTRIN_specNONE,
  2260.     FFEINTRIN_specNONE
  2261.   )
  2262. DEFGEN (FFEINTRIN_genTAND, "TAND",    /* VXT */
  2263.     FFEINTRIN_specTAND,
  2264.     FFEINTRIN_specDTAND,
  2265.     FFEINTRIN_specQTAND,
  2266.     FFEINTRIN_specNONE,
  2267.     FFEINTRIN_specNONE,
  2268.     FFEINTRIN_specNONE,
  2269.     FFEINTRIN_specNONE,
  2270.     FFEINTRIN_specNONE,
  2271.     FFEINTRIN_specNONE,
  2272.     FFEINTRIN_specNONE,
  2273.     FFEINTRIN_specNONE,
  2274.     FFEINTRIN_specNONE,
  2275.     FFEINTRIN_specNONE,
  2276.     FFEINTRIN_specNONE
  2277.   )
  2278. DEFGEN (FFEINTRIN_genTINY, "TINY",    /* F90 */
  2279.     FFEINTRIN_specTINY,
  2280.     FFEINTRIN_specNONE,
  2281.     FFEINTRIN_specNONE,
  2282.     FFEINTRIN_specNONE,
  2283.     FFEINTRIN_specNONE,
  2284.     FFEINTRIN_specNONE,
  2285.     FFEINTRIN_specNONE,
  2286.     FFEINTRIN_specNONE,
  2287.     FFEINTRIN_specNONE,
  2288.     FFEINTRIN_specNONE,
  2289.     FFEINTRIN_specNONE,
  2290.     FFEINTRIN_specNONE,
  2291.     FFEINTRIN_specNONE,
  2292.     FFEINTRIN_specNONE
  2293.   )
  2294. DEFGEN (FFEINTRIN_genTRANSFER, "TRANSFER",    /* F90 */
  2295.     FFEINTRIN_specTRANSFER,
  2296.     FFEINTRIN_specNONE,
  2297.     FFEINTRIN_specNONE,
  2298.     FFEINTRIN_specNONE,
  2299.     FFEINTRIN_specNONE,
  2300.     FFEINTRIN_specNONE,
  2301.     FFEINTRIN_specNONE,
  2302.     FFEINTRIN_specNONE,
  2303.     FFEINTRIN_specNONE,
  2304.     FFEINTRIN_specNONE,
  2305.     FFEINTRIN_specNONE,
  2306.     FFEINTRIN_specNONE,
  2307.     FFEINTRIN_specNONE,
  2308.     FFEINTRIN_specNONE
  2309.   )
  2310. DEFGEN (FFEINTRIN_genTRANSPOSE, "TRANSPOSE",    /* F90 */
  2311.     FFEINTRIN_specTRANSPOSE,
  2312.     FFEINTRIN_specNONE,
  2313.     FFEINTRIN_specNONE,
  2314.     FFEINTRIN_specNONE,
  2315.     FFEINTRIN_specNONE,
  2316.     FFEINTRIN_specNONE,
  2317.     FFEINTRIN_specNONE,
  2318.     FFEINTRIN_specNONE,
  2319.     FFEINTRIN_specNONE,
  2320.     FFEINTRIN_specNONE,
  2321.     FFEINTRIN_specNONE,
  2322.     FFEINTRIN_specNONE,
  2323.     FFEINTRIN_specNONE,
  2324.     FFEINTRIN_specNONE
  2325.   )
  2326. DEFGEN (FFEINTRIN_genTRIM, "TRIM",    /* F90 */
  2327.     FFEINTRIN_specTRIM,
  2328.     FFEINTRIN_specNONE,
  2329.     FFEINTRIN_specNONE,
  2330.     FFEINTRIN_specNONE,
  2331.     FFEINTRIN_specNONE,
  2332.     FFEINTRIN_specNONE,
  2333.     FFEINTRIN_specNONE,
  2334.     FFEINTRIN_specNONE,
  2335.     FFEINTRIN_specNONE,
  2336.     FFEINTRIN_specNONE,
  2337.     FFEINTRIN_specNONE,
  2338.     FFEINTRIN_specNONE,
  2339.     FFEINTRIN_specNONE,
  2340.     FFEINTRIN_specNONE
  2341.   )
  2342. DEFGEN (FFEINTRIN_genUBOUND, "UBOUND",    /* F90 */
  2343.     FFEINTRIN_specUBOUND,
  2344.     FFEINTRIN_specNONE,
  2345.     FFEINTRIN_specNONE,
  2346.     FFEINTRIN_specNONE,
  2347.     FFEINTRIN_specNONE,
  2348.     FFEINTRIN_specNONE,
  2349.     FFEINTRIN_specNONE,
  2350.     FFEINTRIN_specNONE,
  2351.     FFEINTRIN_specNONE,
  2352.     FFEINTRIN_specNONE,
  2353.     FFEINTRIN_specNONE,
  2354.     FFEINTRIN_specNONE,
  2355.     FFEINTRIN_specNONE,
  2356.     FFEINTRIN_specNONE
  2357.   )
  2358. DEFGEN (FFEINTRIN_genUNPACK, "UNPACK",    /* F90 */
  2359.     FFEINTRIN_specUNPACK,
  2360.     FFEINTRIN_specNONE,
  2361.     FFEINTRIN_specNONE,
  2362.     FFEINTRIN_specNONE,
  2363.     FFEINTRIN_specNONE,
  2364.     FFEINTRIN_specNONE,
  2365.     FFEINTRIN_specNONE,
  2366.     FFEINTRIN_specNONE,
  2367.     FFEINTRIN_specNONE,
  2368.     FFEINTRIN_specNONE,
  2369.     FFEINTRIN_specNONE,
  2370.     FFEINTRIN_specNONE,
  2371.     FFEINTRIN_specNONE,
  2372.     FFEINTRIN_specNONE
  2373.   )
  2374. DEFGEN (FFEINTRIN_genVERIFY, "VERIFY",    /* F90 */
  2375.     FFEINTRIN_specVERIFY,
  2376.     FFEINTRIN_specNONE,
  2377.     FFEINTRIN_specNONE,
  2378.     FFEINTRIN_specNONE,
  2379.     FFEINTRIN_specNONE,
  2380.     FFEINTRIN_specNONE,
  2381.     FFEINTRIN_specNONE,
  2382.     FFEINTRIN_specNONE,
  2383.     FFEINTRIN_specNONE,
  2384.     FFEINTRIN_specNONE,
  2385.     FFEINTRIN_specNONE,
  2386.     FFEINTRIN_specNONE,
  2387.     FFEINTRIN_specNONE,
  2388.     FFEINTRIN_specNONE
  2389.   )
  2390. DEFGEN (FFEINTRIN_genXOR, "XOR",    /* F2C */
  2391.     FFEINTRIN_spec_XOR_I,
  2392.     FFEINTRIN_spec_XOR_L,
  2393.     FFEINTRIN_specNONE,
  2394.     FFEINTRIN_specNONE,
  2395.     FFEINTRIN_specNONE,
  2396.     FFEINTRIN_specNONE,
  2397.     FFEINTRIN_specNONE,
  2398.     FFEINTRIN_specNONE,
  2399.     FFEINTRIN_specNONE,
  2400.     FFEINTRIN_specNONE,
  2401.     FFEINTRIN_specNONE,
  2402.     FFEINTRIN_specNONE,
  2403.     FFEINTRIN_specNONE,
  2404.     FFEINTRIN_specNONE
  2405.   )
  2406. DEFGEN (FFEINTRIN_genZEXT, "ZEXT",    /* VXT */
  2407.     FFEINTRIN_spec_JZEXT_N,
  2408.     FFEINTRIN_spec_JZEXT_M,
  2409.     FFEINTRIN_spec_JZEXT_J,
  2410.     FFEINTRIN_spec_IZEXT_N,
  2411.     FFEINTRIN_spec_IZEXT_M,
  2412.     FFEINTRIN_spec_IZEXT_L,
  2413.     FFEINTRIN_spec_IZEXT_J,
  2414.     FFEINTRIN_spec_IZEXT_I,
  2415.     FFEINTRIN_specNONE,
  2416.     FFEINTRIN_specNONE,
  2417.     FFEINTRIN_specNONE,
  2418.     FFEINTRIN_specNONE,
  2419.     FFEINTRIN_specNONE,
  2420.     FFEINTRIN_specNONE
  2421.   )
  2422. DEFGEN (FFEINTRIN_genNONE, "none",
  2423.     FFEINTRIN_specNONE,
  2424.     FFEINTRIN_specNONE,
  2425.     FFEINTRIN_specNONE,
  2426.     FFEINTRIN_specNONE,
  2427.     FFEINTRIN_specNONE,
  2428.     FFEINTRIN_specNONE,
  2429.     FFEINTRIN_specNONE,
  2430.     FFEINTRIN_specNONE,
  2431.     FFEINTRIN_specNONE,
  2432.     FFEINTRIN_specNONE,
  2433.     FFEINTRIN_specNONE,
  2434.     FFEINTRIN_specNONE,
  2435.     FFEINTRIN_specNONE,
  2436.     FFEINTRIN_specNONE
  2437.   )
  2438.  
  2439. /* Start off with specific intrinsic implementations in any order
  2440.    (currently alpha).  This list corresponds to actual implementations
  2441.    of specific intrinsics, so there is no redundancy -- e.g. instead
  2442.    of FLOAT and REAL, there is only _REAL_I.  We use this non-
  2443.    redundancy when determining which specific intrinsic is meant
  2444.    by a generic -- REAL(I) can match either specific REAL or FLOAT,
  2445.    but rather than complain about that, we see that the implementations
  2446.    are the same.  This approach should allow lots of extensions in
  2447.    the form of possibly conflicting intrinsic sets with complaints
  2448.    arising only when those sets are enabled and the potentially
  2449.    conflicting intrinsics are actually referenced.  */
  2450.  
  2451. #define I_ FFEINFO_basictypeINTEGER, FFEINFO_kindtypeINTEGERDEFAULT, NC_
  2452. #define L_ FFEINFO_basictypeLOGICAL, FFEINFO_kindtypeLOGICALDEFAULT, NC_
  2453. #define R_ FFEINFO_basictypeREAL, FFEINFO_kindtypeREALDEFAULT, NC_
  2454. #define D_ FFEINFO_basictypeREAL, FFEINFO_kindtypeREALDOUBLE, NC_
  2455. #define C_ FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREALDEFAULT, NC_
  2456. #define E_ FFEINFO_basictypeCOMPLEX, FFEINFO_kindtypeREALDOUBLE, NC_
  2457. #define A_ FFEINFO_basictypeCHARACTER, FFEINFO_kindtypeCHARACTERDEFAULT, 1
  2458. #define VOID_ FFEINFO_basictypeNONE, FFEINFO_kindtypeNONE, NC_
  2459. #define NC_ FFETARGET_charactersizeNONE
  2460. #define cI1_ ffeintrin_check_int_1_
  2461. #define cL1_ ffeintrin_check_log_1_
  2462. #define cR1_ ffeintrin_check_real_1_
  2463. #define cD1_ ffeintrin_check_realdbl_1_
  2464. #define cC1_ ffeintrin_check_cmplx_1_
  2465. #define cE1_ ffeintrin_check_dcmplx_1_
  2466. #define cA1_ ffeintrin_check_char_1_
  2467. #define cI1or2_ ffeintrin_check_int_1or2_
  2468. #define cL1or2_ ffeintrin_check_log_1or2_
  2469. #define cR1or2_ ffeintrin_check_real_1or2_
  2470. #define cD1or2_ ffeintrin_check_realdbl_1or2_
  2471. #define cC1or2_ ffeintrin_check_cmplx_1or2_
  2472. #define cE1or2_ ffeintrin_check_dcmplx_1or2_
  2473. #define cI2_ ffeintrin_check_int_2_
  2474. #define cL2_ ffeintrin_check_log_2_
  2475. #define cR2_ ffeintrin_check_real_2_
  2476. #define cD2_ ffeintrin_check_realdbl_2_
  2477. #define cA2_ ffeintrin_check_char_2_
  2478. #define cI2p_ ffeintrin_check_int_2p_
  2479. #define cL2p_ ffeintrin_check_log_2p_
  2480. #define cR2p_ ffeintrin_check_real_2p_
  2481. #define cD2p_ ffeintrin_check_realdbl_2p_
  2482. #define cI2or3_ ffeintrin_check_int_2or3_
  2483. #define cL2or3_ ffeintrin_check_log_2or3_
  2484. #define cR2or3_ ffeintrin_check_real_2or3_
  2485. #define cD2or3_ ffeintrin_check_realdbl_2or3_
  2486. #define cC2or3_ ffeintrin_check_cmplx_2or3_
  2487. #define cE2or3_ ffeintrin_check_dcmplx_2or3_
  2488. #define cI3_ ffeintrin_check_int_3_
  2489. #define cL3_ ffeintrin_check_log_3_
  2490. #define cR3_ ffeintrin_check_real_3_
  2491. #define cD3_ ffeintrin_check_realdbl_3_
  2492. #define cA3_ ffeintrin_check_char_3_
  2493. #define Void_ ffeintrin_check_void_
  2494. DEFIMP (FFEINTRIN_impABS, "ABS", FFECOM_gfrtABS, R_, cR1_)
  2495. DEFIMP (FFEINTRIN_impACOS, "ACOS", FFECOM_gfrtACOS, R_, cR1_)
  2496. DEFIMP (FFEINTRIN_impAIMAG, "AIMAG", FFECOM_gfrtAIMAG, R_, cC1_)
  2497. DEFIMP (FFEINTRIN_impAINT, "AINT", FFECOM_gfrtAINT, R_, cR1_)
  2498. DEFIMP (FFEINTRIN_impALOG, "ALOG", FFECOM_gfrtALOG, R_, cR1_)
  2499. DEFIMP (FFEINTRIN_impALOG10, "ALOG10", FFECOM_gfrtALOG10, R_, cR1_)
  2500. DEFIMP (FFEINTRIN_impAMAX0, "AMAX0", FFECOM_gfrt, R_, cI2p_)
  2501. DEFIMP (FFEINTRIN_impAMAX1, "AMAX1", FFECOM_gfrt, R_, cR2p_)
  2502. DEFIMP (FFEINTRIN_impAMIN0, "AMIN0", FFECOM_gfrt, R_, cI2p_)
  2503. DEFIMP (FFEINTRIN_impAMIN1, "AMIN1", FFECOM_gfrt, R_, cR2p_)
  2504. DEFIMP (FFEINTRIN_impAMOD, "AMOD", FFECOM_gfrtAMOD, R_, cR2_)
  2505. DEFIMP (FFEINTRIN_impANINT, "ANINT", FFECOM_gfrtANINT, R_, cR1_)
  2506. DEFIMP (FFEINTRIN_impASIN, "ASIN", FFECOM_gfrtASIN, R_, cR1_)
  2507. DEFIMP (FFEINTRIN_impATAN, "ATAN", FFECOM_gfrtATAN, R_, cR1_)
  2508. DEFIMP (FFEINTRIN_impATAN2, "ATAN2", FFECOM_gfrtATAN2, R_, cR2_)
  2509. DEFIMP (FFEINTRIN_impCABS, "CABS", FFECOM_gfrtCABS, R_, cC1_)
  2510. DEFIMP (FFEINTRIN_impCCOS, "CCOS", FFECOM_gfrtCCOS, C_, cC1_)
  2511. DEFIMP (FFEINTRIN_impCEXP, "CEXP", FFECOM_gfrtCEXP, C_, cC1_)
  2512. DEFIMP (FFEINTRIN_impCHAR, "CHAR", FFECOM_gfrt, A_, cI1_)
  2513. DEFIMP (FFEINTRIN_impCLOG, "CLOG", FFECOM_gfrtCLOG, C_, cC1_)
  2514. DEFIMP (FFEINTRIN_impCONJG, "CONJG", FFECOM_gfrtCONJG, C_, cC1_)
  2515. DEFIMP (FFEINTRIN_impCOS, "COS", FFECOM_gfrtCOS, R_, cR1_)
  2516. DEFIMP (FFEINTRIN_impCOSH, "COSH", FFECOM_gfrtCOSH, R_, cR1_)
  2517. DEFIMP (FFEINTRIN_impCSIN, "CSIN", FFECOM_gfrtCSIN, C_, cC1_)
  2518. DEFIMP (FFEINTRIN_impCSQRT, "CSQRT", FFECOM_gfrtCSQRT, C_, cC1_)
  2519. DEFIMP (FFEINTRIN_impDABS, "DABS", FFECOM_gfrtDABS, D_, cD1_)
  2520. DEFIMP (FFEINTRIN_impDACOS, "DACOS", FFECOM_gfrtDACOS, D_, cD1_)
  2521. DEFIMP (FFEINTRIN_impDASIN, "DASIN", FFECOM_gfrtDASIN, D_, cD1_)
  2522. DEFIMP (FFEINTRIN_impDATAN, "DATAN", FFECOM_gfrtDATAN, D_, cD1_)
  2523. DEFIMP (FFEINTRIN_impDATAN2, "DATAN2", FFECOM_gfrtDATAN2, D_, cD2_)
  2524. DEFIMP (FFEINTRIN_impDCOS, "DCOS", FFECOM_gfrtDCOS, D_, cD1_)
  2525. DEFIMP (FFEINTRIN_impDCOSH, "DCOSH", FFECOM_gfrtDCOSH, D_, cD1_)
  2526. DEFIMP (FFEINTRIN_impDDIM, "DDIM", FFECOM_gfrtDDIM, D_, cD2_)
  2527. DEFIMP (FFEINTRIN_impDEXP, "DEXP", FFECOM_gfrtDEXP, D_, cD1_)
  2528. DEFIMP (FFEINTRIN_impDIM, "DIM", FFECOM_gfrtDIM, R_, cR2_)
  2529. DEFIMP (FFEINTRIN_impDINT, "DINT", FFECOM_gfrtDINT, D_, cD1_)
  2530. DEFIMP (FFEINTRIN_impDLOG, "DLOG", FFECOM_gfrtDLOG, D_, cD1_)
  2531. DEFIMP (FFEINTRIN_impDLOG10, "DLOG10", FFECOM_gfrtDLOG10, D_, cD1_)
  2532. DEFIMP (FFEINTRIN_impDMAX1, "DMAX1", FFECOM_gfrt, D_, cD2p_)
  2533. DEFIMP (FFEINTRIN_impDMIN1, "DMIN1", FFECOM_gfrt, D_, cD2p_)
  2534. DEFIMP (FFEINTRIN_impDMOD, "DMOD", FFECOM_gfrtDMOD, D_, cD2_)
  2535. DEFIMP (FFEINTRIN_impDNINT, "DNINT", FFECOM_gfrtDNINT, D_, cD1_)
  2536. DEFIMP (FFEINTRIN_impDPROD, "DPROD", FFECOM_gfrtDPROD, D_, cR2_)
  2537. DEFIMP (FFEINTRIN_impDSIGN, "DSIGN", FFECOM_gfrtDSIGN, D_, cD2_)
  2538. DEFIMP (FFEINTRIN_impDSIN, "DSIN", FFECOM_gfrtDSIN, D_, cD1_)
  2539. DEFIMP (FFEINTRIN_impDSINH, "DSINH", FFECOM_gfrtDSINH, D_, cD1_)
  2540. DEFIMP (FFEINTRIN_impDSQRT, "DSQRT", FFECOM_gfrtDSQRT, D_, cD1_)
  2541. DEFIMP (FFEINTRIN_impDTAN, "DTAN", FFECOM_gfrtDTAN, D_, cD1_)
  2542. DEFIMP (FFEINTRIN_impDTANH, "DTANH", FFECOM_gfrtDTANH, D_, cD1_)
  2543. DEFIMP (FFEINTRIN_impEXP, "EXP", FFECOM_gfrtEXP, R_, cR1_)
  2544. DEFIMP (FFEINTRIN_impIABS, "IABS", FFECOM_gfrtIABS, I_, cI1_)
  2545. DEFIMP (FFEINTRIN_impICHAR, "ICHAR", FFECOM_gfrt, I_, cA1_)
  2546. DEFIMP (FFEINTRIN_impIDIM, "IDIM", FFECOM_gfrtIDIM, I_, cI2_)
  2547. DEFIMP (FFEINTRIN_impIDNINT, "IDNINT", FFECOM_gfrtIDNINT, I_, cD1_)
  2548. DEFIMP (FFEINTRIN_impINDEX, "INDEX", FFECOM_gfrtINDEX, I_, cA2_)
  2549. DEFIMP (FFEINTRIN_impISIGN, "ISIGN", FFECOM_gfrtISIGN, I_, cI2_)
  2550. DEFIMP (FFEINTRIN_impLEN, "LEN", FFECOM_gfrtLEN, I_, cA1_)
  2551. DEFIMP (FFEINTRIN_impLGE, "LGE", FFECOM_gfrtLGE, L_, cA2_)
  2552. DEFIMP (FFEINTRIN_impLGT, "LGT", FFECOM_gfrtLGT, L_, cA2_)
  2553. DEFIMP (FFEINTRIN_impLLE, "LLE", FFECOM_gfrtLLE, L_, cA2_)
  2554. DEFIMP (FFEINTRIN_impLLT, "LLT", FFECOM_gfrtLLT, L_, cA2_)
  2555. DEFIMP (FFEINTRIN_impMAX0, "MAX0", FFECOM_gfrt, I_, cI2p_)
  2556. DEFIMP (FFEINTRIN_impMAX1, "MAX1", FFECOM_gfrt, I_, cR2p_)
  2557. DEFIMP (FFEINTRIN_impMIN0, "MIN0", FFECOM_gfrt, I_, cI2p_)
  2558. DEFIMP (FFEINTRIN_impMIN1, "MIN1", FFECOM_gfrt, I_, cR2p_)
  2559. DEFIMP (FFEINTRIN_impMOD, "MOD", FFECOM_gfrtMOD, I_, cI2_)
  2560. DEFIMP (FFEINTRIN_impNINT, "NINT", FFECOM_gfrtNINT, I_, cR1_)
  2561. DEFIMP (FFEINTRIN_impSIGN, "SIGN", FFECOM_gfrtSIGN, R_, cR2_)
  2562. DEFIMP (FFEINTRIN_impSIN, "SIN", FFECOM_gfrtSIN, R_, cR1_)
  2563. DEFIMP (FFEINTRIN_impSINH, "SINH", FFECOM_gfrtSINH, R_, cR1_)
  2564. DEFIMP (FFEINTRIN_impSQRT, "SQRT", FFECOM_gfrtSQRT, R_, cR1_)
  2565. DEFIMP (FFEINTRIN_impTAN, "TAN", FFECOM_gfrtTAN, R_, cR1_)
  2566. DEFIMP (FFEINTRIN_impTANH, "TANH", FFECOM_gfrtTANH, R_, cR1_)
  2567. DEFIMP (FFEINTRIN_imp_CMPLX_C, "cmplx_c", FFECOM_gfrt, C_, cC1or2_)
  2568. DEFIMP (FFEINTRIN_imp_CMPLX_D, "cmplx_d", FFECOM_gfrt, C_, cD1or2_)
  2569. DEFIMP (FFEINTRIN_imp_CMPLX_I, "cmplx_i", FFECOM_gfrt, C_, cI1or2_)
  2570. DEFIMP (FFEINTRIN_imp_CMPLX_R, "cmplx_r", FFECOM_gfrt, C_, cR1or2_)
  2571. DEFIMP (FFEINTRIN_imp_DBLE_C, "dble_c", FFECOM_gfrt, D_, cC1_)
  2572. DEFIMP (FFEINTRIN_imp_DBLE_D, "dble_d", FFECOM_gfrt, D_, cD1_)
  2573. DEFIMP (FFEINTRIN_imp_DBLE_I, "dble_i", FFECOM_gfrt, D_, cI1_)
  2574. DEFIMP (FFEINTRIN_imp_DBLE_R, "dble_r", FFECOM_gfrt, D_, cR1_)
  2575. DEFIMP (FFEINTRIN_imp_INT_C, "int_c", FFECOM_gfrt, I_, cC1_)
  2576. DEFIMP (FFEINTRIN_imp_INT_D, "int_d", FFECOM_gfrt, I_, cD1_)
  2577. DEFIMP (FFEINTRIN_imp_INT_I, "int_i", FFECOM_gfrt, I_, cI1_)
  2578. DEFIMP (FFEINTRIN_imp_INT_R, "int_r", FFECOM_gfrt, I_, cR1_)
  2579. DEFIMP (FFEINTRIN_imp_REAL_C, "real_c", FFECOM_gfrt, R_, cC1_)
  2580. DEFIMP (FFEINTRIN_imp_REAL_D, "real_d", FFECOM_gfrt, R_, cD1_)
  2581. DEFIMP (FFEINTRIN_imp_REAL_I, "real_i", FFECOM_gfrt, R_, cI1_)
  2582. DEFIMP (FFEINTRIN_imp_REAL_R, "real_r", FFECOM_gfrt, R_, cR1_)
  2583. DEFIMP (FFEINTRIN_impACHAR, "ACHAR", FFECOM_gfrt, A_, cI1_)
  2584. DEFIMP (FFEINTRIN_impBIT_SIZE, "BIT_SIZE", FFECOM_gfrt, I_, cI1_)
  2585. DEFIMP (FFEINTRIN_impBTEST, "BTEST", FFECOM_gfrt, L_, cI2_)
  2586. DEFIMP (FFEINTRIN_impCDABS, "CDABS", FFECOM_gfrtCDABS, D_, cE1_)
  2587. DEFIMP (FFEINTRIN_impCDCOS, "CDCOS", FFECOM_gfrtCDCOS, E_, cE1_)
  2588. DEFIMP (FFEINTRIN_impCDEXP, "CDEXP", FFECOM_gfrtCDEXP, E_, cE1_)
  2589. DEFIMP (FFEINTRIN_impCDLOG, "CDLOG", FFECOM_gfrtCDLOG, E_, cE1_)
  2590. DEFIMP (FFEINTRIN_impCDSIN, "CDSIN", FFECOM_gfrtCDSIN, E_, cE1_)
  2591. DEFIMP (FFEINTRIN_impCDSQRT, "CDSQRT", FFECOM_gfrtCDSQRT, E_, cE1_)
  2592. DEFIMP (FFEINTRIN_impDCONJG, "DCONJG", FFECOM_gfrtDCONJG, E_, cE1_)
  2593. DEFIMP (FFEINTRIN_impDIMAG, "DIMAG", FFECOM_gfrtDIMAG, D_, cE1_)
  2594. DEFIMP (FFEINTRIN_impIACHAR, "IACHAR", FFECOM_gfrt, I_, cA1_)
  2595. DEFIMP (FFEINTRIN_impIAND, "IAND", FFECOM_gfrt, I_, cI2_)
  2596. DEFIMP (FFEINTRIN_impIBCLR, "IBCLR", FFECOM_gfrt, I_, cI2_)
  2597. DEFIMP (FFEINTRIN_impIBITS, "IBITS", FFECOM_gfrt, I_, cI3_)
  2598. DEFIMP (FFEINTRIN_impIBSET, "IBSET", FFECOM_gfrt, I_, cI2_)
  2599. DEFIMP (FFEINTRIN_impIEOR, "IEOR", FFECOM_gfrt, I_, cI2_)
  2600. DEFIMP (FFEINTRIN_impIOR, "IOR", FFECOM_gfrt, I_, cI2_)
  2601. DEFIMP (FFEINTRIN_impISHFT, "ISHFT", FFECOM_gfrt, I_, cI2_)
  2602. DEFIMP (FFEINTRIN_impISHFTC, "ISHFTC", FFECOM_gfrt, I_, cI3_)
  2603. DEFIMP (FFEINTRIN_impLOC, "LOC", FFECOM_gfrt, I_, ffeintrin_check_loc_)
  2604. DEFIMP (FFEINTRIN_impMVBITS, "MVBITS", FFECOM_gfrt, VOID_, ffeintrin_check_mvbits_)
  2605. DEFIMP (FFEINTRIN_impNOT, "NOT", FFECOM_gfrt, I_, cI1_)
  2606. DEFIMP (FFEINTRIN_imp_AND_L, "and_l", FFECOM_gfrt, L_, cL2_)
  2607. DEFIMP (FFEINTRIN_imp_CMPLX_E, "cmplx_e", FFECOM_gfrt, C_, cE1or2_)
  2608. DEFIMP (FFEINTRIN_imp_DBLE_E, "dble_e", FFECOM_gfrt, D_, cE1_)
  2609. DEFIMP (FFEINTRIN_imp_DCMPLX_C, "dcmplx_c", FFECOM_gfrt, E_, cC1or2_)
  2610. DEFIMP (FFEINTRIN_imp_DCMPLX_D, "dcmplx_d", FFECOM_gfrt, E_, cD1or2_)
  2611. DEFIMP (FFEINTRIN_imp_DCMPLX_E, "dcmplx_e", FFECOM_gfrt, E_, cE1or2_)
  2612. DEFIMP (FFEINTRIN_imp_DCMPLX_I, "dcmplx_i", FFECOM_gfrt, E_, cI1or2_)
  2613. DEFIMP (FFEINTRIN_imp_DCMPLX_R, "dcmplx_r", FFECOM_gfrt, E_, cR1or2_)
  2614. DEFIMP (FFEINTRIN_imp_INT_E, "int_e", FFECOM_gfrt, I_, cE1_)
  2615. DEFIMP (FFEINTRIN_imp_LSHIFT_I, "lshift_i", FFECOM_gfrt, I_, cI2_)
  2616. DEFIMP (FFEINTRIN_imp_LSHIFT_L, "lshift_l", FFECOM_gfrt, L_, cL2_)
  2617. DEFIMP (FFEINTRIN_imp_NOT_L, "not_l", FFECOM_gfrt, L_, cL1_)
  2618. DEFIMP (FFEINTRIN_imp_OR_L, "or_l", FFECOM_gfrt, L_, cL2_)
  2619. DEFIMP (FFEINTRIN_imp_REAL_E, "real_e", FFECOM_gfrt, R_, cE1_)
  2620. DEFIMP (FFEINTRIN_imp_RSHIFT_I, "rshift_i", FFECOM_gfrt, I_, cI2_)
  2621. DEFIMP (FFEINTRIN_imp_RSHIFT_L, "rshift_l", FFECOM_gfrt, L_, cL2_)
  2622. DEFIMP (FFEINTRIN_imp_XOR_L, "xor_l", FFECOM_gfrt, L_, cL2_)
  2623. DEFIMP (FFEINTRIN_impNONE, "none", FFECOM_gfrt, VOID_, Void_)
  2624. #undef I_
  2625. #undef L_
  2626. #undef R_
  2627. #undef D_
  2628. #undef C_
  2629. #undef A_
  2630. #undef NC_
  2631. #undef cI1_
  2632. #undef cR1_
  2633. #undef cD1_
  2634. #undef cC1_
  2635. #undef cA1_
  2636. #undef cI1or2_
  2637. #undef cR1or2_
  2638. #undef cD1or2_
  2639. #undef cC1or2_
  2640.  
  2641.  
  2642. /* Start off with named specific intrinsics in any order (currently
  2643.    alpha).  This list corresponds to both named intrinsics in the
  2644.    source code (as in "INTRINSIC FOO", "CALL X(FOO)", and "FOO(...)")
  2645.    and named/unnamed intrinsics accessed via generic intrinsics
  2646.    (as in "INT((1.,2.))", which corresponds to an unnamed specific
  2647.    intrinsic that converts a COMPLEX to an INTEGER).  There is
  2648.    redundancy of implementation in this list, as in FLOAT and REAL
  2649.    meaning the same thing (convert INTEGER to REAL).  */
  2650.  
  2651. DEFSPEC (FFEINTRIN_specABS,
  2652.     "ABS",
  2653.     TRUE,
  2654.     FFEINTRIN_familyF77,
  2655.     FFEINTRIN_impABS
  2656.   )
  2657. DEFSPEC (FFEINTRIN_specACOS,
  2658.     "ACOS",
  2659.     TRUE,
  2660.     FFEINTRIN_familyF77,
  2661.     FFEINTRIN_impACOS
  2662.   )
  2663. DEFSPEC (FFEINTRIN_specAIMAG,
  2664.     "AIMAG",
  2665.     TRUE,
  2666.     FFEINTRIN_familyF77,
  2667.     FFEINTRIN_impAIMAG
  2668.   )
  2669. DEFSPEC (FFEINTRIN_specAINT,
  2670.     "AINT",
  2671.     TRUE,
  2672.     FFEINTRIN_familyF77,
  2673.     FFEINTRIN_impAINT
  2674.   )
  2675. DEFSPEC (FFEINTRIN_specALOG,
  2676.     "ALOG",
  2677.     TRUE,
  2678.     FFEINTRIN_familyF77,
  2679.     FFEINTRIN_impALOG
  2680.   )
  2681. DEFSPEC (FFEINTRIN_specALOG10,
  2682.     "ALOG10",
  2683.     TRUE,
  2684.     FFEINTRIN_familyF77,
  2685.     FFEINTRIN_impALOG10
  2686.   )
  2687. DEFSPEC (FFEINTRIN_specAMAX0,
  2688.     "AMAX0",
  2689.     FALSE,
  2690.     FFEINTRIN_familyF77,
  2691.     FFEINTRIN_impAMAX0
  2692.   )
  2693. DEFSPEC (FFEINTRIN_specAMAX1,
  2694.     "AMAX1",
  2695.     FALSE,
  2696.     FFEINTRIN_familyF77,
  2697.     FFEINTRIN_impAMAX1
  2698.   )
  2699. DEFSPEC (FFEINTRIN_specAMIN0,
  2700.     "AMIN0",
  2701.     FALSE,
  2702.     FFEINTRIN_familyF77,
  2703.     FFEINTRIN_impAMIN0
  2704.   )
  2705. DEFSPEC (FFEINTRIN_specAMIN1,
  2706.     "AMIN1",
  2707.     FALSE,
  2708.     FFEINTRIN_familyF77,
  2709.     FFEINTRIN_impAMIN1
  2710.   )
  2711. DEFSPEC (FFEINTRIN_specAMOD,
  2712.     "AMOD",
  2713.     TRUE,
  2714.     FFEINTRIN_familyF77,
  2715.     FFEINTRIN_impAMOD
  2716.   )
  2717. DEFSPEC (FFEINTRIN_specANINT,
  2718.     "ANINT",
  2719.     TRUE,
  2720.     FFEINTRIN_familyF77,
  2721.     FFEINTRIN_impANINT
  2722.   )
  2723. DEFSPEC (FFEINTRIN_specASIN,
  2724.     "ASIN",
  2725.     TRUE,
  2726.     FFEINTRIN_familyF77,
  2727.     FFEINTRIN_impASIN
  2728.   )
  2729. DEFSPEC (FFEINTRIN_specATAN,
  2730.     "ATAN",
  2731.     TRUE,
  2732.     FFEINTRIN_familyF77,
  2733.     FFEINTRIN_impATAN
  2734.   )
  2735. DEFSPEC (FFEINTRIN_specATAN2,
  2736.     "ATAN2",
  2737.     TRUE,
  2738.     FFEINTRIN_familyF77,
  2739.     FFEINTRIN_impATAN2
  2740.   )
  2741. DEFSPEC (FFEINTRIN_specCABS,
  2742.     "CABS",
  2743.     TRUE,
  2744.     FFEINTRIN_familyF77,
  2745.     FFEINTRIN_impCABS
  2746.   )
  2747. DEFSPEC (FFEINTRIN_specCCOS,
  2748.     "CCOS",
  2749.     TRUE,
  2750.     FFEINTRIN_familyF77,
  2751.     FFEINTRIN_impCCOS
  2752.   )
  2753. DEFSPEC (FFEINTRIN_specCEXP,
  2754.     "CEXP",
  2755.     TRUE,
  2756.     FFEINTRIN_familyF77,
  2757.     FFEINTRIN_impCEXP
  2758.   )
  2759. DEFSPEC (FFEINTRIN_specCHAR,
  2760.     "CHAR",
  2761.     FALSE,
  2762.     FFEINTRIN_familyF77,
  2763.     FFEINTRIN_impCHAR
  2764.   )
  2765. DEFSPEC (FFEINTRIN_specCLOG,
  2766.     "CLOG",
  2767.     TRUE,
  2768.     FFEINTRIN_familyF77,
  2769.     FFEINTRIN_impCLOG
  2770.   )
  2771. DEFSPEC (FFEINTRIN_specCONJG,
  2772.     "CONJG",
  2773.     TRUE,
  2774.     FFEINTRIN_familyF77,
  2775.     FFEINTRIN_impCONJG
  2776.   )
  2777. DEFSPEC (FFEINTRIN_specCOS,
  2778.     "COS",
  2779.     TRUE,
  2780.     FFEINTRIN_familyF77,
  2781.     FFEINTRIN_impCOS
  2782.   )
  2783. DEFSPEC (FFEINTRIN_specCOSH,
  2784.     "COSH",
  2785.     TRUE,
  2786.     FFEINTRIN_familyF77,
  2787.     FFEINTRIN_impCOSH
  2788.   )
  2789. DEFSPEC (FFEINTRIN_specCSIN,
  2790.     "CSIN",
  2791.     TRUE,
  2792.     FFEINTRIN_familyF77,
  2793.     FFEINTRIN_impCSIN
  2794.   )
  2795. DEFSPEC (FFEINTRIN_specCSQRT,
  2796.     "CSQRT",
  2797.     TRUE,
  2798.     FFEINTRIN_familyF77,
  2799.     FFEINTRIN_impCSQRT
  2800.   )
  2801. DEFSPEC (FFEINTRIN_specDABS,
  2802.     "DABS",
  2803.     TRUE,
  2804.     FFEINTRIN_familyF77,
  2805.     FFEINTRIN_impDABS
  2806.   )
  2807. DEFSPEC (FFEINTRIN_specDACOS,
  2808.     "DACOS",
  2809.     TRUE,
  2810.     FFEINTRIN_familyF77,
  2811.     FFEINTRIN_impDACOS
  2812.   )
  2813. DEFSPEC (FFEINTRIN_specDASIN,
  2814.     "DASIN",
  2815.     TRUE,
  2816.     FFEINTRIN_familyF77,
  2817.     FFEINTRIN_impDASIN
  2818.   )
  2819. DEFSPEC (FFEINTRIN_specDATAN,
  2820.     "DATAN",
  2821.     TRUE,
  2822.     FFEINTRIN_familyF77,
  2823.     FFEINTRIN_impDATAN
  2824.   )
  2825. DEFSPEC (FFEINTRIN_specDATAN2,
  2826.     "DATAN2",
  2827.     TRUE,
  2828.     FFEINTRIN_familyF77,
  2829.     FFEINTRIN_impDATAN2
  2830.   )
  2831. DEFSPEC (FFEINTRIN_specDCOS,
  2832.     "DCOS",
  2833.     TRUE,
  2834.     FFEINTRIN_familyF77,
  2835.     FFEINTRIN_impDCOS
  2836.   )
  2837. DEFSPEC (FFEINTRIN_specDCOSH,
  2838.     "DCOSH",
  2839.     TRUE,
  2840.     FFEINTRIN_familyF77,
  2841.     FFEINTRIN_impDCOSH
  2842.   )
  2843. DEFSPEC (FFEINTRIN_specDDIM,
  2844.     "DDIM",
  2845.     TRUE,
  2846.     FFEINTRIN_familyF77,
  2847.     FFEINTRIN_impDDIM
  2848.   )
  2849. DEFSPEC (FFEINTRIN_specDEXP,
  2850.     "DEXP",
  2851.     TRUE,
  2852.     FFEINTRIN_familyF77,
  2853.     FFEINTRIN_impDEXP
  2854.   )
  2855. DEFSPEC (FFEINTRIN_specDIM,
  2856.     "DIM",
  2857.     TRUE,
  2858.     FFEINTRIN_familyF77,
  2859.     FFEINTRIN_impDIM
  2860.   )
  2861. DEFSPEC (FFEINTRIN_specDINT,
  2862.     "DINT",
  2863.     TRUE,
  2864.     FFEINTRIN_familyF77,
  2865.     FFEINTRIN_impDINT
  2866.   )
  2867. DEFSPEC (FFEINTRIN_specDLOG,
  2868.     "DLOG",
  2869.     TRUE,
  2870.     FFEINTRIN_familyF77,
  2871.     FFEINTRIN_impDLOG
  2872.   )
  2873. DEFSPEC (FFEINTRIN_specDLOG10,
  2874.     "DLOG10",
  2875.     TRUE,
  2876.     FFEINTRIN_familyF77,
  2877.     FFEINTRIN_impDLOG10
  2878.   )
  2879. DEFSPEC (FFEINTRIN_specDMAX1,
  2880.     "DMAX1",
  2881.     FALSE,
  2882.     FFEINTRIN_familyF77,
  2883.     FFEINTRIN_impDMAX1
  2884.   )
  2885. DEFSPEC (FFEINTRIN_specDMIN1,
  2886.     "DMIN1",
  2887.     FALSE,
  2888.     FFEINTRIN_familyF77,
  2889.     FFEINTRIN_impDMIN1
  2890.   )
  2891. DEFSPEC (FFEINTRIN_specDMOD,
  2892.     "DMOD",
  2893.     TRUE,
  2894.     FFEINTRIN_familyF77,
  2895.     FFEINTRIN_impDMOD
  2896.   )
  2897. DEFSPEC (FFEINTRIN_specDNINT,
  2898.     "DNINT",
  2899.     TRUE,
  2900.     FFEINTRIN_familyF77,
  2901.     FFEINTRIN_impDNINT
  2902.   )
  2903. DEFSPEC (FFEINTRIN_specDPROD,
  2904.     "DPROD",
  2905.     TRUE,
  2906.     FFEINTRIN_familyF77,
  2907.     FFEINTRIN_impDPROD
  2908.   )
  2909. DEFSPEC (FFEINTRIN_specDSIGN,
  2910.     "DSIGN",
  2911.     TRUE,
  2912.     FFEINTRIN_familyF77,
  2913.     FFEINTRIN_impDSIGN
  2914.   )
  2915. DEFSPEC (FFEINTRIN_specDSIN,
  2916.     "DSIN",
  2917.     TRUE,
  2918.     FFEINTRIN_familyF77,
  2919.     FFEINTRIN_impDSIN
  2920.   )
  2921. DEFSPEC (FFEINTRIN_specDSINH,
  2922.     "DSINH",
  2923.     TRUE,
  2924.     FFEINTRIN_familyF77,
  2925.     FFEINTRIN_impDSINH
  2926.   )
  2927. DEFSPEC (FFEINTRIN_specDSQRT,
  2928.     "DSQRT",
  2929.     TRUE,
  2930.     FFEINTRIN_familyF77,
  2931.     FFEINTRIN_impDSQRT
  2932.   )
  2933. DEFSPEC (FFEINTRIN_specDTAN,
  2934.     "DTAN",
  2935.     TRUE,
  2936.     FFEINTRIN_familyF77,
  2937.     FFEINTRIN_impDTAN
  2938.   )
  2939. DEFSPEC (FFEINTRIN_specDTANH,
  2940.     "DTANH",
  2941.     TRUE,
  2942.     FFEINTRIN_familyF77,
  2943.     FFEINTRIN_impDTANH
  2944.   )
  2945. DEFSPEC (FFEINTRIN_specEXP,
  2946.     "EXP",
  2947.     TRUE,
  2948.     FFEINTRIN_familyF77,
  2949.     FFEINTRIN_impEXP
  2950.   )
  2951. DEFSPEC (FFEINTRIN_specFLOAT,
  2952.     "FLOAT",
  2953.     FALSE,
  2954.     FFEINTRIN_familyF77,
  2955.     FFEINTRIN_imp_REAL_I
  2956.   )
  2957. DEFSPEC (FFEINTRIN_specIABS,
  2958.     "IABS",
  2959.     TRUE,
  2960.     FFEINTRIN_familyF77,
  2961.     FFEINTRIN_impIABS
  2962.   )
  2963. DEFSPEC (FFEINTRIN_specICHAR,
  2964.     "ICHAR",
  2965.     FALSE,
  2966.     FFEINTRIN_familyF77,
  2967.     FFEINTRIN_impICHAR
  2968.   )
  2969. DEFSPEC (FFEINTRIN_specIDIM,
  2970.     "IDIM",
  2971.     TRUE,
  2972.     FFEINTRIN_familyF77,
  2973.     FFEINTRIN_impIDIM
  2974.   )
  2975. DEFSPEC (FFEINTRIN_specIDINT,
  2976.     "IDINT",
  2977.     FALSE,
  2978.     FFEINTRIN_familyF77,
  2979.     FFEINTRIN_imp_INT_D
  2980.   )
  2981. DEFSPEC (FFEINTRIN_specIDNINT,
  2982.     "IDNINT",
  2983.     TRUE,
  2984.     FFEINTRIN_familyF77,
  2985.     FFEINTRIN_impIDNINT
  2986.   )
  2987. DEFSPEC (FFEINTRIN_specIFIX,
  2988.     "IFIX",
  2989.     FALSE,
  2990.     FFEINTRIN_familyF77,
  2991.     FFEINTRIN_imp_INT_R
  2992.   )
  2993. DEFSPEC (FFEINTRIN_specINDEX,
  2994.     "INDEX",
  2995.     TRUE,
  2996.     FFEINTRIN_familyF77,
  2997.     FFEINTRIN_impINDEX
  2998.   )
  2999. DEFSPEC (FFEINTRIN_specINT,
  3000.     "INT",
  3001.     FALSE,
  3002.     FFEINTRIN_familyF77,
  3003.     FFEINTRIN_imp_INT_R
  3004.   )
  3005. DEFSPEC (FFEINTRIN_specISIGN,
  3006.     "ISIGN",
  3007.     TRUE,
  3008.     FFEINTRIN_familyF77,
  3009.     FFEINTRIN_impISIGN
  3010.   )
  3011. DEFSPEC (FFEINTRIN_specLEN,
  3012.     "LEN",
  3013.     TRUE,
  3014.     FFEINTRIN_familyF77,
  3015.     FFEINTRIN_impLEN
  3016.   )
  3017. DEFSPEC (FFEINTRIN_specLGE,
  3018.     "LGE",
  3019.     FALSE,
  3020.     FFEINTRIN_familyF77,
  3021.     FFEINTRIN_impLGE
  3022.   )
  3023. DEFSPEC (FFEINTRIN_specLGT,
  3024.     "LGT",
  3025.     FALSE,
  3026.     FFEINTRIN_familyF77,
  3027.     FFEINTRIN_impLGT
  3028.   )
  3029. DEFSPEC (FFEINTRIN_specLLE,
  3030.     "LLE",
  3031.     FALSE,
  3032.     FFEINTRIN_familyF77,
  3033.     FFEINTRIN_impLLE
  3034.   )
  3035. DEFSPEC (FFEINTRIN_specLLT,
  3036.     "LLT",
  3037.     FALSE,
  3038.     FFEINTRIN_familyF77,
  3039.     FFEINTRIN_impLLT
  3040.   )
  3041. DEFSPEC (FFEINTRIN_specMAX0,
  3042.     "MAX0",
  3043.     FALSE,
  3044.     FFEINTRIN_familyF77,
  3045.     FFEINTRIN_impMAX0
  3046.   )
  3047. DEFSPEC (FFEINTRIN_specMAX1,
  3048.     "MAX1",
  3049.     FALSE,
  3050.     FFEINTRIN_familyF77,
  3051.     FFEINTRIN_impMAX1
  3052.   )
  3053. DEFSPEC (FFEINTRIN_specMIN0,
  3054.     "MIN0",
  3055.     FALSE,
  3056.     FFEINTRIN_familyF77,
  3057.     FFEINTRIN_impMIN0
  3058.   )
  3059. DEFSPEC (FFEINTRIN_specMIN1,
  3060.     "MIN1",
  3061.     FALSE,
  3062.     FFEINTRIN_familyF77,
  3063.     FFEINTRIN_impMIN1
  3064.   )
  3065. DEFSPEC (FFEINTRIN_specMOD,
  3066.     "MOD",
  3067.     TRUE,
  3068.     FFEINTRIN_familyF77,
  3069.     FFEINTRIN_impMOD
  3070.   )
  3071. DEFSPEC (FFEINTRIN_specNINT,
  3072.     "NINT",
  3073.     TRUE,
  3074.     FFEINTRIN_familyF77,
  3075.     FFEINTRIN_impNINT
  3076.   )
  3077. DEFSPEC (FFEINTRIN_specREAL,
  3078.     "REAL",
  3079.     FALSE,
  3080.     FFEINTRIN_familyF77,
  3081.     FFEINTRIN_imp_REAL_I
  3082.   )
  3083. DEFSPEC (FFEINTRIN_specSIGN,
  3084.     "SIGN",
  3085.     TRUE,
  3086.     FFEINTRIN_familyF77,
  3087.     FFEINTRIN_impSIGN
  3088.   )
  3089. DEFSPEC (FFEINTRIN_specSIN,
  3090.     "SIN",
  3091.     TRUE,
  3092.     FFEINTRIN_familyF77,
  3093.     FFEINTRIN_impSIN
  3094.   )
  3095. DEFSPEC (FFEINTRIN_specSINH,
  3096.     "SINH",
  3097.     TRUE,
  3098.     FFEINTRIN_familyF77,
  3099.     FFEINTRIN_impSINH
  3100.   )
  3101. DEFSPEC (FFEINTRIN_specSNGL,
  3102.     "SNGL",
  3103.     FALSE,
  3104.     FFEINTRIN_familyF77,
  3105.     FFEINTRIN_imp_REAL_D
  3106.   )
  3107. DEFSPEC (FFEINTRIN_specSQRT,
  3108.     "SQRT",
  3109.     TRUE,
  3110.     FFEINTRIN_familyF77,
  3111.     FFEINTRIN_impSQRT
  3112.   )
  3113. DEFSPEC (FFEINTRIN_specTAN,
  3114.     "TAN",
  3115.     TRUE,
  3116.     FFEINTRIN_familyF77,
  3117.     FFEINTRIN_impTAN
  3118.   )
  3119. DEFSPEC (FFEINTRIN_specTANH,
  3120.     "TANH",
  3121.     TRUE,
  3122.     FFEINTRIN_familyF77,
  3123.     FFEINTRIN_impTANH
  3124.   )
  3125. DEFSPEC (FFEINTRIN_spec_CMPLX_C,
  3126.     "cmplx_c",
  3127.     FALSE,
  3128.     FFEINTRIN_familyF77,
  3129.     FFEINTRIN_imp_CMPLX_C
  3130.   )
  3131. DEFSPEC (FFEINTRIN_spec_CMPLX_D,
  3132.     "cmplx_d",
  3133.     FALSE,
  3134.     FFEINTRIN_familyF77,
  3135.     FFEINTRIN_imp_CMPLX_D
  3136.   )
  3137. DEFSPEC (FFEINTRIN_spec_CMPLX_I,
  3138.     "cmplx_i",
  3139.     FALSE,
  3140.     FFEINTRIN_familyF77,
  3141.     FFEINTRIN_imp_CMPLX_I
  3142.   )
  3143. DEFSPEC (FFEINTRIN_spec_CMPLX_R,
  3144.     "cmplx_r",
  3145.     FALSE,
  3146.     FFEINTRIN_familyF77,
  3147.     FFEINTRIN_imp_CMPLX_R
  3148.   )
  3149. DEFSPEC (FFEINTRIN_spec_DBLE_C,
  3150.     "dble_c",
  3151.     FALSE,
  3152.     FFEINTRIN_familyF77,
  3153.     FFEINTRIN_imp_DBLE_C
  3154.   )
  3155. DEFSPEC (FFEINTRIN_spec_DBLE_D,
  3156.     "dble_d",
  3157.     FALSE,
  3158.     FFEINTRIN_familyF77,
  3159.     FFEINTRIN_imp_DBLE_D
  3160.   )
  3161. DEFSPEC (FFEINTRIN_spec_DBLE_I,
  3162.     "dble_i",
  3163.     FALSE,
  3164.     FFEINTRIN_familyF77,
  3165.     FFEINTRIN_imp_DBLE_I
  3166.   )
  3167. DEFSPEC (FFEINTRIN_spec_DBLE_J,
  3168.     "dble_j",
  3169.     FALSE,
  3170.     FFEINTRIN_familyF77,
  3171.     FFEINTRIN_impNONE
  3172.   )
  3173. DEFSPEC (FFEINTRIN_spec_DBLE_R,
  3174.     "dble_r",
  3175.     FALSE,
  3176.     FFEINTRIN_familyF77,
  3177.     FFEINTRIN_imp_DBLE_R
  3178.   )
  3179. DEFSPEC (FFEINTRIN_spec_INT_C,
  3180.     "int_c",
  3181.     FALSE,
  3182.     FFEINTRIN_familyF77,
  3183.     FFEINTRIN_imp_INT_C
  3184.   )
  3185. DEFSPEC (FFEINTRIN_spec_INT_I,
  3186.     "int_i",
  3187.     FALSE,
  3188.     FFEINTRIN_familyF77,
  3189.     FFEINTRIN_imp_INT_I
  3190.   )
  3191. DEFSPEC (FFEINTRIN_spec_REAL_C,
  3192.     "real_c",
  3193.     FALSE,
  3194.     FFEINTRIN_familyF77,
  3195.     FFEINTRIN_imp_REAL_C
  3196.   )
  3197. DEFSPEC (FFEINTRIN_spec_REAL_R,
  3198.     "real_r",
  3199.     FALSE,
  3200.     FFEINTRIN_familyF77,
  3201.     FFEINTRIN_imp_REAL_R
  3202.   )
  3203. DEFSPEC (FFEINTRIN_specACHAR,
  3204.     "ACHAR",
  3205.     FALSE,
  3206.     FFEINTRIN_familyASC,
  3207.     FFEINTRIN_impACHAR
  3208.   )
  3209. DEFSPEC (FFEINTRIN_specACOSD,
  3210.     "ACOSD",
  3211.     TRUE,
  3212.     FFEINTRIN_familyVXT,
  3213.     FFEINTRIN_impNONE
  3214.   )
  3215. DEFSPEC (FFEINTRIN_specADJUSTL,
  3216.     "ADJUSTL",
  3217.     FALSE,
  3218.     FFEINTRIN_familyF90,
  3219.     FFEINTRIN_impNONE
  3220.   )
  3221. DEFSPEC (FFEINTRIN_specADJUSTR,
  3222.     "ADJUSTR",
  3223.     FALSE,
  3224.     FFEINTRIN_familyF90,
  3225.     FFEINTRIN_impNONE
  3226.   )
  3227. DEFSPEC (FFEINTRIN_specAIMAX0,
  3228.     "AIMAX0",
  3229.     FALSE,
  3230.     FFEINTRIN_familyVXT,
  3231.     FFEINTRIN_impNONE
  3232.   )
  3233. DEFSPEC (FFEINTRIN_specAIMIN0,
  3234.     "AIMIN0",
  3235.     FALSE,
  3236.     FFEINTRIN_familyVXT,
  3237.     FFEINTRIN_impNONE
  3238.   )
  3239. DEFSPEC (FFEINTRIN_specAJMAX0,
  3240.     "AJMAX0",
  3241.     FALSE,
  3242.     FFEINTRIN_familyVXT,
  3243.     FFEINTRIN_impAMAX0
  3244.   )
  3245. DEFSPEC (FFEINTRIN_specAJMIN0,
  3246.     "AJMIN0",
  3247.     FALSE,
  3248.     FFEINTRIN_familyVXT,
  3249.     FFEINTRIN_impAMIN0
  3250.   )
  3251. DEFSPEC (FFEINTRIN_specALL,
  3252.     "ALL",
  3253.     FALSE,
  3254.     FFEINTRIN_familyF90,
  3255.     FFEINTRIN_impNONE
  3256.   )
  3257. DEFSPEC (FFEINTRIN_specALLOCATED,
  3258.     "ALLOCATED",
  3259.     FALSE,
  3260.     FFEINTRIN_familyF90,
  3261.     FFEINTRIN_impNONE
  3262.   )
  3263. DEFSPEC (FFEINTRIN_specANY,
  3264.     "ANY",
  3265.     FALSE,
  3266.     FFEINTRIN_familyF90,
  3267.     FFEINTRIN_impNONE
  3268.   )
  3269. DEFSPEC (FFEINTRIN_specASIND,
  3270.     "ASIND",
  3271.     TRUE,
  3272.     FFEINTRIN_familyVXT,
  3273.     FFEINTRIN_impNONE
  3274.   )
  3275. DEFSPEC (FFEINTRIN_specASSOCIATED,
  3276.     "ASSOCIATED",
  3277.     FALSE,
  3278.     FFEINTRIN_familyF90,
  3279.     FFEINTRIN_impNONE
  3280.   )
  3281. DEFSPEC (FFEINTRIN_specATAN2D,
  3282.     "ATAN2D",
  3283.     TRUE,
  3284.     FFEINTRIN_familyVXT,
  3285.     FFEINTRIN_impNONE
  3286.   )
  3287. DEFSPEC (FFEINTRIN_specATAND,
  3288.     "ATAND",
  3289.     TRUE,
  3290.     FFEINTRIN_familyVXT,
  3291.     FFEINTRIN_impNONE
  3292.   )
  3293. DEFSPEC (FFEINTRIN_specBIT_SIZE,
  3294.     "BIT_SIZE",
  3295.     FALSE,
  3296.     FFEINTRIN_familyF90,
  3297.     FFEINTRIN_impBIT_SIZE
  3298.   )
  3299. DEFSPEC (FFEINTRIN_specBITEST,
  3300.     "BITEST",
  3301.     FALSE,
  3302.     FFEINTRIN_familyVXT,
  3303.     FFEINTRIN_impNONE
  3304.   )
  3305. DEFSPEC (FFEINTRIN_specBJTEST,
  3306.     "BJTEST",
  3307.     FALSE,
  3308.     FFEINTRIN_familyVXT,
  3309.     FFEINTRIN_impBTEST
  3310.   )
  3311. DEFSPEC (FFEINTRIN_specBTEST,
  3312.     "BTEST",
  3313.     FALSE,
  3314.     FFEINTRIN_familyMIL,
  3315.     FFEINTRIN_impBTEST
  3316.   )
  3317. DEFSPEC (FFEINTRIN_specCDABS,
  3318.     "CDABS",
  3319.     TRUE,
  3320.     FFEINTRIN_familyFVZ,
  3321.     FFEINTRIN_impCDABS
  3322.   )
  3323. DEFSPEC (FFEINTRIN_specCDCOS,
  3324.     "CDCOS",
  3325.     TRUE,
  3326.     FFEINTRIN_familyFVZ,
  3327.     FFEINTRIN_impCDCOS
  3328.   )
  3329. DEFSPEC (FFEINTRIN_specCDEXP,
  3330.     "CDEXP",
  3331.     TRUE,
  3332.     FFEINTRIN_familyFVZ,
  3333.     FFEINTRIN_impCDEXP
  3334.   )
  3335. DEFSPEC (FFEINTRIN_specCDLOG,
  3336.     "CDLOG",
  3337.     TRUE,
  3338.     FFEINTRIN_familyFVZ,
  3339.     FFEINTRIN_impCDLOG
  3340.   )
  3341. DEFSPEC (FFEINTRIN_specCDSIN,
  3342.     "CDSIN",
  3343.     TRUE,
  3344.     FFEINTRIN_familyFVZ,
  3345.     FFEINTRIN_impCDSIN
  3346.   )
  3347. DEFSPEC (FFEINTRIN_specCDSQRT,
  3348.     "CDSQRT",
  3349.     TRUE,
  3350.     FFEINTRIN_familyFVZ,
  3351.     FFEINTRIN_impCDSQRT
  3352.   )
  3353. DEFSPEC (FFEINTRIN_specCEILING,
  3354.     "CEILING",
  3355.     FALSE,
  3356.     FFEINTRIN_familyF90,
  3357.     FFEINTRIN_impNONE
  3358.   )
  3359. DEFSPEC (FFEINTRIN_specCOSD,
  3360.     "COSD",
  3361.     TRUE,
  3362.     FFEINTRIN_familyVXT,
  3363.     FFEINTRIN_impNONE
  3364.   )
  3365. DEFSPEC (FFEINTRIN_specCOUNT,
  3366.     "COUNT",
  3367.     FALSE,
  3368.     FFEINTRIN_familyF90,
  3369.     FFEINTRIN_impNONE
  3370.   )
  3371. DEFSPEC (FFEINTRIN_specCSHIFT,
  3372.     "CSHIFT",
  3373.     FALSE,
  3374.     FFEINTRIN_familyF90,
  3375.     FFEINTRIN_impNONE
  3376.   )
  3377. DEFSPEC (FFEINTRIN_specDACOSD,
  3378.     "DACOSD",
  3379.     TRUE,
  3380.     FFEINTRIN_familyVXT,
  3381.     FFEINTRIN_impNONE
  3382.   )
  3383. DEFSPEC (FFEINTRIN_specDASIND,
  3384.     "DASIND",
  3385.     TRUE,
  3386.     FFEINTRIN_familyVXT,
  3387.     FFEINTRIN_impNONE
  3388.   )
  3389. DEFSPEC (FFEINTRIN_specDATAN2D,
  3390.     "DATAN2D",
  3391.     TRUE,
  3392.     FFEINTRIN_familyVXT,
  3393.     FFEINTRIN_impNONE
  3394.   )
  3395. DEFSPEC (FFEINTRIN_specDATAND,
  3396.     "DATAND",
  3397.     TRUE,
  3398.     FFEINTRIN_familyVXT,
  3399.     FFEINTRIN_impNONE
  3400.   )
  3401. DEFSPEC (FFEINTRIN_specDATE_AND_TIME,
  3402.     "DATE_AND_TIME",
  3403.     FALSE,
  3404.     FFEINTRIN_familyF90,
  3405.     FFEINTRIN_impNONE
  3406.   )
  3407. DEFSPEC (FFEINTRIN_specDBLE,
  3408.     "DBLE",
  3409.     FALSE,
  3410.     FFEINTRIN_familyVXT,
  3411.     FFEINTRIN_imp_DBLE_R
  3412.   )
  3413. DEFSPEC (FFEINTRIN_specDBLEQ,
  3414.     "DBLEQ",
  3415.     FALSE,
  3416.     FFEINTRIN_familyVXT,
  3417.     FFEINTRIN_impNONE
  3418.   )
  3419. DEFSPEC (FFEINTRIN_specDCONJG,
  3420.     "DCONJG",
  3421.     TRUE,
  3422.     FFEINTRIN_familyFVZ,
  3423.     FFEINTRIN_impDCONJG
  3424.   )
  3425. DEFSPEC (FFEINTRIN_specDCOSD,
  3426.     "DCOSD",
  3427.     TRUE,
  3428.     FFEINTRIN_familyVXT,
  3429.     FFEINTRIN_impNONE
  3430.   )
  3431. DEFSPEC (FFEINTRIN_specDFLOAT,
  3432.     "DFLOAT",
  3433.     FALSE,
  3434.     FFEINTRIN_familyF2C,
  3435.     FFEINTRIN_imp_DBLE_I
  3436.   )
  3437. DEFSPEC (FFEINTRIN_specDFLOTI,
  3438.     "DFLOTI",
  3439.     FALSE,
  3440.     FFEINTRIN_familyVXT,
  3441.     FFEINTRIN_impNONE
  3442.   )
  3443. DEFSPEC (FFEINTRIN_specDFLOTJ,
  3444.     "DFLOTJ",
  3445.     FALSE,
  3446.     FFEINTRIN_familyVXT,
  3447.     FFEINTRIN_imp_DBLE_I
  3448.   )
  3449. DEFSPEC (FFEINTRIN_specDIGITS,
  3450.     "DIGITS",
  3451.     FALSE,
  3452.     FFEINTRIN_familyF90,
  3453.     FFEINTRIN_impNONE
  3454.   )
  3455. DEFSPEC (FFEINTRIN_specDIMAG,
  3456.     "DIMAG",
  3457.     TRUE,
  3458.     FFEINTRIN_familyFVZ,
  3459.     FFEINTRIN_impDIMAG
  3460.   )
  3461. DEFSPEC (FFEINTRIN_specDOT_PRODUCT,
  3462.     "DOT_PRODUCT",
  3463.     FALSE,
  3464.     FFEINTRIN_familyF90,
  3465.     FFEINTRIN_impNONE
  3466.   )
  3467. DEFSPEC (FFEINTRIN_specDREAL,
  3468.     "DREAL",
  3469.     FALSE,
  3470.     FFEINTRIN_familyFVZ,
  3471.     FFEINTRIN_imp_DBLE_E
  3472.   )
  3473. DEFSPEC (FFEINTRIN_specDSIND,
  3474.     "DSIND",
  3475.     TRUE,
  3476.     FFEINTRIN_familyVXT,
  3477.     FFEINTRIN_impNONE
  3478.   )
  3479. DEFSPEC (FFEINTRIN_specDTAND,
  3480.     "DTAND",
  3481.     TRUE,
  3482.     FFEINTRIN_familyVXT,
  3483.     FFEINTRIN_impNONE
  3484.   )
  3485. DEFSPEC (FFEINTRIN_specEOSHIFT,
  3486.     "EOSHIFT",
  3487.     FALSE,
  3488.     FFEINTRIN_familyF90,
  3489.     FFEINTRIN_impNONE
  3490.   )
  3491. DEFSPEC (FFEINTRIN_specEPSILON,
  3492.     "EPSILON",
  3493.     FALSE,
  3494.     FFEINTRIN_familyF90,
  3495.     FFEINTRIN_impNONE
  3496.   )
  3497. DEFSPEC (FFEINTRIN_specEXPONENT,
  3498.     "EXPONENT",
  3499.     FALSE,
  3500.     FFEINTRIN_familyF90,
  3501.     FFEINTRIN_impNONE
  3502.   )
  3503. DEFSPEC (FFEINTRIN_specFLOATI,
  3504.     "FLOATI",
  3505.     FALSE,
  3506.     FFEINTRIN_familyVXT,
  3507.     FFEINTRIN_impNONE
  3508.   )
  3509. DEFSPEC (FFEINTRIN_specFLOATJ,
  3510.     "FLOATJ",
  3511.     FALSE,
  3512.     FFEINTRIN_familyVXT,
  3513.     FFEINTRIN_imp_REAL_I
  3514.   )
  3515. DEFSPEC (FFEINTRIN_specFLOOR,
  3516.     "FLOOR",
  3517.     FALSE,
  3518.     FFEINTRIN_familyF90,
  3519.     FFEINTRIN_impNONE
  3520.   )
  3521. DEFSPEC (FFEINTRIN_specFRACTION,
  3522.     "FRACTION",
  3523.     FALSE,
  3524.     FFEINTRIN_familyF90,
  3525.     FFEINTRIN_impNONE
  3526.   )
  3527. DEFSPEC (FFEINTRIN_specHUGE,
  3528.     "HUGE",
  3529.     FALSE,
  3530.     FFEINTRIN_familyF90,
  3531.     FFEINTRIN_impNONE
  3532.   )
  3533. DEFSPEC (FFEINTRIN_specIACHAR,
  3534.     "IACHAR",
  3535.     FALSE,
  3536.     FFEINTRIN_familyASC,
  3537.     FFEINTRIN_impIACHAR
  3538.   )
  3539. DEFSPEC (FFEINTRIN_specIAND,
  3540.     "IAND",
  3541.     FALSE,
  3542.     FFEINTRIN_familyMIL,
  3543.     FFEINTRIN_impIAND
  3544.   )
  3545. DEFSPEC (FFEINTRIN_specIBCLR,
  3546.     "IBCLR",
  3547.     FALSE,
  3548.     FFEINTRIN_familyMIL,
  3549.     FFEINTRIN_impIBCLR
  3550.   )
  3551. DEFSPEC (FFEINTRIN_specIBITS,
  3552.     "IBITS",
  3553.     FALSE,
  3554.     FFEINTRIN_familyMIL,
  3555.     FFEINTRIN_impIBITS
  3556.   )
  3557. DEFSPEC (FFEINTRIN_specIBSET,
  3558.     "IBSET",
  3559.     FALSE,
  3560.     FFEINTRIN_familyMIL,
  3561.     FFEINTRIN_impIBSET
  3562.   )
  3563. DEFSPEC (FFEINTRIN_specIEOR,
  3564.     "IEOR",
  3565.     FALSE,
  3566.     FFEINTRIN_familyMIL,
  3567.     FFEINTRIN_impIEOR
  3568.   )
  3569. DEFSPEC (FFEINTRIN_specIIABS,
  3570.     "IIABS",
  3571.     TRUE,
  3572.     FFEINTRIN_familyVXT,
  3573.     FFEINTRIN_impNONE
  3574.   )
  3575. DEFSPEC (FFEINTRIN_specIIAND,
  3576.     "IIAND",
  3577.     FALSE,
  3578.     FFEINTRIN_familyVXT,
  3579.     FFEINTRIN_impNONE
  3580.   )
  3581. DEFSPEC (FFEINTRIN_specIIBCLR,
  3582.     "IIBCLR",
  3583.     FALSE,
  3584.     FFEINTRIN_familyVXT,
  3585.     FFEINTRIN_impNONE
  3586.   )
  3587. DEFSPEC (FFEINTRIN_specIIBITS,
  3588.     "IIBITS",
  3589.     FALSE,
  3590.     FFEINTRIN_familyVXT,
  3591.     FFEINTRIN_impNONE
  3592.   )
  3593. DEFSPEC (FFEINTRIN_specIIBSET,
  3594.     "IIBSET",
  3595.     FALSE,
  3596.     FFEINTRIN_familyVXT,
  3597.     FFEINTRIN_impNONE
  3598.   )
  3599. DEFSPEC (FFEINTRIN_specIIDIM,
  3600.     "IIDIM",
  3601.     TRUE,
  3602.     FFEINTRIN_familyVXT,
  3603.     FFEINTRIN_impNONE
  3604.   )
  3605. DEFSPEC (FFEINTRIN_specIIDINT,
  3606.     "IIDINT",
  3607.     FALSE,
  3608.     FFEINTRIN_familyVXT,
  3609.     FFEINTRIN_impNONE
  3610.   )
  3611. DEFSPEC (FFEINTRIN_specIIDNNT,
  3612.     "IIDNNT",
  3613.     TRUE,
  3614.     FFEINTRIN_familyVXT,
  3615.     FFEINTRIN_impNONE
  3616.   )
  3617. DEFSPEC (FFEINTRIN_specIIEOR,
  3618.     "IIEOR",
  3619.     FALSE,
  3620.     FFEINTRIN_familyVXT,
  3621.     FFEINTRIN_impNONE
  3622.   )
  3623. DEFSPEC (FFEINTRIN_specIIFIX,
  3624.     "IIFIX",
  3625.     FALSE,
  3626.     FFEINTRIN_familyVXT,
  3627.     FFEINTRIN_impNONE
  3628.   )
  3629. DEFSPEC (FFEINTRIN_specIINT,
  3630.     "IINT",
  3631.     FALSE,
  3632.     FFEINTRIN_familyVXT,
  3633.     FFEINTRIN_impNONE
  3634.   )
  3635. DEFSPEC (FFEINTRIN_specIIOR,
  3636.     "IIOR",
  3637.     FALSE,
  3638.     FFEINTRIN_familyVXT,
  3639.     FFEINTRIN_impNONE
  3640.   )
  3641. DEFSPEC (FFEINTRIN_specIIQINT,
  3642.     "IIQINT",
  3643.     FALSE,
  3644.     FFEINTRIN_familyVXT,
  3645.     FFEINTRIN_impNONE
  3646.   )
  3647. DEFSPEC (FFEINTRIN_specIIQNNT,
  3648.     "IIQNNT",
  3649.     TRUE,
  3650.     FFEINTRIN_familyVXT,
  3651.     FFEINTRIN_impNONE
  3652.   )
  3653. DEFSPEC (FFEINTRIN_specIISHFT,
  3654.     "IISHFT",
  3655.     FALSE,
  3656.     FFEINTRIN_familyVXT,
  3657.     FFEINTRIN_impNONE
  3658.   )
  3659. DEFSPEC (FFEINTRIN_specIISHFTC,
  3660.     "IISHFTC",
  3661.     FALSE,
  3662.     FFEINTRIN_familyVXT,
  3663.     FFEINTRIN_impNONE
  3664.   )
  3665. DEFSPEC (FFEINTRIN_specIISIGN,
  3666.     "IISIGN",
  3667.     TRUE,
  3668.     FFEINTRIN_familyVXT,
  3669.     FFEINTRIN_impNONE
  3670.   )
  3671. DEFSPEC (FFEINTRIN_specIMAX0,
  3672.     "IMAX0",
  3673.     FALSE,
  3674.     FFEINTRIN_familyVXT,
  3675.     FFEINTRIN_impNONE
  3676.   )
  3677. DEFSPEC (FFEINTRIN_specIMAX1,
  3678.     "IMAX1",
  3679.     FALSE,
  3680.     FFEINTRIN_familyVXT,
  3681.     FFEINTRIN_impNONE
  3682.   )
  3683. DEFSPEC (FFEINTRIN_specIMIN0,
  3684.     "IMIN0",
  3685.     FALSE,
  3686.     FFEINTRIN_familyVXT,
  3687.     FFEINTRIN_impNONE
  3688.   )
  3689. DEFSPEC (FFEINTRIN_specIMIN1,
  3690.     "IMIN1",
  3691.     FALSE,
  3692.     FFEINTRIN_familyVXT,
  3693.     FFEINTRIN_impNONE
  3694.   )
  3695. DEFSPEC (FFEINTRIN_specIMOD,
  3696.     "IMOD",
  3697.     TRUE,
  3698.     FFEINTRIN_familyVXT,
  3699.     FFEINTRIN_impNONE
  3700.   )
  3701. DEFSPEC (FFEINTRIN_specININT,
  3702.     "ININT",
  3703.     TRUE,
  3704.     FFEINTRIN_familyVXT,
  3705.     FFEINTRIN_impNONE
  3706.   )
  3707. DEFSPEC (FFEINTRIN_specINOT,
  3708.     "INOT",
  3709.     FALSE,
  3710.     FFEINTRIN_familyVXT,
  3711.     FFEINTRIN_impNONE
  3712.   )
  3713. DEFSPEC (FFEINTRIN_specIOR,
  3714.     "IOR",
  3715.     FALSE,
  3716.     FFEINTRIN_familyMIL,
  3717.     FFEINTRIN_impIOR
  3718.   )
  3719. DEFSPEC (FFEINTRIN_specISHFT,
  3720.     "ISHFT",
  3721.     FALSE,
  3722.     FFEINTRIN_familyMIL,
  3723.     FFEINTRIN_impISHFT
  3724.   )
  3725. DEFSPEC (FFEINTRIN_specISHFTC,
  3726.     "ISHFTC",
  3727.     FALSE,
  3728.     FFEINTRIN_familyMIL,
  3729.     FFEINTRIN_impISHFTC
  3730.   )
  3731. DEFSPEC (FFEINTRIN_specIZEXT,
  3732.     "IZEXT",
  3733.     FALSE,
  3734.     FFEINTRIN_familyVXT,
  3735.     FFEINTRIN_impNONE
  3736.   )
  3737. DEFSPEC (FFEINTRIN_specJIABS,
  3738.     "JIABS",
  3739.     TRUE,
  3740.     FFEINTRIN_familyVXT,
  3741.     FFEINTRIN_impIABS
  3742.   )
  3743. DEFSPEC (FFEINTRIN_specJIAND,
  3744.     "JIAND",
  3745.     FALSE,
  3746.     FFEINTRIN_familyVXT,
  3747.     FFEINTRIN_impIAND
  3748.   )
  3749. DEFSPEC (FFEINTRIN_specJIBCLR,
  3750.     "JIBCLR",
  3751.     FALSE,
  3752.     FFEINTRIN_familyVXT,
  3753.     FFEINTRIN_impIBCLR
  3754.   )
  3755. DEFSPEC (FFEINTRIN_specJIBITS,
  3756.     "JIBITS",
  3757.     FALSE,
  3758.     FFEINTRIN_familyVXT,
  3759.     FFEINTRIN_impIBITS
  3760.   )
  3761. DEFSPEC (FFEINTRIN_specJIBSET,
  3762.     "JIBSET",
  3763.     FALSE,
  3764.     FFEINTRIN_familyVXT,
  3765.     FFEINTRIN_impIBSET
  3766.   )
  3767. DEFSPEC (FFEINTRIN_specJIDIM,
  3768.     "JIDIM",
  3769.     TRUE,
  3770.     FFEINTRIN_familyVXT,
  3771.     FFEINTRIN_impIDIM
  3772.   )
  3773. DEFSPEC (FFEINTRIN_specJIDINT,
  3774.     "JIDINT",
  3775.     FALSE,
  3776.     FFEINTRIN_familyVXT,
  3777.     FFEINTRIN_imp_INT_D
  3778.   )
  3779. DEFSPEC (FFEINTRIN_specJIDNNT,
  3780.     "JIDNNT",
  3781.     TRUE,
  3782.     FFEINTRIN_familyVXT,
  3783.     FFEINTRIN_impIDNINT
  3784.   )
  3785. DEFSPEC (FFEINTRIN_specJIEOR,
  3786.     "JIEOR",
  3787.     FALSE,
  3788.     FFEINTRIN_familyVXT,
  3789.     FFEINTRIN_impIEOR
  3790.   )
  3791. DEFSPEC (FFEINTRIN_specJIFIX,
  3792.     "JIFIX",
  3793.     FALSE,
  3794.     FFEINTRIN_familyVXT,
  3795.     FFEINTRIN_imp_INT_R
  3796.   )
  3797. DEFSPEC (FFEINTRIN_specJINT,
  3798.     "JINT",
  3799.     FALSE,
  3800.     FFEINTRIN_familyVXT,
  3801.     FFEINTRIN_imp_INT_R
  3802.   )
  3803. DEFSPEC (FFEINTRIN_specJIOR,
  3804.     "JIOR",
  3805.     FALSE,
  3806.     FFEINTRIN_familyVXT,
  3807.     FFEINTRIN_impIOR
  3808.   )
  3809. DEFSPEC (FFEINTRIN_specJIQINT,
  3810.     "JIQINT",
  3811.     FALSE,
  3812.     FFEINTRIN_familyVXT,
  3813.     FFEINTRIN_impNONE
  3814.   )
  3815. DEFSPEC (FFEINTRIN_specJIQNNT,
  3816.     "JIQNNT",
  3817.     TRUE,
  3818.     FFEINTRIN_familyVXT,
  3819.     FFEINTRIN_impNONE
  3820.   )
  3821. DEFSPEC (FFEINTRIN_specJISHFT,
  3822.     "JISHFT",
  3823.     FALSE,
  3824.     FFEINTRIN_familyVXT,
  3825.     FFEINTRIN_impISHFT
  3826.   )
  3827. DEFSPEC (FFEINTRIN_specJISHFTC,
  3828.     "JISHFTC",
  3829.     FALSE,
  3830.     FFEINTRIN_familyVXT,
  3831.     FFEINTRIN_impISHFTC
  3832.   )
  3833. DEFSPEC (FFEINTRIN_specJISIGN,
  3834.     "JISIGN",
  3835.     TRUE,
  3836.     FFEINTRIN_familyVXT,
  3837.     FFEINTRIN_impISIGN
  3838.   )
  3839. DEFSPEC (FFEINTRIN_specJMAX0,
  3840.     "JMAX0",
  3841.     FALSE,
  3842.     FFEINTRIN_familyVXT,
  3843.     FFEINTRIN_impMAX0
  3844.   )
  3845. DEFSPEC (FFEINTRIN_specJMAX1,
  3846.     "JMAX1",
  3847.     FALSE,
  3848.     FFEINTRIN_familyVXT,
  3849.     FFEINTRIN_impMAX1
  3850.   )
  3851. DEFSPEC (FFEINTRIN_specJMIN0,
  3852.     "JMIN0",
  3853.     FALSE,
  3854.     FFEINTRIN_familyVXT,
  3855.     FFEINTRIN_impMIN0
  3856.   )
  3857. DEFSPEC (FFEINTRIN_specJMIN1,
  3858.     "JMIN1",
  3859.     FALSE,
  3860.     FFEINTRIN_familyVXT,
  3861.     FFEINTRIN_impMIN1
  3862.   )
  3863. DEFSPEC (FFEINTRIN_specJMOD,
  3864.     "JMOD",
  3865.     TRUE,
  3866.     FFEINTRIN_familyVXT,
  3867.     FFEINTRIN_impMOD
  3868.   )
  3869. DEFSPEC (FFEINTRIN_specJNINT,
  3870.     "JNINT",
  3871.     TRUE,
  3872.     FFEINTRIN_familyVXT,
  3873.     FFEINTRIN_impNINT
  3874.   )
  3875. DEFSPEC (FFEINTRIN_specJNOT,
  3876.     "JNOT",
  3877.     TRUE,
  3878.     FFEINTRIN_familyVXT,
  3879.     FFEINTRIN_impNOT
  3880.   )
  3881. DEFSPEC (FFEINTRIN_specJZEXT,
  3882.     "JZEXT",
  3883.     FALSE,
  3884.     FFEINTRIN_familyVXT,
  3885.     FFEINTRIN_impNONE
  3886.   )
  3887. DEFSPEC (FFEINTRIN_specKIND,
  3888.     "KIND",
  3889.     FALSE,
  3890.     FFEINTRIN_familyF90,
  3891.     FFEINTRIN_impNONE
  3892.   )
  3893. DEFSPEC (FFEINTRIN_specLBOUND,
  3894.     "LBOUND",
  3895.     FALSE,
  3896.     FFEINTRIN_familyF90,
  3897.     FFEINTRIN_impNONE
  3898.   )
  3899. DEFSPEC (FFEINTRIN_specLEN_TRIM,
  3900.     "LEN_TRIM",
  3901.     FALSE,
  3902.     FFEINTRIN_familyF90,
  3903.     FFEINTRIN_impNONE
  3904.   )
  3905. DEFSPEC (FFEINTRIN_specLOC,
  3906.     "LOC",
  3907.     FALSE,
  3908.     FFEINTRIN_familyVXT,
  3909.     FFEINTRIN_impLOC
  3910.   )
  3911. DEFSPEC (FFEINTRIN_specLOGICAL,
  3912.     "LOGICAL",
  3913.     FALSE,
  3914.     FFEINTRIN_familyF90,
  3915.     FFEINTRIN_impNONE
  3916.   )
  3917. DEFSPEC (FFEINTRIN_specMATMUL,
  3918.     "MATMUL",
  3919.     FALSE,
  3920.     FFEINTRIN_familyF90,
  3921.     FFEINTRIN_impNONE
  3922.   )
  3923. DEFSPEC (FFEINTRIN_specMAXEXPONENT,
  3924.     "MAXEXPONENT",
  3925.     FALSE,
  3926.     FFEINTRIN_familyF90,
  3927.     FFEINTRIN_impNONE
  3928.   )
  3929. DEFSPEC (FFEINTRIN_specMAXLOC,
  3930.     "MAXLOC",
  3931.     FALSE,
  3932.     FFEINTRIN_familyF90,
  3933.     FFEINTRIN_impNONE
  3934.   )
  3935. DEFSPEC (FFEINTRIN_specMAXVAL,
  3936.     "MAXVAL",
  3937.     FALSE,
  3938.     FFEINTRIN_familyF90,
  3939.     FFEINTRIN_impNONE
  3940.   )
  3941. DEFSPEC (FFEINTRIN_specMERGE,
  3942.     "MERGE",
  3943.     FALSE,
  3944.     FFEINTRIN_familyF90,
  3945.     FFEINTRIN_impNONE
  3946.   )
  3947. DEFSPEC (FFEINTRIN_specMINEXPONENT,
  3948.     "MINEXPONENT",
  3949.     FALSE,
  3950.     FFEINTRIN_familyF90,
  3951.     FFEINTRIN_impNONE
  3952.   )
  3953. DEFSPEC (FFEINTRIN_specMINLOC,
  3954.     "MINLOC",
  3955.     FALSE,
  3956.     FFEINTRIN_familyF90,
  3957.     FFEINTRIN_impNONE
  3958.   )
  3959. DEFSPEC (FFEINTRIN_specMINVAL,
  3960.     "MINVAL",
  3961.     FALSE,
  3962.     FFEINTRIN_familyF90,
  3963.     FFEINTRIN_impNONE
  3964.   )
  3965. DEFSPEC (FFEINTRIN_specMODULO,
  3966.     "MODULO",
  3967.     FALSE,
  3968.     FFEINTRIN_familyF90,
  3969.     FFEINTRIN_impNONE
  3970.   )
  3971. DEFSPEC (FFEINTRIN_specMVBITS,
  3972.     "MVBITS",
  3973.     FALSE,
  3974.     FFEINTRIN_familyMIL,
  3975.     FFEINTRIN_impMVBITS
  3976.   )
  3977. DEFSPEC (FFEINTRIN_specNEAREST,
  3978.     "NEAREST",
  3979.     FALSE,
  3980.     FFEINTRIN_familyF90,
  3981.     FFEINTRIN_impNONE
  3982.   )
  3983. DEFSPEC (FFEINTRIN_specNOT,
  3984.     "NOT",
  3985.     FALSE,
  3986.     FFEINTRIN_familyMIL,
  3987.     FFEINTRIN_impNOT
  3988.   )
  3989. DEFSPEC (FFEINTRIN_specPACK,
  3990.     "PACK",
  3991.     FALSE,
  3992.     FFEINTRIN_familyF90,
  3993.     FFEINTRIN_impNONE
  3994.   )
  3995. DEFSPEC (FFEINTRIN_specPRECISION,
  3996.     "PRECISION",
  3997.     FALSE,
  3998.     FFEINTRIN_familyF90,
  3999.     FFEINTRIN_impNONE
  4000.   )
  4001. DEFSPEC (FFEINTRIN_specPRESENT,
  4002.     "PRESENT",
  4003.     FALSE,
  4004.     FFEINTRIN_familyF90,
  4005.     FFEINTRIN_impNONE
  4006.   )
  4007. DEFSPEC (FFEINTRIN_specPRODUCT,
  4008.     "PRODUCT",
  4009.     FALSE,
  4010.     FFEINTRIN_familyF90,
  4011.     FFEINTRIN_impNONE
  4012.   )
  4013. DEFSPEC (FFEINTRIN_specQABS,
  4014.     "QABS",
  4015.     TRUE,
  4016.     FFEINTRIN_familyVXT,
  4017.     FFEINTRIN_impNONE
  4018.   )
  4019. DEFSPEC (FFEINTRIN_specQACOS,
  4020.     "QACOS",
  4021.     TRUE,
  4022.     FFEINTRIN_familyVXT,
  4023.     FFEINTRIN_impNONE
  4024.   )
  4025. DEFSPEC (FFEINTRIN_specQACOSD,
  4026.     "QACOSD",
  4027.     TRUE,
  4028.     FFEINTRIN_familyVXT,
  4029.     FFEINTRIN_impNONE
  4030.   )
  4031. DEFSPEC (FFEINTRIN_specQASIN,
  4032.     "QASIN",
  4033.     TRUE,
  4034.     FFEINTRIN_familyVXT,
  4035.     FFEINTRIN_impNONE
  4036.   )
  4037. DEFSPEC (FFEINTRIN_specQASIND,
  4038.     "QASIND",
  4039.     TRUE,
  4040.     FFEINTRIN_familyVXT,
  4041.     FFEINTRIN_impNONE
  4042.   )
  4043. DEFSPEC (FFEINTRIN_specQATAN,
  4044.     "QATAN",
  4045.     TRUE,
  4046.     FFEINTRIN_familyVXT,
  4047.     FFEINTRIN_impNONE
  4048.   )
  4049. DEFSPEC (FFEINTRIN_specQATAN2,
  4050.     "QATAN2",
  4051.     TRUE,
  4052.     FFEINTRIN_familyVXT,
  4053.     FFEINTRIN_impNONE
  4054.   )
  4055. DEFSPEC (FFEINTRIN_specQATAN2D,
  4056.     "QATAN2D",
  4057.     TRUE,
  4058.     FFEINTRIN_familyVXT,
  4059.     FFEINTRIN_impNONE
  4060.   )
  4061. DEFSPEC (FFEINTRIN_specQATAND,
  4062.     "QATAND",
  4063.     TRUE,
  4064.     FFEINTRIN_familyVXT,
  4065.     FFEINTRIN_impNONE
  4066.   )
  4067. DEFSPEC (FFEINTRIN_specQCOS,
  4068.     "QCOS",
  4069.     TRUE,
  4070.     FFEINTRIN_familyVXT,
  4071.     FFEINTRIN_impNONE
  4072.   )
  4073. DEFSPEC (FFEINTRIN_specQCOSD,
  4074.     "QCOSD",
  4075.     TRUE,
  4076.     FFEINTRIN_familyVXT,
  4077.     FFEINTRIN_impNONE
  4078.   )
  4079. DEFSPEC (FFEINTRIN_specQCOSH,
  4080.     "QCOSH",
  4081.     TRUE,
  4082.     FFEINTRIN_familyVXT,
  4083.     FFEINTRIN_impNONE
  4084.   )
  4085. DEFSPEC (FFEINTRIN_specQDIM,
  4086.     "QDIM",
  4087.     TRUE,
  4088.     FFEINTRIN_familyVXT,
  4089.     FFEINTRIN_impNONE
  4090.   )
  4091. DEFSPEC (FFEINTRIN_specQEXP,
  4092.     "QEXP",
  4093.     TRUE,
  4094.     FFEINTRIN_familyVXT,
  4095.     FFEINTRIN_impNONE
  4096.   )
  4097. DEFSPEC (FFEINTRIN_specQEXT,
  4098.     "QEXT",
  4099.     FALSE,
  4100.     FFEINTRIN_familyVXT,
  4101.     FFEINTRIN_impNONE
  4102.   )
  4103. DEFSPEC (FFEINTRIN_specQEXTD,
  4104.     "QEXTD",
  4105.     FALSE,
  4106.     FFEINTRIN_familyVXT,
  4107.     FFEINTRIN_impNONE
  4108.   )
  4109. DEFSPEC (FFEINTRIN_specQINT,
  4110.     "QINT",
  4111.     TRUE,
  4112.     FFEINTRIN_familyVXT,
  4113.     FFEINTRIN_impNONE
  4114.   )
  4115. DEFSPEC (FFEINTRIN_specQLOG,
  4116.     "QLOG",
  4117.     TRUE,
  4118.     FFEINTRIN_familyVXT,
  4119.     FFEINTRIN_impNONE
  4120.   )
  4121. DEFSPEC (FFEINTRIN_specQLOG10,
  4122.     "QLOG10",
  4123.     TRUE,
  4124.     FFEINTRIN_familyVXT,
  4125.     FFEINTRIN_impNONE
  4126.   )
  4127. DEFSPEC (FFEINTRIN_specQMAX1,
  4128.     "QMAX1",
  4129.     FALSE,
  4130.     FFEINTRIN_familyVXT,
  4131.     FFEINTRIN_impNONE
  4132.   )
  4133. DEFSPEC (FFEINTRIN_specQMIN1,
  4134.     "QMIN1",
  4135.     FALSE,
  4136.     FFEINTRIN_familyVXT,
  4137.     FFEINTRIN_impNONE
  4138.   )
  4139. DEFSPEC (FFEINTRIN_specQMOD,
  4140.     "QMOD",
  4141.     TRUE,
  4142.     FFEINTRIN_familyVXT,
  4143.     FFEINTRIN_impNONE
  4144.   )
  4145. DEFSPEC (FFEINTRIN_specQNINT,
  4146.     "QNINT",
  4147.     TRUE,
  4148.     FFEINTRIN_familyVXT,
  4149.     FFEINTRIN_impNONE
  4150.   )
  4151. DEFSPEC (FFEINTRIN_specQSIGN,
  4152.     "QSIGN",
  4153.     TRUE,
  4154.     FFEINTRIN_familyVXT,
  4155.     FFEINTRIN_impNONE
  4156.   )
  4157. DEFSPEC (FFEINTRIN_specQSIN,
  4158.     "QSIN",
  4159.     TRUE,
  4160.     FFEINTRIN_familyVXT,
  4161.     FFEINTRIN_impNONE
  4162.   )
  4163. DEFSPEC (FFEINTRIN_specQSIND,
  4164.     "QSIND",
  4165.     TRUE,
  4166.     FFEINTRIN_familyVXT,
  4167.     FFEINTRIN_impNONE
  4168.   )
  4169. DEFSPEC (FFEINTRIN_specQSINH,
  4170.     "QSINH",
  4171.     TRUE,
  4172.     FFEINTRIN_familyVXT,
  4173.     FFEINTRIN_impNONE
  4174.   )
  4175. DEFSPEC (FFEINTRIN_specQSQRT,
  4176.     "QSQRT",
  4177.     TRUE,
  4178.     FFEINTRIN_familyVXT,
  4179.     FFEINTRIN_impNONE
  4180.   )
  4181. DEFSPEC (FFEINTRIN_specQTAN,
  4182.     "QTAN",
  4183.     TRUE,
  4184.     FFEINTRIN_familyVXT,
  4185.     FFEINTRIN_impNONE
  4186.   )
  4187. DEFSPEC (FFEINTRIN_specQTAND,
  4188.     "QTAND",
  4189.     TRUE,
  4190.     FFEINTRIN_familyVXT,
  4191.     FFEINTRIN_impNONE
  4192.   )
  4193. DEFSPEC (FFEINTRIN_specQTANH,
  4194.     "QTANH",
  4195.     TRUE,
  4196.     FFEINTRIN_familyVXT,
  4197.     FFEINTRIN_impNONE
  4198.   )
  4199. DEFSPEC (FFEINTRIN_specRADIX,
  4200.     "RADIX",
  4201.     FALSE,
  4202.     FFEINTRIN_familyF90,
  4203.     FFEINTRIN_impNONE
  4204.   )
  4205. DEFSPEC (FFEINTRIN_specRANDOM_NUMBER,
  4206.     "RANDOM_NUMBER",
  4207.     FALSE,
  4208.     FFEINTRIN_familyF90,
  4209.     FFEINTRIN_impNONE
  4210.   )
  4211. DEFSPEC (FFEINTRIN_specRANDOM_SEED,
  4212.     "RANDOM_SEED",
  4213.     FALSE,
  4214.     FFEINTRIN_familyF90,
  4215.     FFEINTRIN_impNONE
  4216.   )
  4217. DEFSPEC (FFEINTRIN_specRANGE,
  4218.     "RANGE",
  4219.     FALSE,
  4220.     FFEINTRIN_familyF90,
  4221.     FFEINTRIN_impNONE
  4222.   )
  4223. DEFSPEC (FFEINTRIN_specREPEAT,
  4224.     "REPEAT",
  4225.     FALSE,
  4226.     FFEINTRIN_familyF90,
  4227.     FFEINTRIN_impNONE
  4228.   )
  4229. DEFSPEC (FFEINTRIN_specRESHAPE,
  4230.     "RESHAPE",
  4231.     FALSE,
  4232.     FFEINTRIN_familyF90,
  4233.     FFEINTRIN_impNONE
  4234.   )
  4235. DEFSPEC (FFEINTRIN_specRRSPACING,
  4236.     "RRSPACING",
  4237.     FALSE,
  4238.     FFEINTRIN_familyF90,
  4239.     FFEINTRIN_impNONE
  4240.   )
  4241. DEFSPEC (FFEINTRIN_specSCALE,
  4242.     "SCALE",
  4243.     FALSE,
  4244.     FFEINTRIN_familyF90,
  4245.     FFEINTRIN_impNONE
  4246.   )
  4247. DEFSPEC (FFEINTRIN_specSCAN,
  4248.     "SCAN",
  4249.     FALSE,
  4250.     FFEINTRIN_familyF90,
  4251.     FFEINTRIN_impNONE
  4252.   )
  4253. DEFSPEC (FFEINTRIN_specSEL_INT_KIND,
  4254.     "SEL_INT_KIND",
  4255.     FALSE,
  4256.     FFEINTRIN_familyF90,
  4257.     FFEINTRIN_impNONE
  4258.   )
  4259. DEFSPEC (FFEINTRIN_specSEL_REAL_KIND,
  4260.     "SEL_REAL_KIND",
  4261.     FALSE,
  4262.     FFEINTRIN_familyF90,
  4263.     FFEINTRIN_impNONE
  4264.   )
  4265. DEFSPEC (FFEINTRIN_specSET_EXPONENT,
  4266.     "SET_EXPONENT",
  4267.     FALSE,
  4268.     FFEINTRIN_familyF90,
  4269.     FFEINTRIN_impNONE
  4270.   )
  4271. DEFSPEC (FFEINTRIN_specSHAPE,
  4272.     "SHAPE",
  4273.     FALSE,
  4274.     FFEINTRIN_familyF90,
  4275.     FFEINTRIN_impNONE
  4276.   )
  4277. DEFSPEC (FFEINTRIN_specSIND,
  4278.     "SIND",
  4279.     TRUE,
  4280.     FFEINTRIN_familyVXT,
  4281.     FFEINTRIN_impNONE
  4282.   )
  4283. DEFSPEC (FFEINTRIN_specSNGLQ,
  4284.     "SNGLQ",
  4285.     FALSE,
  4286.     FFEINTRIN_familyVXT,
  4287.     FFEINTRIN_impNONE
  4288.   )
  4289. DEFSPEC (FFEINTRIN_specSPACING,
  4290.     "SPACING",
  4291.     FALSE,
  4292.     FFEINTRIN_familyF90,
  4293.     FFEINTRIN_impNONE
  4294.   )
  4295. DEFSPEC (FFEINTRIN_specSPREAD,
  4296.     "SPREAD",
  4297.     FALSE,
  4298.     FFEINTRIN_familyF90,
  4299.     FFEINTRIN_impNONE
  4300.   )
  4301. DEFSPEC (FFEINTRIN_specSUM,
  4302.     "SUM",
  4303.     FALSE,
  4304.     FFEINTRIN_familyF90,
  4305.     FFEINTRIN_impNONE
  4306.   )
  4307. DEFSPEC (FFEINTRIN_specSYSTEM_CLOCK,
  4308.     "SYSTEM_CLOCK",
  4309.     FALSE,
  4310.     FFEINTRIN_familyF90,
  4311.     FFEINTRIN_impNONE
  4312.   )
  4313. DEFSPEC (FFEINTRIN_specTAND,
  4314.     "TAND",
  4315.     TRUE,
  4316.     FFEINTRIN_familyVXT,
  4317.     FFEINTRIN_impNONE
  4318.   )
  4319. DEFSPEC (FFEINTRIN_specTINY,
  4320.     "TINY",
  4321.     FALSE,
  4322.     FFEINTRIN_familyF90,
  4323.     FFEINTRIN_impNONE
  4324.   )
  4325. DEFSPEC (FFEINTRIN_specTRANSFER,
  4326.     "TRANSFER",
  4327.     FALSE,
  4328.     FFEINTRIN_familyF90,
  4329.     FFEINTRIN_impNONE
  4330.   )
  4331. DEFSPEC (FFEINTRIN_specTRANSPOSE,
  4332.     "TRANSPOSE",
  4333.     FALSE,
  4334.     FFEINTRIN_familyF90,
  4335.     FFEINTRIN_impNONE
  4336.   )
  4337. DEFSPEC (FFEINTRIN_specTRIM,
  4338.     "TRIM",
  4339.     FALSE,
  4340.     FFEINTRIN_familyF90,
  4341.     FFEINTRIN_impNONE
  4342.   )
  4343. DEFSPEC (FFEINTRIN_specUBOUND,
  4344.     "UBOUND",
  4345.     FALSE,
  4346.     FFEINTRIN_familyF90,
  4347.     FFEINTRIN_impNONE
  4348.   )
  4349. DEFSPEC (FFEINTRIN_specUNPACK,
  4350.     "UNPACK",
  4351.     FALSE,
  4352.     FFEINTRIN_familyF90,
  4353.     FFEINTRIN_impNONE
  4354.   )
  4355. DEFSPEC (FFEINTRIN_specVERIFY,
  4356.     "VERIFY",
  4357.     FALSE,
  4358.     FFEINTRIN_familyF90,
  4359.     FFEINTRIN_impNONE
  4360.   )
  4361. DEFSPEC (FFEINTRIN_specZABS,
  4362.     "ZABS",
  4363.     TRUE,
  4364.     FFEINTRIN_familyF2Z,
  4365.     FFEINTRIN_impCDABS
  4366.   )
  4367. DEFSPEC (FFEINTRIN_specZCOS,
  4368.     "ZCOS",
  4369.     TRUE,
  4370.     FFEINTRIN_familyF2Z,
  4371.     FFEINTRIN_impCDCOS
  4372.   )
  4373. DEFSPEC (FFEINTRIN_specZEXP,
  4374.     "ZEXP",
  4375.     TRUE,
  4376.     FFEINTRIN_familyF2Z,
  4377.     FFEINTRIN_impCDEXP
  4378.   )
  4379. DEFSPEC (FFEINTRIN_specZEXT,
  4380.     "ZEXT",
  4381.     FALSE,
  4382.     FFEINTRIN_familyVXT,
  4383.     FFEINTRIN_impNONE
  4384.   )
  4385. DEFSPEC (FFEINTRIN_specZLOG,
  4386.     "ZLOG",
  4387.     TRUE,
  4388.     FFEINTRIN_familyF2Z,
  4389.     FFEINTRIN_impCDLOG
  4390.   )
  4391. DEFSPEC (FFEINTRIN_specZSIN,
  4392.     "ZSIN",
  4393.     TRUE,
  4394.     FFEINTRIN_familyF2Z,
  4395.     FFEINTRIN_impCDSIN
  4396.   )
  4397. DEFSPEC (FFEINTRIN_specZSQRT,
  4398.     "ZSQRT",
  4399.     TRUE,
  4400.     FFEINTRIN_familyF2Z,
  4401.     FFEINTRIN_impCDSQRT
  4402.   )
  4403. DEFSPEC (FFEINTRIN_spec_AND_I,
  4404.     "and_i",
  4405.     FALSE,
  4406.     FFEINTRIN_familyF2C,
  4407.     FFEINTRIN_impIAND
  4408.   )
  4409. DEFSPEC (FFEINTRIN_spec_AND_L,
  4410.     "and_l",
  4411.     FALSE,
  4412.     FFEINTRIN_familyF2C,
  4413.     FFEINTRIN_imp_AND_L
  4414.   )
  4415. DEFSPEC (FFEINTRIN_spec_CHAR_J,
  4416.     "char_j",
  4417.     FALSE,
  4418.     FFEINTRIN_familyVXT,
  4419.     FFEINTRIN_impNONE
  4420.   )
  4421. DEFSPEC (FFEINTRIN_spec_CHAR_N,
  4422.     "char_n",
  4423.     FALSE,
  4424.     FFEINTRIN_familyVXT,
  4425.     FFEINTRIN_impNONE
  4426.   )
  4427. DEFSPEC (FFEINTRIN_spec_CMPLX_E,
  4428.     "cmplx_e",
  4429.     FALSE,
  4430.     FFEINTRIN_familyFVZ,
  4431.     FFEINTRIN_imp_CMPLX_E
  4432.   )
  4433. DEFSPEC (FFEINTRIN_spec_CMPLX_J,
  4434.     "cmplx_j",
  4435.     FALSE,
  4436.     FFEINTRIN_familyVXT,
  4437.     FFEINTRIN_impNONE
  4438.   )
  4439. DEFSPEC (FFEINTRIN_spec_CMPLX_Q,
  4440.     "cmplx_q",
  4441.     FALSE,
  4442.     FFEINTRIN_familyVXT,
  4443.     FFEINTRIN_impNONE
  4444.   )
  4445. DEFSPEC (FFEINTRIN_spec_DBLE_E,
  4446.     "dble_e",
  4447.     FALSE,
  4448.     FFEINTRIN_familyDCP,
  4449.     FFEINTRIN_imp_DBLE_E
  4450.   )
  4451. DEFSPEC (FFEINTRIN_spec_DCMPLX_C,
  4452.     "dcmplx_c",
  4453.     FALSE,
  4454.     FFEINTRIN_familyDCP,
  4455.     FFEINTRIN_imp_DCMPLX_C
  4456.   )
  4457. DEFSPEC (FFEINTRIN_spec_DCMPLX_D,
  4458.     "dcmplx_d",
  4459.     FALSE,
  4460.     FFEINTRIN_familyDCP,
  4461.     FFEINTRIN_imp_DCMPLX_D
  4462.   )
  4463. DEFSPEC (FFEINTRIN_spec_DCMPLX_E,
  4464.     "dcmplx_e",
  4465.     FALSE,
  4466.     FFEINTRIN_familyFVZ,
  4467.     FFEINTRIN_imp_DCMPLX_E
  4468.   )
  4469. DEFSPEC (FFEINTRIN_spec_DCMPLX_I,
  4470.     "dcmplx_i",
  4471.     FALSE,
  4472.     FFEINTRIN_familyDCP,
  4473.     FFEINTRIN_imp_DCMPLX_I
  4474.   )
  4475. DEFSPEC (FFEINTRIN_spec_DCMPLX_J,
  4476.     "dcmplx_j",
  4477.     FALSE,
  4478.     FFEINTRIN_familyDCP,
  4479.     FFEINTRIN_impNONE
  4480.   )
  4481. DEFSPEC (FFEINTRIN_spec_DCMPLX_Q,
  4482.     "dcmplx_q",
  4483.     FALSE,
  4484.     FFEINTRIN_familyDCP,
  4485.     FFEINTRIN_impNONE
  4486.   )
  4487. DEFSPEC (FFEINTRIN_spec_DCMPLX_R,
  4488.     "dcmplx_r",
  4489.     FALSE,
  4490.     FFEINTRIN_familyDCP,
  4491.     FFEINTRIN_imp_DCMPLX_R
  4492.   )
  4493. DEFSPEC (FFEINTRIN_spec_IINT_C,
  4494.     "iint_c",
  4495.     FALSE,
  4496.     FFEINTRIN_familyVXT,
  4497.     FFEINTRIN_imp_INT_C
  4498.   )
  4499. DEFSPEC (FFEINTRIN_spec_IINT_E,
  4500.     "iint_e",
  4501.     FALSE,
  4502.     FFEINTRIN_familyFVZ,
  4503.     FFEINTRIN_imp_INT_E
  4504.   )
  4505. DEFSPEC (FFEINTRIN_spec_IMAG_C_F2C,
  4506.     "IMAG",
  4507.     FALSE,
  4508.     FFEINTRIN_familyF2C,
  4509.     FFEINTRIN_impAIMAG
  4510.   )
  4511. DEFSPEC (FFEINTRIN_spec_IMAG_E_F2C,
  4512.     "imag_e_f2c",
  4513.     FALSE,
  4514.     FFEINTRIN_familyF2C,
  4515.     FFEINTRIN_impDIMAG
  4516.   )
  4517. DEFSPEC (FFEINTRIN_spec_IMAG_E,
  4518.     "imag_e",
  4519.     TRUE,
  4520.     FFEINTRIN_familyDCP,
  4521.     FFEINTRIN_impDIMAG
  4522.   )
  4523. DEFSPEC (FFEINTRIN_spec_IZEXT_N,
  4524.     "izext_n",
  4525.     FALSE,
  4526.     FFEINTRIN_familyVXT,
  4527.     FFEINTRIN_impNONE
  4528.   )
  4529. DEFSPEC (FFEINTRIN_spec_IZEXT_M,
  4530.     "izext_m",
  4531.     FALSE,
  4532.     FFEINTRIN_familyVXT,
  4533.     FFEINTRIN_impNONE
  4534.   )
  4535. DEFSPEC (FFEINTRIN_spec_IZEXT_L,
  4536.     "izext_l",
  4537.     FALSE,
  4538.     FFEINTRIN_familyVXT,
  4539.     FFEINTRIN_impNONE
  4540.   )
  4541. DEFSPEC (FFEINTRIN_spec_IZEXT_J,
  4542.     "izext_j",
  4543.     FALSE,
  4544.     FFEINTRIN_familyVXT,
  4545.     FFEINTRIN_impNONE
  4546.   )
  4547. DEFSPEC (FFEINTRIN_spec_IZEXT_I,
  4548.     "izext_i",
  4549.     FALSE,
  4550.     FFEINTRIN_familyVXT,
  4551.     FFEINTRIN_impNONE
  4552.   )
  4553. DEFSPEC (FFEINTRIN_spec_JINT_C,
  4554.     "jint_c",
  4555.     FALSE,
  4556.     FFEINTRIN_familyVXT,
  4557.     FFEINTRIN_impNONE
  4558.   )
  4559. DEFSPEC (FFEINTRIN_spec_JINT_E,
  4560.     "jint_e",
  4561.     FALSE,
  4562.     FFEINTRIN_familyFVZ,
  4563.     FFEINTRIN_impNONE
  4564.   )
  4565. DEFSPEC (FFEINTRIN_spec_JZEXT_N,
  4566.     "jzext_n",
  4567.     FALSE,
  4568.     FFEINTRIN_familyVXT,
  4569.     FFEINTRIN_impNONE
  4570.   )
  4571. DEFSPEC (FFEINTRIN_spec_JZEXT_M,
  4572.     "jzext_m",
  4573.     FALSE,
  4574.     FFEINTRIN_familyVXT,
  4575.     FFEINTRIN_impNONE
  4576.   )
  4577. DEFSPEC (FFEINTRIN_spec_JZEXT_J,
  4578.     "jzext_j",
  4579.     FALSE,
  4580.     FFEINTRIN_familyVXT,
  4581.     FFEINTRIN_impNONE
  4582.   )
  4583. DEFSPEC (FFEINTRIN_spec_LSHIFT_I,
  4584.     "lshift_i",
  4585.     FALSE,
  4586.     FFEINTRIN_familyF2C,
  4587.     FFEINTRIN_imp_LSHIFT_I
  4588.   )
  4589. DEFSPEC (FFEINTRIN_spec_LSHIFT_L,
  4590.     "lshift_l",
  4591.     FALSE,
  4592.     FFEINTRIN_familyF2C,
  4593.     FFEINTRIN_imp_LSHIFT_L
  4594.   )
  4595. DEFSPEC (FFEINTRIN_spec_NOT_I,
  4596.     "not_i",
  4597.     FALSE,
  4598.     FFEINTRIN_familyF2C,
  4599.     FFEINTRIN_impNOT
  4600.   )
  4601. DEFSPEC (FFEINTRIN_spec_NOT_L,
  4602.     "not_l",
  4603.     FALSE,
  4604.     FFEINTRIN_familyF2C,
  4605.     FFEINTRIN_imp_NOT_L
  4606.   )
  4607. DEFSPEC (FFEINTRIN_spec_OR_I,
  4608.     "or_i",
  4609.     FALSE,
  4610.     FFEINTRIN_familyF2C,
  4611.     FFEINTRIN_impIOR
  4612.   )
  4613. DEFSPEC (FFEINTRIN_spec_OR_L,
  4614.     "or_l",
  4615.     FALSE,
  4616.     FFEINTRIN_familyF2C,
  4617.     FFEINTRIN_imp_OR_L
  4618.   )
  4619. DEFSPEC (FFEINTRIN_spec_QEXT_C,
  4620.     "qext_c",
  4621.     FALSE,
  4622.     FFEINTRIN_familyVXT,
  4623.     FFEINTRIN_impNONE
  4624.   )
  4625. DEFSPEC (FFEINTRIN_spec_QEXT_E,
  4626.     "qext_e",
  4627.     FALSE,
  4628.     FFEINTRIN_familyFVZ,
  4629.     FFEINTRIN_impNONE
  4630.   )
  4631. DEFSPEC (FFEINTRIN_spec_QEXT_I,
  4632.     "qext_i",
  4633.     FALSE,
  4634.     FFEINTRIN_familyVXT,
  4635.     FFEINTRIN_impNONE
  4636.   )
  4637. DEFSPEC (FFEINTRIN_spec_QEXT_J,
  4638.     "qext_j",
  4639.     FALSE,
  4640.     FFEINTRIN_familyVXT,
  4641.     FFEINTRIN_impNONE
  4642.   )
  4643. DEFSPEC (FFEINTRIN_spec_QEXT_Q,
  4644.     "qext_q",
  4645.     FALSE,
  4646.     FFEINTRIN_familyVXT,
  4647.     FFEINTRIN_impNONE
  4648.   )
  4649. DEFSPEC (FFEINTRIN_spec_QFLOAT_I,
  4650.     "qfloat_i",
  4651.     FALSE,
  4652.     FFEINTRIN_familyVXT,
  4653.     FFEINTRIN_impNONE
  4654.   )
  4655. DEFSPEC (FFEINTRIN_spec_QFLOAT_J,
  4656.     "qfloat_j",
  4657.     FALSE,
  4658.     FFEINTRIN_familyVXT,
  4659.     FFEINTRIN_impNONE
  4660.   )
  4661. DEFSPEC (FFEINTRIN_spec_REAL_E,
  4662.     "real_e",
  4663.     FALSE,
  4664.     FFEINTRIN_familyFVZ,
  4665.     FFEINTRIN_imp_REAL_E
  4666.   )
  4667. DEFSPEC (FFEINTRIN_spec_RSHIFT_I,
  4668.     "rshift_i",
  4669.     FALSE,
  4670.     FFEINTRIN_familyF2C,
  4671.     FFEINTRIN_imp_RSHIFT_I
  4672.   )
  4673. DEFSPEC (FFEINTRIN_spec_RSHIFT_L,
  4674.     "rshift_l",
  4675.     FALSE,
  4676.     FFEINTRIN_familyF2C,
  4677.     FFEINTRIN_imp_RSHIFT_L
  4678.   )
  4679. DEFSPEC (FFEINTRIN_spec_XOR_I,
  4680.     "xor_i",
  4681.     FALSE,
  4682.     FFEINTRIN_familyF2C,
  4683.     FFEINTRIN_impIEOR
  4684.   )
  4685. DEFSPEC (FFEINTRIN_spec_XOR_L,
  4686.     "xor_l",
  4687.     FALSE,
  4688.     FFEINTRIN_familyF2C,
  4689.     FFEINTRIN_imp_XOR_L
  4690.   )
  4691. DEFSPEC (FFEINTRIN_specNONE,
  4692.     "none",
  4693.     FALSE,
  4694.     FFEINTRIN_familyNONE,
  4695.     FFEINTRIN_impNONE
  4696.   )
  4697.