# Fortran MAXLOC SVP64 demo

MAXLOC is a notoriously difficult function for SIMD to cope with.
SVP64 however has similar capabilities to Z80 CPIR and LDIR

<https://bugs.libre-soc.org/show_bug.cgi?id=676>

```
int m2(int * const restrict a, int n) 
{ 
   int m, nm; 
   int i; 

   m = INT_MIN; 
   nm = -1; 
   for (i=0; i<n; i++) 
   { 
       if (a[i] > m) 
       { 
           m = a[i]; 
           nm = i; 
       } 
    } 
    return nm; 
}
```

[[!tag svp64_cookbook ]]

Read:
<https://www.intel.com/content/www/us/en/developer/articles/technical/optimizing-maxloc-operation-using-avx-512-vector-instructions.html#gs.12t5y0>

<img src="https://www.intel.com/content/dam/developer/articles/technical/optimizing-maxloc-operation-using-avx-512-vector-instructions/optimizing-maxloc-operation-using-avx-512-vector-instructions-code2.png
" alt="NLnet foundation logo" width="100%" />