Home | History | Annotate | Line # | Download | only in m4
findloc0.m4 revision 1.1.1.1 
      1  1.1  mrg dnl Support macros for findloc.
      2  1.1  mrg dnl This file is part of the GNU Fortran Runtime Library (libgfortran)
      3  1.1  mrg dnl Distributed under the GNU GPL with exception.  See COPYING for details.
      4  1.1  mrg include(iparm.m4)dnl
      5  1.1  mrg define(header1,`extern void findloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
      6  1.1  mrg        	    		'atype` * const restrict array, 'atype_name` value,
      7  1.1  mrg 			 GFC_LOGICAL_4);
      8  1.1  mrg export_proto(findloc0_'atype_code`);
      9  1.1  mrg 
     10  1.1  mrg void
     11  1.1  mrg findloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
     12  1.1  mrg     	    'atype` * const restrict array, 'atype_name` value,
     13  1.1  mrg 	    GFC_LOGICAL_4 back)')dnl
     14  1.1  mrg dnl
     15  1.1  mrg define(header2,`extern void mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
     16  1.1  mrg        	    		'atype` * const restrict array, 'atype_name` value,
     17  1.1  mrg 			 gfc_array_l1 *const restrict, GFC_LOGICAL_4);
     18  1.1  mrg export_proto(mfindloc0_'atype_code`);
     19  1.1  mrg 
     20  1.1  mrg void
     21  1.1  mrg mfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
     22  1.1  mrg     	    'atype` * const restrict array, 'atype_name` value,
     23  1.1  mrg 	    gfc_array_l1 *const restrict mask, GFC_LOGICAL_4 back)')
     24  1.1  mrg dnl
     25  1.1  mrg define(header3,`extern void sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
     26  1.1  mrg        	    		'atype` * const restrict array, 'atype_name` value,
     27  1.1  mrg 			 GFC_LOGICAL_4 *, GFC_LOGICAL_4);
     28  1.1  mrg export_proto(sfindloc0_'atype_code`);
     29  1.1  mrg 
     30  1.1  mrg void
     31  1.1  mrg sfindloc0_'atype_code` (gfc_array_index_type * const restrict retarray,
     32  1.1  mrg     	    'atype` * const restrict array, 'atype_name` value,
     33  1.1  mrg 	    GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)')dnl
     34  1.1  mrg dnl
     35  1.1  mrg define(comparison,`*base == value')dnl
     36  1.1  mrg define(len_arg,`')dnl
     37  1.1  mrg define(base_mult,1)dnl
     38  1.1  mrg include(ifindloc0.m4)dnl
     39