<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:DengXian;
panose-1:2 1 6 0 3 1 1 1 1 1;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:"\@DengXian";
panose-1:2 1 6 0 3 1 1 1 1 1;}
@font-face
{font-family:Menlo;
panose-1:2 11 6 9 3 8 4 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:12.0pt;
font-family:"Calibri",sans-serif;
mso-ligatures:standardcontextual;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:12.0pt;
font-family:"Calibri",sans-serif;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
{page:WordSection1;}
--></style></head><body lang=EN-CA link="#0563C1" vlink="#954F72" style='word-wrap:break-word'><div class=WordSection1><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>Hi All,<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>My code has some FPP. It works fine in PETSc 3.18 and earlier version, but stops working in the latest PETSc-Dev. For example the following FPP STANDARD_FORTRAN is not recognized. <o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal style='line-height:15.75pt;background:#1E1E1E'><span style='font-size:10.5pt;font-family:Menlo;color:#569CD6;mso-ligatures:none'>#ifdef STANDARD_FORTRAN</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'><o:p></o:p></span></p><p class=MsoNormal style='line-height:15.75pt;background:#1E1E1E'><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#569CD6;mso-ligatures:none'>format</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>(</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>15x</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>,</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1000a15</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>)<o:p></o:p></span></p><p class=MsoNormal style='line-height:15.75pt;background:#1E1E1E'><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>2</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#569CD6;mso-ligatures:none'>format</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>(</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1pe15</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>.</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>6e3</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>,</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1000</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>(</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1pe15</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>.</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>6e3</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>))<o:p></o:p></span></p><p class=MsoNormal style='line-height:15.75pt;background:#1E1E1E'><span style='font-size:10.5pt;font-family:Menlo;color:#569CD6;mso-ligatures:none'>#else</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'><o:p></o:p></span></p><p class=MsoNormal style='line-height:15.75pt;background:#1E1E1E'><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#569CD6;mso-ligatures:none'>format</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>(</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>15x</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>,<ncol>a15) <o:p></o:p></span></p><p class=MsoNormal style='line-height:15.75pt;background:#1E1E1E'><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>2</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'> </span><span style='font-size:10.5pt;font-family:Menlo;color:#569CD6;mso-ligatures:none'>format</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>(</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1pe15</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>.</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>6e3</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>,<ncol>(</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>1pe15</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>.</span><span style='font-size:10.5pt;font-family:Menlo;color:#B5CEA8;mso-ligatures:none'>6e3</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'>))<o:p></o:p></span></p><p class=MsoNormal style='line-height:15.75pt;background:#1E1E1E'><span style='font-size:10.5pt;font-family:Menlo;color:#569CD6;mso-ligatures:none'>#endif</span><span style='font-size:10.5pt;font-family:Menlo;color:#D4D4D4;mso-ligatures:none'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>In the makefile, I define the preprocessor as PPFLAGS.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>PPFLAGS := -DLINUX -DRELEASE -DRELEASE_X64 -DSTANDARD_FORTRAN<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>…<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>exe: $(OBJS) chkopts<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'> -${FLINKER} $(FFLAGS) $(FPPFLAGS) $(CPPFLAGS) -o $(EXENAME) $(OBJS) ${PETSC_LIB} ${LIS_LIB} ${DLIB} ${SLIB}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>Any idea on this problem?<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'>All the best,<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt'><o:p> </o:p></span></p></div></body></html>