Intel® Fortran Compiler

Hunting Peaks and Hollows

So I have some experimental results that tell me that the FFT peaks are at 13 and 25. 

I set up a nice little structures model and run it through Pardiso (I know it is MKL) but I think this is a more Fortran.

I get my results from Pardiso as follows

 

 

 

which in this case runs into the problem that the model is axisymmetric and one ends up with multiple identical modes. 

Runtime Error

Hello:

I am getting a runtime error, and I was hoping that somebody could help explain to me exactly what is going on.  I am running windows 10, Visual Studio 2015, and compiler version 17.0.2.187, in Debug Mode.  When I run in Release Mode there is no runtime error (which doesn't surprise me).  And if rollback to use the XE 15.0.4.221 compiler, I also don't get an error (even in Debug Mode).

Intel Visual Fortran 16: internal compiler error with recursive procedures

Cut-down code to reproduce problem:

module mod_procs
   type, public :: type_box
      integer, public :: m  
   contains
      procedure :: suba 
   end type type_box
  
   interface
      module subroutine suba(this,n)
         class(type_box) :: this
         integer :: n
      end subroutine suba
   end interface

end module mod_procs

submodule(mod_procs) mod_procs_suba

   implicit none

contains

Type casting regression in ifort2018 beta

The following code segfaults because the explicit allocation in the type casting does not work any more with ifort2018 beta. I filed a bug report already. A workaround is given.

module event_base
  implicit none
  private
  public :: event_callback_t
  public :: event_callback_nop_t
  public :: eio_callback_t
  public :: dispatch

  type, abstract :: event_callback_t
     private
  end type event_callback_t

SIMD + OpenMP

Hi

I'm using Intel-Fortran 2016.

Currently my program has a loop 

!$OMP PARALLEL DO reduction(min:delt_) PRIVATE(LEDG,...) SHARED(...)
      DO 10 LWETEDG = 1,NWETEDGE

Advisor-Profiler point's out, that this loop is not vectorized, So I changed to

AboutboxQQ and C-Style Escape Sequences

Hi all

I have an about box in a QuickWin app, compiled for x64 and I'm having some trouble getting some escape sequences to be respected.  The following code generates the following about box.  I've tried single quotes, double quotes, ''C or CHAR(0) to terminate the string with no change in result.  The presence of "Use IFQWIN " has no impact.  Any thoughts?

TIA - Ted

Code Coverage tool with large project

My code base is very large and uses many different module files.  I am trying to use the code coverage tool with intel 16.0.3.210 on linux to see how much of the code actually gets used.  My compile creates 6 different libraries (.a files) in 6 different folders, and then they are linked at the end.  When I compile using the option  "-prof-gen=srcpos", each folder has a single pgopti.spi and pgopti.spl file with all of the .o and .mod files. When everything is linked together, the executable is created but there is no pgopti.spi file in the executable directory.

FOR$IOS_NO_SUCDEV and FOR$IOS_FILNAMSPE

Hello All,

Could you possibly tell me when I would get the following errors while calling an OPEN statement?

 

42

severe (42): No such device

FOR$IOS_NO_SUCDEV. A pathname included an invalid or unknown device name when an OPEN operation was attempted.

43

severe (43): File name specification error

FOR$IOS_FILNAMSPE. A pathname or file name given to an OPEN or INQUIRE statement was not acceptable to the Intel® Fortran RTL I/O system.

 

Thank you for your help.

Daniel.

Editors

Dear Steve:

Thank you for your response.  I am talking about 2 different editors. 

Editor 1 is the Visual Studio 2015 Color Theme Editor

Which is a great tool if you do not like the standard VS colors and I do not like them at all. 

This program has been hacked by someone and so you can use the hacked version on VS 2017. 

Subscribe to Intel® Fortran Compiler