intel-fortran

问题 I have wrote a genetic algorithm in Fortran to be able to compute with a long double precision a generic fitness function. The first version (double precision) was written for gfortran where I implemented a progress bar. Now I have to compile with ifort because gfortran is not capable of performing real*16 calculations. All works fine but in this case (ifort) the progress bar does not work properly. Namely, only when the whole cycle is completed the progress bar is printed to std output. Here

问题 I have wrote a genetic algorithm in Fortran to be able to compute with a long double precision a generic fitness function. The first version (double precision) was written for gfortran where I implemented a progress bar. Now I have to compile with ifort because gfortran is not capable of performing real*16 calculations. All works fine but in this case (ifort) the progress bar does not work properly. Namely, only when the whole cycle is completed the progress bar is printed to std output. Here

问题 I have wrote a genetic algorithm in Fortran to be able to compute with a long double precision a generic fitness function. The first version (double precision) was written for gfortran where I implemented a progress bar. Now I have to compile with ifort because gfortran is not capable of performing real*16 calculations. All works fine but in this case (ifort) the progress bar does not work properly. Namely, only when the whole cycle is completed the progress bar is printed to std output. Here

问题 This question already has an answer here : Allocatable array valued function. gfortran vs ifort (1 answer) Closed 2 years ago . Please look at the following code: program test implicit none integer, allocatable :: v1(:, :) integer, allocatable :: v2(:, :) allocate(v1(2, 4)) allocate(v2(2, 3)) v1(:, :) = reshape([11, 12, 13, 14, 15, 16, 17, 18], [2, 4]) v2(:, :) = reshape([21, 22, 23, 24, 25, 26], [2, 3]) print *, v1 print *, 'shape(v1): ', shape(v1) print * print *, v2 print *, 'shape(v2): ',

问题 This question already has an answer here : Allocatable array valued function. gfortran vs ifort (1 answer) Closed 2 years ago . Please look at the following code: program test implicit none integer, allocatable :: v1(:, :) integer, allocatable :: v2(:, :) allocate(v1(2, 4)) allocate(v2(2, 3)) v1(:, :) = reshape([11, 12, 13, 14, 15, 16, 17, 18], [2, 4]) v2(:, :) = reshape([21, 22, 23, 24, 25, 26], [2, 3]) print *, v1 print *, 'shape(v1): ', shape(v1) print * print *, v2 print *, 'shape(v2): ',

问题 I am struggling to get F2PY working with Intel Fortran on Windows 7. This appears to be a common issue and I have attempted a number of suggestions found in other posts (described below). A bit of information about my system: Windows 7 64-bit Python 2.7.11 via Enthought Canopy 32-bit (up to date as of June 12, 2016) Intel Fortran 14 (Intel\Composer XE 2013 SP1) (32 and 64-bit) After doing a bit of research see here I found that the issue may be related to the c++ runtime so I installed

问题 [SOLVED] by francescalus. Working code for double precision dynamical arrays is: module DynamicalArrays contains subroutine AddToList(list, element) IMPLICIT NONE integer :: i, isize double precision, intent(in) :: element double precision, dimension(:), allocatable, intent(inout) :: list double precision, dimension(:), allocatable :: clist if(allocated(list)) then isize = size(list) allocate(clist(isize+1)) do i=1,isize clist(i) = list(i) end do clist(isize+1) = element deallocate(list) call

问题 I am testing MPI I/O. subroutine save_vtk integer :: filetype, fh, unit integer(MPI_OFFSET_KIND) :: pos real(RP),allocatable :: buffer(:,:,:) integer :: ie if (master) then open(newunit=unit,file="out.vtk", & access='stream',status='replace',form="unformatted",action="write") ! write the header close(unit) end if call MPI_Barrier(mpi_comm,ie) call MPI_File_open(mpi_comm,"out.vtk", MPI_MODE_APPEND + MPI_MODE_WRONLY, MPI_INFO_NULL, fh, ie) call MPI_Type_create_subarray(3, int(ng), int(nxyz),

问题 When I compile a project, Intel Visual Fortran keeps giving me this kind of error. The error is found on the code below: dimension tairgl(12),eairgl(24),windgl(12),psisgl(12),yenang(98),yunazm(98) This is the error message given by the compiler. Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( [ Anybody have any idea about this error? 回答1: The syntax looks OK. I can think of two possibilities: 1) the compiler is configured to only look at source code to column 72 and this

问题 I am toying with matlab, mex, intel fortran in visual studio etc. I copied a routine from here doing the multiplication of a matrix by a scalar : C Computational subroutine subroutine xtimesy(x, y, z, m, n) real*8 x, y(3,3), z(3,3) integer m, n do 20 i=1,m do 10 j=1,n z(i,j) = x*y(i,j) 10 continue 20 continue return end The initial wrapping code supposed to produce the mexw64 file was crashing on the elseif (mxIsNumeric(prhs(2)) .ne. 1) then so that I have adapted it as follows : #include