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