Intel Software Network - feed

VS 2005 shell instead of VS2008 Shell?

Wed, 25 Nov 2009 09:27:13 -0800

Good day,

We specify IVF for project work.   But our R&D people don't always qualify the latest products so sometimes I need to invent ways of getting there from here.

I'm aware that a customer purchased shrink-wrap IVF (current release I think is 11.x) can be downgraded to an earlier release.   We have been doing that for some time.

But is it possible to similarly downgrade the "Microsoft Visual Studio 2008 Shell and Libraries" from the 2008 version on the current release to 2005?   If so how do I arrange that?   (VS 2008 has not yet been qualified for our product suite.)

(The bottom line... I guess what I effectively need is the older release that we have qualified.   Is there any easy way to just get an ISO image of the earlier combination release for installation purposes?   Then the only thing I would need to do is acquire the appropriate license.)

Thank you for your help.   Brent.

DATA statement

Wed, 25 Nov 2009 05:18:49 -0800

We have quite a bit of legacy Fortran code that we compile with the Compaq Fortran f90 compile on Tru64 Unix and the Intel Visual Fortran compiler on Windows XP. We run on both platforms. We have a discrepancy between the 2 compilers.

Take this sample program:

REAL*4 A(5)/ 5*0/
DATA A(2) /30.0/
DATA A(4) /20.0/
WRITE (6,*)A
STOP
END

The array is initialized on declaration and also with a DATA statement. The program compiles with both compilers; however, with the Compaq compiler, the variable is initialized with the DATA statement, with the Intel Fortran Compiler, the DATA statement does not initialize the variable, the array is initialized with the initial declaration statement of 0.

Is there some way that we can get the Intel Fortran compiler to behave like the Compaq compiler using compiler flags? Does the latest version of the Intel Compiler behave the same? Our current Package ID is W_FC_C_9.0.025

I realize that the program above displays poor programming practise and either the DATA statement or the initialization at declaration should be removed; however, we have many lines of code and their is no guarantee that we can correct all instances which may lead to unwanted behaviour in the future.

32 bit compiler vs. 64 bit compiler

Wed, 25 Nov 2009 03:36:05 -0800

Following the question: we use a 64 bit system but we have only a 32 bit fortran compiler. so there is no
access to a library (which "belongs" to the 64 bit system). it there any possibilty to get any kind of access to this library?!
Thanks for answers.

Intel Fortran 10.1.011 (IA-32) compiler

Wed, 25 Nov 2009 00:13:50 -0800

my question is concerning the Intel Fortran 10.1.011 (IA-32) compiler.
Currently we (a research team at the Technical University Berlin) have problem we the compiler. Using this compiler embedded in Microsoft Visual Studio it is not possible to debug this program. The following error massage appears always:
Error: Error in opening the compiled module file. Check INCLUDE paths. [KINDEF]
Error: Error in opening the compiled module file. Check INCLUDE paths. [MATERIAL]
Error: Error in opening the compiled module file. Check INCLUDE paths. [ERO_USER_1],
and so on.
So what to do now?!
Thank you for answering!

where construct

Tue, 24 Nov 2009 21:25:09 -0800

Hi!

DO k = 1, no_of_trait
If (loc_of_nz(i,k,1) /= 0) THEN
sum_sol(k) = SUM(solutions(loc_of_nz(i,k,:),k))
END IF
END DO

Can I make above code simple using where construct or where statement?

If possible, does this affect running time?

thank you!

where can I download a previous Fortran compiler?Thanks!!!

Tue, 24 Nov 2009 17:18:58 -0800

Need a Fortran 10.1 Windows 64 edition. I have bought a license, but when I enter the download page, there is only v11.1. It seems mismatch with ABAQUS6.9.2.
Thus, I need a previous version, like 10.1. Where can I get it?

Thanks!!!

WriteConsoleInput -> read

Tue, 24 Nov 2009 09:00:39 -0800

Dear Fortran friends,

I try to get my program to work with "11.1 build 51" as it did in "11.0.072" and a few earlier compilers.

In one thread I use
--
WriteConsoleInput()
--
to write to the console, while another thread wait in a
--
READ(i,20,END=10)strtmp
20 FORMAT(A)
--
to receive the command as a text string.

This used to work well... but then I try with 11.1 and there the fun ends.

Prior to 11.1 the READ exits when WriteConsoleInput() returned and strtmp variable then contain the text message.

The problem I experience is that READ newer exits and hands me the string as it did before I started to use ifort 11.1.
I made sure there is a char(13)(CR) at the end of the "string" in the other (thread) end of the message.
(I also had problems of VS2005 crashing debugging this, but it was solved by adding /debug:parallel to each projekt in my solution and recompiling all.)

I searched the Fortran forum and found a earlier post about a similar design.
http://software.intel.com/en-us/forums/intel-visual-fortran-compiler-for-windows/topic/39092/

Was the behavior of the read intrinsic changed in 11.1 ?

Do you have any idea for how to get READ to finish and get my program to work with version 11.1 of the Windows Fortran compiler?

Cheers,
Magnus

how to set entry point

Tue, 24 Nov 2009 06:12:09 -0800

Hi,

I have windows application in VC++ 4.0, I ported window to console based application which has both c++ and fortran code. It is comiling good, while running it is calling fortran main instead of c++. I want to run the application by calling c++ main. how to set entry point to c++ main instead of fortran main(PROGRAM).

Thanks in advance,
ravi

Thanks in advance,

help in fortran conditional structures

Tue, 24 Nov 2009 04:19:36 -0800

what these lines do:
1- DATA HPOL/6HLINEAR ,5HRIGHT ,4HLEFT/
2- DATA PNET/6H      ,2H ,6HSTRAIG,2HHT,6HCROSSE,1HD/
3- WRITE(3,146)
4- READ(2,125)AIN,(COM(I,KCOM),I=1,19) ???!!!there were files opened for read and write!!!???
####################################################
what means UNIT 8 in:
OPEN (UNIT=8,FILE='PLTDAT.DAT',STATUS='UNKNOWN',ERR=14)
####################################################
how this code can be written using while, for and standard branch structures???
remarque that there is no THEN or END IF in the previous IF structure
and no END DO in the DO structure

2     KCOM=KCOM+1
      IF (KCOM.GT.5) KCOM=5
      READ(2,125)AIN,(COM(I,KCOM),I=1,19)
      IF(KCOM.GT.1)GO TO 3

WRITE(3,126)

3     WRITE(3,129) (COM(I,KCOM),I=1,19)
      IF (AIN.EQ.ATST(11)) GO TO 2
      IF (AIN.EQ.ATST(1)) GO TO 4

WRITE(3,130)
STOP

4     CONTINUE
      DO 5 I=1,LD
5     ZARRAY(I)=(0.,0.)
      MPCNT=0
      IMAT=0
##############################################################

Trouble with runtime libraries...and the old Compaq compiler...

Tue, 24 Nov 2009 02:30:36 -0800

I have inherited some Visual Studio 6 vintage FORTRAN code with a thin C++ wrapper. Currently using Compaq FORTRAN 6.6 and VS2008 - and am trying to both get this working and also get budget to upgrade to Intel FORTRAN (which we are going to have to do sooner or later, maybe sooner to get 64 bit support, Windows7, etc, yes?)

The Fortran compiler command line is
fl32 /c /nologo /W1 /I.. /I. /4Yd /4Ya /DOS_WINDOWS /Od /Fm /Zi -c /Fo$(IntDir)\$(InputName).obj $(InputDir)$(InputName).for

I add these folders as VS2008 Linker Additional Library Directories
C:\Program Files\Microsoft Visual Studio\DF98\Lib
C:\Program Files\Microsoft Visual Studio 9.0\VC\lib
C:\Program Files\Microsoft Visual Studio\DF98\IMSL\Lib

1. At this point building gives me
fatal error LNK1104: cannot open file 'libc.lib'

2. If I tell the linker to ignore libc.lib I get a bunch of unresolved symbols from DFOR:
1>dfor.lib(intrin.obj) : error LNK2001: unresolved external symbol ___fastflag
1>dfor.lib(intrini.obj) : error LNK2019: unresolved external symbol ___fastflag referenced in function __FIIfexp
1>dfor.lib(for_m_qqs.obj) : error LNK2019: unresolved external symbol _errno referenced in function _flush_nonadv_buffers
1>dfor.lib(for_portlib.obj) : error LNK2001: unresolved external symbol _errno
1>dfor.lib(for_diags.obj) : error LNK2019: unresolved external symbol __iob referenced in function _for__perror
1>dfor.lib(for_diags.obj) : error LNK2019: unresolved external symbol __sys_nerr referenced in function _for__gerror@8
1>dfor.lib(for_io_util.obj) : error LNK2019: unresolved external symbol __pctype referenced in function _for__get_number_value
1>dfor.lib(for_init.obj) : error LNK2001: unresolved external symbol __pctype
1>dfor.lib(for_io_util.obj) : error LNK2019: unresolved external symbol ___mb_cur_max referenced in function _for__get_number_value
1>dfor.lib(for_init.obj) : error LNK2001: unresolved external symbol ___mb_cur_max
1>dfor.lib(for_init.obj) : error LNK2019: unresolved external symbol ___argv referenced in function _for_rtl_init_
1>dfor.lib(for_init.obj) : error LNK2019: unresolved external symbol ___argc referenced in function _for_rtl_init_
1>dfor.lib(for_init.obj) : error LNK2019: unresolved external symbol __pxcptinfoptrs referenced in function _GETEXCEPTIONPTRSQQ@0

3. If I add this folder as an Additional Library Directories (and remove my instruction to ignore libc)
C:\Program Files\Microsoft Visual Studio\VC98\LIB

I get these errors:
1>libc.lib(dllcrt0.obj) : error LNK2005: __CRT_INIT@12 already defined in MSVCRTD.lib(crtdll.obj)
1>libc.lib(dllcrt0.obj) : error LNK2005: __DllMainCRTStartup@12 already defined in MSVCRTD.lib(crtdll.obj)
1>libc.lib(dllcrt0.obj) : error LNK2005: __amsg_exit already defined in MSVCRTD.lib(MSVCR90D.dll)
1>libc.lib(fpinit.obj) : error LNK2005: __ldused already defined in a previous module
1>libc.lib(fpinit.obj) : error LNK2005: __fltused already defined in a previous module
1>libc.lib(crt0init.obj) : error LNK2005: ___xc_z already defined in MSVCRTD.lib(cinitexe.obj)
1>libc.lib(crt0init.obj) : error LNK2005: ___xc_a already defined in MSVCRTD.lib(cinitexe.obj)
1>libc.lib(crt0init.obj) : error LNK2005: ___xi_z already defined in MSVCRTD.lib(cinitexe.obj)
1>libc.lib(crt0init.obj) : error LNK2005: ___xi_a already defined in MSVCRTD.lib(cinitexe.obj)
1> Creating library .\Debug/stdspr.lib and object .\Debug/stdspr.exp
1>LINK : warning LNK4098: defaultlib 'MSVCRTD' conflicts with use of other libs; use /NODEFAULTLIB:library
1>LINK : warning LNK4098: defaultlib 'libc.lib' conflicts with use of other libs; use /NODEFAULTLIB:library

Any advice on how to get this working would be appreciated - or if the answer is that I'm stuffed until I upgrade to the Intel compiler that would be good to know too!

TIA, Chris