<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <br>
    <pre class="moz-signature" cols="72">
</pre>
    <br>
    On 11/7/2012 3:40 PM, Satish Balay wrote:
    <blockquote cite="mid:alpine.LFD.2.02.1207110838580.3517@asterix"
      type="cite">
      <pre wrap="">The second patch has typos. Attaching the modified patch. If it works for 
you - I'll add it to petsc-3.3/petsc-dev

thanks,
Satish</pre>
    </blockquote>
    <br>
    Hi,<br>
    <br>
    How should I apply the patch? I download a new petsc-dev and used:<br>
    <br>
    <i>patch -p1 < DMDAVecRestoreArrayF90-2.1.patch<br>
    </i><br>
    It says:<br>
    <br>
    <i>(Stripping trailing CRs from patch.)<br>
      patching file src/dm/impls/da/f90-custom/zda1f90.c<br>
      Hunk #1 FAILED at 175.<br>
      1 out of 1 hunk FAILED -- saving rejects to file
      src/dm/impls/da/f90-custom/zda1f90.c.rej<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/sys/f90-src/f90_cwrap.c<br>
      Hunk #1 FAILED at 307.<br>
      Hunk #2 FAILED at 333.<br>
      Hunk #3 FAILED at 436.<br>
      3 out of 3 hunks FAILED -- saving rejects to file
      src/sys/f90-src/f90_cwrap.c.rej<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/sys/f90-src/fsrc/f90_fwrap.F<br>
      Hunk #1 FAILED at 322.<br>
      Hunk #2 FAILED at 426.<br>
      2 out of 2 hunks FAILED -- saving rejects to file
      src/sys/f90-src/fsrc/f90_fwrap.F.rej</i><br>
    <br>
    I also used :<br>
    <br>
    <i>patch -p1 DMDAVecRestoreArrayF90-2.patch<br>
      patch -p1 DMDAVecRestoreArrayF90-2.1.patch<br>
      <br>
      $ patch -p1 < DMDAVecRestoreArrayF90-2.patch<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/dm/impls/da/f90-custom/zda1f90.c<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/sys/f90-src/f90_cwrap.c<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/sys/f90-src/fsrc/f90_fwrap.F<br>
    </i><br>
    <i><br>
      $ patch -p1 < DMDAVecRestoreArrayF90-2.1.patch<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/dm/impls/da/f90-custom/zda1f90.c<br>
      Hunk #1 FAILED at 175.<br>
      1 out of 1 hunk FAILED -- saving rejects to file
      src/dm/impls/da/f90-custom/zda1f90.c.rej<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/sys/f90-src/f90_cwrap.c<br>
      Hunk #1 FAILED at 307.<br>
      Hunk #2 FAILED at 333.<br>
      Hunk #3 FAILED at 436.<br>
      3 out of 3 hunks FAILED -- saving rejects to file
      src/sys/f90-src/f90_cwrap.c.rej<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/sys/f90-src/fsrc/f90_fwrap.F<br>
      Hunk #1 FAILED at 322.<br>
      Hunk #2 FAILED at 426.<br>
      2 out of 2 hunks FAILED -- saving rejects to file
      src/sys/f90-src/fsrc/f90_fwrap.F.rej</i><br>
    <br>
    Lastly, using patch -p1 < DMDAVecRestoreArrayF90.patch gives:<br>
    <i><br>
      $ patch -p1 < DMDAVecRestoreArrayF90.patch<br>
      (Stripping trailing CRs from patch.)<br>
      patching file src/dm/impls/da/f90-custom/zda1f90.c<br>
      Reversed (or previously applied) patch detected!  Assume -R? [n] n<br>
      Apply anyway? [n] n<br>
      Skipping patch.<br>
      4 out of 4 hunks ignored -- saving rejects to file
      src/dm/impls/da/f90-custom/zda1f90.c.rej</i><br>
    <blockquote cite="mid:alpine.LFD.2.02.1207110838580.3517@asterix"
      type="cite">
      <pre wrap="">

On Wed, 11 Jul 2012, TAY wee-beng wrote:

</pre>
      <blockquote type="cite">
        <pre wrap="">On 6/7/2012 5:48 PM, Barry Smith wrote:
</pre>
        <blockquote type="cite">
          <pre wrap="">    Blaise,

       Thanks.

    Satish,

       If they look good could you apply them to 3.3 and dev?

      Thanks

       Barry
</pre>
        </blockquote>
        <pre wrap="">
Hi,

I downloaded petsc-dev a few days ago and applied both patches using "patch -v
..." in both linux and windows vs2008

It worked great in linux

However, when I compile and link in vs2008, it gives the error:
/
1>Compiling manifest to resources...
1>Microsoft (R) Windows (R) Resource Compiler Version 6.1.6723.1
1>Copyright (C) Microsoft Corporation.  All rights reserved.
1>Linking...
1>libpetsc.lib(f90_cwrap.o) : error LNK2019: unresolved external symbol
F90ARRAY4dCREATESCALAR referenced in function F90Array4dCreate
1>libpetsc.lib(f90_cwrap.o) : error LNK2019: unresolved external symbol
F90ARRAY4dACCESSFORTRANADDR referenced in function F90Array4dAccess
1>libpetsc.lib(f90_cwrap.o) : error LNK2019: unresolved external symbol
F90ARRAY4dACCESSINT referenced in function F90Array4dAccess
1>libpetsc.lib(f90_cwrap.o) : error LNK2019: unresolved external symbol
F90ARRAY4dACCESSREAL referenced in function F90Array4dAccess
1>libpetsc.lib(f90_cwrap.o) : error LNK2019: unresolved external symbol
F90ARRAY4dACCESSSCALAR referenced in function F90Array4dAccess
1>libpetsc.lib(f90_cwrap.o) : error LNK2019: unresolved external symbol
F90ARRAY4dDESTROYSCALAR referenced in function F90Array4dDestroy
1>c:\obj_tmp\ibm2d_high_Re_staggered_old\Debug/ibm2d_high_Re_staggered.exe :
fatal error LNK1120: 6 unresolved externals/

I wonder if it's fixed in the new petsc-dev.

Thanks
</pre>
        <blockquote type="cite">
          <pre wrap="">
On Jul 6, 2012, at 6:30 AM, Blaise Bourdin wrote:

</pre>
          <blockquote type="cite">
            <pre wrap="">Hi,

I have added the creation, destruction and accessor functions for 4d
vectors in F90. The accessor was missing and needed for DMDAVecGetArrayF90
with a 3d DMDA and >1 dof. As far as I can test, ex11f90 in DM should now
completely work with the intel compilers.

Some of the functions are probably not used (F90Array4dAccessReal,
F90Array4dAccessInt, F90Array4dAccessFortranAddr, for instance), but I
added them anyway. Let me know if you want me to submit a patch without
them.

Regards,

Blaise
<DMDAVecRestoreArrayF90-2.patch>


-- 
Department of Mathematics and Center for Computation & Technology
Louisiana State University, Baton Rouge, LA 70803, USA
Tel. +1 (225) 578 1612, Fax  +1 (225) 578 4276
<a class="moz-txt-link-freetext" href="http://www.math.lsu.edu/~bourdin">http://www.math.lsu.edu/~bourdin</a>







</pre>
          </blockquote>
        </blockquote>
        <pre wrap="">


</pre>
      </blockquote>
    </blockquote>
  </body>
</html>