topic Re: complex*32 and real*16 in Intel® Fortran Compiler https://community.intel.com/t5/Intel-Fortran-Compiler/complex-32-and-real-16/m-p/750784#M7282 <DIV style="margin:0px;"> <DIV id="quote_reply" style="width: 100%; margin-top: 5px;"> <DIV style="margin-left:2px;margin-right:2px;">Quoting - <A href="https://community.intel.com/en-us/profile/225202">paolodenti</A></DIV> <DIV style="background-color:#E5E5E5; padding:5px;border: 1px; border-style: inset;margin-left:2px;margin-right:2px;"><EM> <P></P> <P>SUBROUTINE LUCINQP(AM,NDDMST,N,IER)</P> <P>DIMENSION AM(40,40),V(40)</P> <P>COMPLEX*32 AM</P> <P>REAL*16 V</P> <P>REAL*16 SUM</P> <P>DO 1309 I=1,N</P> <P>SUM=0.0Q0</P> <P>DO 1319 J=1,N</P> <P>1319 SUM=SUM+REAL(AM(I,J))**2+IMAG(AM(I,J))**2</P> <P>1309 V(I)=1.0Q0/SUM</P> <P>return</P> <P>end</P> <P>gives the message</P> <P></P> <P>t.f(1): warning #18000: The specified alignment (32) cannot be honored. Instead an alignment of 16 is used</P> <P></P> <P></P> </EM></DIV> </DIV> </DIV> <P>I don't get any message with ifort 11 beta Intel64. You must have used a different compiler; how is anyone to guess? Are you implying that it didn't work? By the way, you are lucky if non-standard quad precision in the style of 20 years ago is working for you. In particular, use of REAL this way could be ambiguous.</P> Mon, 03 Nov 2008 14:06:41 GMT TimP 2008-11-03T14:06:41Z complex*32 and real*16 https://community.intel.com/t5/Intel-Fortran-Compiler/complex-32-and-real-16/m-p/750783#M7281 <P> </P><P> SUBROUTINE LUCINQP(AM,NDDMST,N,IER)</P> <P> DIMENSION AM(40,40),V(40)</P> <P> COMPLEX*32 AM</P> <P> REAL*16 V</P> <P> REAL*16 SUM</P> <P> DO 1309 I=1,N</P> <P> SUM=0.0Q0</P> <P> DO 1319 J=1,N</P> <P>1319 SUM=SUM+REAL(AM(I,J))**2+IMAG(AM(I,J))**2</P> <P>1309 V(I)=1.0Q0/SUM</P> <P> return</P> <P> end</P> <P>gives the message</P> <P> </P><P>t.f(1): warning #18000: The specified alignment (32) cannot be honored. Instead an alignment of 16 is used</P> <DIV><BR /></DIV> <DIV>Instead,</DIV> <DIV> <DIV><BR /></DIV> <DIV> dimension a(1000,1000),b(1000)</DIV> <DIV> complex*32 a</DIV> <DIV> real*16 b</DIV> <DIV> do 1 i=1,1000</DIV> <DIV> b(i)=0.0q0</DIV> <DIV> do 1 j=1,1000</DIV> <DIV> 1 a(i,j)=(0.0q0,0.0q0)</DIV> <DIV> b(611)=qacos(0.0q0)*2</DIV> <DIV> a(27,311)=(1.0q0,-2.0q0)*.5q0</DIV> <DIV> write(11,*)sqrt(a(27,311))</DIV> <DIV> write(11,*)b(611)</DIV> <DIV> stop</DIV> <DIV> end</DIV> </DIV> <DIV><BR /></DIV> <DIV>returns no message and works fairly in q-precision.</DIV> <DIV>??????</DIV> <P></P> <P></P> Mon, 03 Nov 2008 09:10:00 GMT https://community.intel.com/t5/Intel-Fortran-Compiler/complex-32-and-real-16/m-p/750783#M7281 paolodenti 2008-11-03T09:10:00Z Re: complex*32 and real*16 https://community.intel.com/t5/Intel-Fortran-Compiler/complex-32-and-real-16/m-p/750784#M7282 <DIV style="margin:0px;"> <DIV id="quote_reply" style="width: 100%; margin-top: 5px;"> <DIV style="margin-left:2px;margin-right:2px;">Quoting - <A href="https://community.intel.com/en-us/profile/225202">paolodenti</A></DIV> <DIV style="background-color:#E5E5E5; padding:5px;border: 1px; border-style: inset;margin-left:2px;margin-right:2px;"><EM> <P></P> <P>SUBROUTINE LUCINQP(AM,NDDMST,N,IER)</P> <P>DIMENSION AM(40,40),V(40)</P> <P>COMPLEX*32 AM</P> <P>REAL*16 V</P> <P>REAL*16 SUM</P> <P>DO 1309 I=1,N</P> <P>SUM=0.0Q0</P> <P>DO 1319 J=1,N</P> <P>1319 SUM=SUM+REAL(AM(I,J))**2+IMAG(AM(I,J))**2</P> <P>1309 V(I)=1.0Q0/SUM</P> <P>return</P> <P>end</P> <P>gives the message</P> <P></P> <P>t.f(1): warning #18000: The specified alignment (32) cannot be honored. Instead an alignment of 16 is used</P> <P></P> <P></P> </EM></DIV> </DIV> </DIV> <P>I don't get any message with ifort 11 beta Intel64. You must have used a different compiler; how is anyone to guess? Are you implying that it didn't work? By the way, you are lucky if non-standard quad precision in the style of 20 years ago is working for you. In particular, use of REAL this way could be ambiguous.</P> Mon, 03 Nov 2008 14:06:41 GMT https://community.intel.com/t5/Intel-Fortran-Compiler/complex-32-and-real-16/m-p/750784#M7282 TimP 2008-11-03T14:06:41Z Re: complex*32 and real*16 https://community.intel.com/t5/Intel-Fortran-Compiler/complex-32-and-real-16/m-p/750785#M7283 <DIV style="margin:0px;"></DIV> <P>This is a bug that is fixed in version 11.</P> Mon, 03 Nov 2008 14:17:12 GMT https://community.intel.com/t5/Intel-Fortran-Compiler/complex-32-and-real-16/m-p/750785#M7283 Steven_L_Intel1 2008-11-03T14:17:12Z