GETFILEINFOQQ in ifort on 64bit

I accounted a problem with the GETFILEINFOQQ of ifort function such as

Lsac2Ssac_SubUse.f90(473): error #6284: There is no matching specific function for this generic function reference.   [GETFILEINFOQQ]
FnameLength=GETFILEINFOQQ(EventListfile,FileInfo,FileHandle)
--------------^

and it was a problem of declaration, the previous code was

type (File$Info) :: FileInfo
integer :: FnameLength, FileHandle
character(len=32) :: LSindexfile
!
FileHandle =file$first
FnameLength=GETFILEINFOQQ(EventListfile,FileInfo,FileHandle)
LSindexfile='LS'//FileInfo.name(3:FnameLength)

And in 64 bit machine, FileHandle should be declared as 8 bit and is suggested be declared as

INTEGER(INT_PTR_KIND())

繼續閱讀 GETFILEINFOQQ in ifort on 64bit

ifort inquire directory

ifort can inquire not only file but also directory!!

INQUIRE (DIRECTORY="results001",EXIST=exist2)

ref:
Re: How to determine whether or not there exists a directory

Intel XL Fortran V11.1 for Linux

P.S.

GETFILEINFOQQ
http://software.intel.com/en-us/forums/showthread.php?t=68621

SYSTEMQQ
http://titan.physx.u-szeged.hu/opt/intel/fc/9.1.036/include/ifport.f90
http://www.xlsoft.com/jp/products/intel/cvf/docs/vf-html_e/azsumm/rfsystmq.htm

change systemqq to system
http://mail.cse.ohio-state.edu/pipermail/mvapich-discuss/2006-October.txt

http://coding.derkeiler.com/Archive/Fortran/comp.lang.fortran/2007-01/msg00085.html

adjust VELEST in Ubuntu

VELEST is a inversion software to resolve the 1-D model of a region. Someone also call it “Kissling” because of it’s author It can be found here.
http://www.orfeus-eu.org/Software/softwarelib.html
or the original ftp://www.orfeus-eu.org/pub/software/mirror/thurber/VELEST/

To compile it, you can use g77

f77 velest.f -o velest

It will appear that:

/tmp/cchX84r1.o: In function `cputimer_':
velest.f:(.text+0x2c64d): undefined reference to `clock_'
/tmp/cchX84r1.o: In function `datetime_':
velest.f:(.text+0x2c6ae): undefined reference to `sprintf_'
collect2: ld returned 1 exit status

繼續閱讀 adjust VELEST in Ubuntu

quickwin in wine

用Windows 裡 Visual Fortran 所 compile 出來的程式,在Ubuntu 與wine的環境裡可以順利的運作。

http://appdb.winehq.org/objectManager.php?bShowAll=true&bIsQueue=false&bIsRejected=false&sClass=version&sTitle=&sReturnTo=&iId=8435

在ubuntu上安裝wine好像是以下的指令:

sudo apt-get install wine

不錯不錯,可以趕快全部移植到Linux系統上了。

科科