<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
  </head>
  <body>
    <h3 class="section"><code>FINDLOC</code> — Search an array for a
      value</h3>
    <p><br>
    </p>
    <p>is a standard Fortran function (2008 standard). It is available
      in gfortran (at least in version 10) and also in newer ifort
      versions.</p>
    <p>It could be that your ifort v17 does not support it yet. I
      suggest to upgrade to the new intel compiler+library+mpi suite
      "oneapi" (which is free of charge and available from Intel).</p>
    <p>Alternatively you have to replace this call by an explicit loop
      over the atoms<br>
    </p>
    <p><br>
    </p>
    <div class="moz-cite-prefix">Am 15.04.2021 um 09:59 schrieb pboulet:<br>
    </div>
    <blockquote type="cite"
      cite="mid:5A39150A-DFD8-4DBA-BB77-69DFBC282937@univ-amu.fr">
      <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
      Hello,
      <div class=""><br class="">
      </div>
      <div class="">It seems there is a problem with findloc in
        lapw0_mpi. The program does not compile. The error message is:</div>
      <div class="">SRC_lapw0/compile.msg:lapw0.F(2370): error #6404:
        This name does not have a type, and must have an explicit type.
          [FINDLOC]</div>
      <div class=""><br class="">
      </div>
      <div class="">I am using intel fortran compiler( v. 17), with
        intelmpi (5.1.3.25). </div>
      <div class=""><br class="">
      </div>
      <div class="">Could you please give a hint on how to solve the
        problem?</div>
      <div class=""><br class="">
      </div>
      <div class="">Best,</div>
      <div class="">Pascal</div>
      <div class=""><br class="">
      </div>
      <div class=""><br class="">
      </div>
      <div class=""><br class="">
        <div class="">
          <div dir="auto" style="caret-color: rgb(0, 0, 0); color:
            rgb(0, 0, 0); letter-spacing: normal; text-align: start;
            text-indent: 0px; text-transform: none; white-space: normal;
            word-spacing: 0px; -webkit-text-stroke-width: 0px;
            text-decoration: none; word-wrap: break-word;
            -webkit-nbsp-mode: space; line-break: after-white-space;"
            class="">
            <div dir="auto" style="caret-color: rgb(0, 0, 0); color:
              rgb(0, 0, 0); letter-spacing: normal; text-align: start;
              text-indent: 0px; text-transform: none; white-space:
              normal; word-spacing: 0px; -webkit-text-stroke-width: 0px;
              text-decoration: none; word-wrap: break-word;
              -webkit-nbsp-mode: space; line-break: after-white-space;"
              class="">
              <div dir="auto" style="caret-color: rgb(0, 0, 0); color:
                rgb(0, 0, 0); letter-spacing: normal; text-align: start;
                text-indent: 0px; text-transform: none; white-space:
                normal; word-spacing: 0px; -webkit-text-stroke-width:
                0px; text-decoration: none; word-wrap: break-word;
                -webkit-nbsp-mode: space; line-break:
                after-white-space;" class="">
                <div dir="auto" style="caret-color: rgb(0, 0, 0); color:
                  rgb(0, 0, 0); letter-spacing: normal; text-align:
                  start; text-indent: 0px; text-transform: none;
                  white-space: normal; word-spacing: 0px;
                  -webkit-text-stroke-width: 0px; text-decoration: none;
                  word-wrap: break-word; -webkit-nbsp-mode: space;
                  line-break: after-white-space;" class="">
                  <div dir="auto" style="caret-color: rgb(0, 0, 0);
                    color: rgb(0, 0, 0); letter-spacing: normal;
                    text-align: start; text-indent: 0px; text-transform:
                    none; white-space: normal; word-spacing: 0px;
                    -webkit-text-stroke-width: 0px; text-decoration:
                    none; word-wrap: break-word; -webkit-nbsp-mode:
                    space; line-break: after-white-space;" class="">
                    <div dir="auto" style="caret-color: rgb(0, 0, 0);
                      color: rgb(0, 0, 0); letter-spacing: normal;
                      text-align: start; text-indent: 0px;
                      text-transform: none; white-space: normal;
                      word-spacing: 0px; -webkit-text-stroke-width: 0px;
                      text-decoration: none; word-wrap: break-word;
                      -webkit-nbsp-mode: space; line-break:
                      after-white-space;" class="">
                      <div dir="auto" style="caret-color: rgb(0, 0, 0);
                        color: rgb(0, 0, 0); letter-spacing: normal;
                        text-align: start; text-indent: 0px;
                        text-transform: none; white-space: normal;
                        word-spacing: 0px; -webkit-text-stroke-width:
                        0px; text-decoration: none; word-wrap:
                        break-word; -webkit-nbsp-mode: space;
                        line-break: after-white-space;" class="">
                        <div dir="auto" style="caret-color: rgb(0, 0,
                          0); color: rgb(0, 0, 0); letter-spacing:
                          normal; text-align: start; text-indent: 0px;
                          text-transform: none; white-space: normal;
                          word-spacing: 0px; -webkit-text-stroke-width:
                          0px; text-decoration: none; word-wrap:
                          break-word; -webkit-nbsp-mode: space;
                          line-break: after-white-space;" class="">
                          <div dir="auto" style="text-align: start;
                            text-indent: 0px; word-wrap: break-word;
                            -webkit-nbsp-mode: space; line-break:
                            after-white-space;" class="">
                            <div class="" style="caret-color: rgb(0, 0,
                              0); color: rgb(0, 0, 0); letter-spacing:
                              normal; text-transform: none; white-space:
                              normal; word-spacing: 0px;
                              text-decoration: none;
                              -webkit-text-stroke-width: 0px;"><span
                                class="" style="font-size: 16pt;
                                font-family: Mistral;">Pascal Boulet</span></div>
                            <div class="" style="caret-color: rgb(0, 0,
                              0); color: rgb(0, 0, 0); letter-spacing:
                              normal; text-transform: none; white-space:
                              normal; word-spacing: 0px;
                              text-decoration: none;
                              -webkit-text-stroke-width: 0px;"><font
                                class="" face="Lucida Handwriting"><span
                                  class="" style="font-size: 21px;">—</span></font></div>
                            <div class="" style="caret-color: rgb(0, 0,
                              0); color: rgb(0, 0, 0); letter-spacing:
                              normal; text-transform: none; white-space:
                              normal; word-spacing: 0px;
                              text-decoration: none;
                              -webkit-text-stroke-width: 0px;"><em
                                class="" style="color: rgb(34, 187,
                                234); font-family: verdana; font-size:
                                11px; line-height: 22px;">Professor in
                                computational materials chemistry -
                                DEPARTMENT OF CHEMISTRY</em></div>
                            <div class="">
                              <div class="" style="caret-color: rgb(0,
                                0, 0); color: rgb(0, 0, 0);
                                letter-spacing: normal; text-transform:
                                none; white-space: normal; word-spacing:
                                0px; text-decoration: none;
                                -webkit-text-stroke-width: 0px;
                                font-family: Tahoma, Verdana, Arial,
                                Helvetica, sans-serif; font-size: 15px;
                                line-height: 22px;"><span class=""
                                  style="font-size: 11px; font-family:
                                  verdana;">University of Aix-Marseille </span><span
                                  class="" style="font-size: 11px;
                                  font-family: verdana;">- Avenue
                                  Escadrille Normandie Niemen - F-13013
                                  Marseille - FRANCE</span></div>
                              <div class="" style="caret-color: rgb(0,
                                0, 0); color: rgb(0, 0, 0);
                                letter-spacing: normal; text-transform:
                                none; white-space: normal; word-spacing:
                                0px; text-decoration: none;
                                -webkit-text-stroke-width: 0px;
                                font-family: Tahoma, Verdana, Arial,
                                Helvetica, sans-serif; font-size: 15px;
                                line-height: 22px;"><span class=""
                                  style="font-size: 11px; font-family:
                                  verdana;">Tél: +33(0)4 13 55 18 10 -
                                  Fax : +33(0)4 13 55 18 50</span></div>
                              <div class="" style="caret-color: rgb(0,
                                0, 0); color: rgb(0, 0, 0);
                                letter-spacing: normal; text-transform:
                                none; white-space: normal; word-spacing:
                                0px; text-decoration: none;
                                -webkit-text-stroke-width: 0px;"><font
                                  class="" face="verdana"><span class=""
                                    style="font-size: 12px; line-height:
                                    22px;">Email : </span></font><font
                                  class="" face="verdana"
                                  color="#22bbea"><span
                                    style="font-size: 12px; line-height:
                                    20px;" class=""><a
                                      href="mailto:pascal.boulet@univ-amu.fr"
                                      class="" moz-do-not-send="true">pascal.boulet@univ-amu.fr</a></span></font></div>
                              <div class="" style="font-size: 14px;"><br
                                  class="">
                              </div>
                            </div>
                          </div>
                        </div>
                      </div>
                      <br class="Apple-interchange-newline">
                    </div>
                    <br class="Apple-interchange-newline">
                  </div>
                  <br class="Apple-interchange-newline">
                </div>
                <br class="Apple-interchange-newline">
              </div>
              <br class="Apple-interchange-newline">
            </div>
            <br class="Apple-interchange-newline">
          </div>
          <br class="Apple-interchange-newline">
          <br class="Apple-interchange-newline">
        </div>
        <br class="">
      </div>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <pre class="moz-quote-pre" wrap="">_______________________________________________
Wien mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Wien@zeus.theochem.tuwien.ac.at">Wien@zeus.theochem.tuwien.ac.at</a>
<a class="moz-txt-link-freetext" href="http://zeus.theochem.tuwien.ac.at/mailman/listinfo/wien">http://zeus.theochem.tuwien.ac.at/mailman/listinfo/wien</a>
SEARCH the MAILING-LIST at:  <a class="moz-txt-link-freetext" href="http://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/index.html">http://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/index.html</a>
</pre>
    </blockquote>
    <pre class="moz-signature" cols="72">-- 
-----------------------------------------------------------------------
Peter Blaha,  Inst. f. Materials Chemistry, TU Vienna, A-1060 Vienna
Phone: +43-158801165300
Email: <a class="moz-txt-link-abbreviated" href="mailto:peter.blaha@tuwien.ac.at">peter.blaha@tuwien.ac.at</a>          
WWW:   <a class="moz-txt-link-freetext" href="http://www.imc.tuwien.ac.at">http://www.imc.tuwien.ac.at</a>      WIEN2k: <a class="moz-txt-link-freetext" href="http://www.wien2k.at">http://www.wien2k.at</a>
-------------------------------------------------------------------------</pre>
  </body>
</html>