[CPMD-list] Syntax Error in fileopen.f

[John Kofi Dogbe]

Dear CPMD Users,

I grabbed the 'latest' cpmd code and decided to recompile with the latest
PGI compiler using acml library on AMD Athlon64 arch. Serial version
compiled smoothly with absoutely no warnings, etc. I got the following
errors while compiling the parallel version:

PGFTN-S-0038-Symbol, position, has not been explicitly declared
(./fileopen.f: 18)
PGFTN-S-0034-Syntax error at or near = (./fileopen.f: 18)
  0 inform,   0 warnings,   2 severes, 0 fatal for fileopen

I thought the problem with fileopen vs. different compilers have been
fixed. Any suggestions? Find below my fileopen.f:

C     ==================================================================
      SUBROUTINE FILEOPEN(IUNIT,FILEN,STATUS)
      IMPLICIT NONE
C     Arguments
      INTEGER   IUNIT
      CHARACTER FILEN*(*),STATUS*(*)
      INTEGER   IA, IE
C     ==--------------------------------------------------------------==
      CALL XSTRING(FILEN, IA, IE)
      IF(INDEX(STATUS,'NEW').NE.0) THEN
C       New File
        OPEN(UNIT=IUNIT,FILE=FILEN(IA:IE),STATUS='NEW')
      ELSEIF(INDEX(STATUS,'UNKNOWN').NE.0) THEN
C       Unknown status
        OPEN(UNIT=IUNIT,FILE=FILEN(IA:IE),STATUS='UNKNOWN')
      ELSEIF(INDEX(STATUS,'OLD').NE.0) THEN
C       Old file (append).
        OPEN(UNIT=IUNIT,FILE=FILEN(IA:IE),STATUS='OLD',
     $     POSITION='APPEND')


.. and my compiler version is as follows (pgf90  -V output):

pgf90 6.0-5 64-bit target on x86-64 Linux
Copyright 1989-2000, The Portland Group, Inc.  All Rights Reserved.
Copyright 2000-2005, STMicroelectronics, Inc.  All Rights Reserved.

NB. The reason why I'm recompiling is that the fix that I have for
the fileopen.f was a 'quick' one that worked after consultations with
Axel, but then, it worked only with IFC compilers (not the latest). Also,
my codes/binaries were at the testing stage at the time.

Thanks.
John.
--
**The first is not necessarily the Leader**

	"If I have spoken evil, bear witness of the evil:
		but if well, why smitest thou me?"
				-- Jesus Christ (John, 18:23)