intel-fortran

Fortran 90 modules are evanescent creatures. I was using a (singular) module for a while with some success (compiling using Intel Visual Fortran and Visual Studio 2010). Then I wrote another module and tried to USE it in another function, before receiving this error: error #7002: Error in opening the compiled module file. Check INCLUDE paths. So I deleted the offending module. But now I receive the same error after when trying to access my original module! How can I locate these mysterious creatures? Why does one module work but not two? I'm assuming that I need to delete and recompile them,

I need to run an old FORTRAN IV code I was given (which is supposed to run just fine). I downloaded a trial version of Intel compiler and tried to compile the source file I was given with the command: ifort -f66 abel.for -o mycode where abel.for is the name of the source file. I got a bunch of warnings and errors. I wanted to ask about the first warning I was given: The number of arguments is incompatible with intrinsinc procedure, assume 'external'. [KNOT] where KNOT is a function defined as: C AAOK0162 C PROCEDURE FOR LOCATING THE SPLINE SECTION TO WHICH AN AAOK0163 C ARGUMENT BELONGS.

I have a program which I'm compiling like this: (...) Some ifort *.f -c nvcc -c src/bicgstab.cu -o bicgstab.o -I/home/ricardo/apps/cusp/cusplibrary (...) Some more *.for -c ifort *.o -L/usr/local/cuda-5.5/lib64 -lcudart -lcublas -lcusparse -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -openmp -o program Everything worked fine until i added the CUSP support where i have this wrapper (bicgstab.cu): #include <cusp/csr_matrix.h> #include <cusp/krylov/bicgstab.h> #if defined(__cplusplus) extern "C" { #endif void bicgstab_(int * device_I, int * device_J, float * device_V, float * device_x, float *

Fortran 2003 has square bracket syntax for array concatenation, Intel fortran compiler supports it too. I wrote a simple code here for matrix concatenation: program matrix implicit none real,dimension (3,3) :: mat1,mat2 real,dimension(3,6):: mat3 integer i mat1=reshape( (/1,2,3,4,5,6,7,8,9/),(/3,3/)) mat2=reshape( (/1,2,3,4,5,6,7,8,9/),(/3,3/)) mat3=[mat1,mat2] !display do i=1,3,1 write(*,10) mat3(i,:) 10 format(F10.4) end do end program But I get error as mat3=[mat1,mat2] Error: Incompatible ranks 2 and 1 in assignment I expect the output as 1 2 3 1 2 3 4 5 6 4 5 6 7 8 9 7 8 9 Can someone

The following code gives segmentation error when compiled with pgf90 on the Linux system, while is run successfully when I used the Intel Visual FORTRAN on Windows. program main implicit none integer:: a(3), b(3) ,c(3) a=[3, 4, 5] b=[1, 2, 3] call sub(a,b,c) write(*,*)'a+b = ',c end program main subroutine sub(a,b,c) implicit none integer, intent(in)::a(:),b(:) integer, intent(out)::c(:) c=a+b end subroutine sub Any explanation for this ? When you call a subroutine which has assumed shape dummy arguments (as is the case in this program), an explicit interface is required. The easiest way to