[petsc-users] [petsc-dev] second patch for DMDAVecGetArrayF90

[Blaise Bourdin]

On Jul 11, 2012, at 3:44 PM, TAY wee-beng wrote:

> On 11/7/2012 8:10 PM, Satish Balay wrote:
>> On Wed, 11 Jul 2012, TAY wee-beng wrote:
>> 
>>> I just tried on a different system and the same error occurs. The 1st command
>>> :
>>> /
>>> /
>>> 
>>> /patch -Np1 -R < DMDAVecRestoreArrayF90-2.patch
>>> 
>>> $ patch -Np1 -R < DMDAVecRestoreArrayF90-2.patch
>>> (Stripping trailing CRs from patch.)
>>> patching file src/dm/impls/da/f90-custom/zda1f90.c
>>> (Stripping trailing CRs from patch.)
>>> patching file src/sys/f90-src/f90_cwrap.c
>>> (Stripping trailing CRs from patch.)
>>> patching file src/sys/f90-src/fsrc/f90_fwrap.F/
>>> 
>>> works but the 2nd one doesn't:
>>> /
>>> $ patch -Np1  < DMDAVecRestoreArrayF90-2.1.patch
>>> (Stripping trailing CRs from patch.)
>>> patching file src/dm/impls/da/f90-custom/zda1f90.c
>>> Hunk #1 FAILED at 175.
>>> 1 out of 1 hunk FAILED -- saving rejects to file
>>> src/dm/impls/da/f90-custom/zda1f90.c.rej
>>> (Stripping trailing CRs from patch.)
>>> patching file src/sys/f90-src/f90_cwrap.c
>>> Hunk #1 FAILED at 307.
>>> Hunk #2 FAILED at 333.
>>> Hunk #3 FAILED at 436.
>>> 3 out of 3 hunks FAILED -- saving rejects to file
>>> src/sys/f90-src/f90_cwrap.c.rej
>>> (Stripping trailing CRs from patch.)
>>> patching file src/sys/f90-src/fsrc/f90_fwrap.F
>>> Hunk #1 FAILED at 322.
>>> Hunk #2 FAILED at 426.
>>> 2 out of 2 hunks FAILED -- saving rejects to file
>>> src/sys/f90-src/fsrc/f90_fwrap.F.rej/
>>> 
>>> 
>>> It is possible to send me the 3 patch files? Or is there some other ways?
>> This doesn't make any sense. What petsc-dev do you have? Is it hg
>> repo? or something else?  What revisions? Are the sources locally
>> modified?
>> 
>> You can apply DMDAVecRestoreArrayF90-2.patch and then edit
>> src/sys/f90-src/f90_cwrap.c and replace all occurances of 'F90ARRAY4d'
>> with 'F90ARRAY4D' in the editor to get the same effect.
>> 
>> Satish
> 
> I just tried but the same error occurs:
> 
> 1>D:\Lib\petsc-3.3-dev_win32_vs2008/include/finclude/ftn-custom/petscdmcomposite.h90(8): warning #6717: This name has not been given an explicit type.   [D1]
> 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\dm_test2d\Debug/dm_test2d.exe : fatal error LNK1120: 6 unresolved externals
> 1>
> 1>Build log written to  "file://c:\obj_tmp\dm_test2d\Debug\BuildLog.htm"
> 
> Any other solutions?


There is something fishy in your tree or your build: the patch that Satish sent addressed this issue, but it clearly has not been applied to your tree. The patch I had originally sent contained an error. For instance, F90ARRAY4DACCESSFORTRANADDR was replaced by F90ARRAY4dACCESSFORTRANADDR (note the capitalization of the "d"). These are the symbols that are unresolved in your build.



How about starting from a clean state: 
- rename your current petsc-dev tree
- clone petsc-dev from the official tree (BTW, do you really need petsc-dev, and not 3.3?)
- apply the patch Satish sent you or, quoting Satich 
>> edit src/sys/f90-src/f90_cwrap.c and replace all occurrences of 'F90ARRAY4d' with 'F90ARRAY4D'

- run configure with your favorite options, then make

This should fix your problem.

Blaise

-- 
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 http://www.math.lsu.edu/~bourdin







-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/petsc-users/attachments/20120711/cde280b1/attachment.html>