[Pw_forum] pwscf code on CRAY-X1

[Sergey Lisenkov]

 Dear all,

   I have reached a little bit of proggress in compiling after playing with "cpp" options. But the compilation was stopped again with the error in another file:
...
        cpp -N -P -C  -D__FFTW -D__USE_INTERNAL_FFTW -I../include  iotk_files_interf.f90 -o iotk_files_interf.F90
        ftn -s default64 -dp -rma -e0 -O scalar3,stream3,vector3,nointerchange -Z -O inline5 -D__FFTW -D__USE_INTERNAL_FFTW -I../include  -I. -I../Modules -I../PW -I../PH -I../iotk/src -c iotk_files_interf.F90 -o iotk_files_interf.o
        cpp -N -P -C  -D__FFTW -D__USE_INTERNAL_FFTW -I../include  iotk_files.f90 -o iotk_files.F90
        ftn -s default64 -dp -rma -e0 -O scalar3,stream3,vector3,nointerchange -Z -O inline5 -D__FFTW -D__USE_INTERNAL_FFTW -I../include  -I. -I../Modules -I../PW -I../PH -I../iotk/src -c iotk_files.F90 -o iotk_files.o
        cpp -N -P -C  -D__FFTW -D__USE_INTERNAL_FFTW -I../include  iotk_fmt.f90 -o iotk_fmt.F90
        ftn -s default64 -dp -rma -e0 -O scalar3,stream3,vector3,nointerchange -Z -O inline5 -D__FFTW -D__USE_INTERNAL_FFTW -I../include  -I. -I../Modules -I../PW -I../PH -I../iotk/src -c iotk_fmt.F90 -o iotk_fmt.o
        cpp -N -P -C  -D__FFTW -D__USE_INTERNAL_FFTW -I../include  iotk_misc.f90 -o iotk_misc.F90
        ftn -s default64 -dp -rma -e0 -O scalar3,stream3,vector3,nointerchange -Z -O inline5 -D__FFTW -D__USE_INTERNAL_FFTW -I../include  -I. -I../Modules -I../PW -I../PH -I../iotk/src -c iotk_misc.F90 -o iotk_misc.o
        cpp -N -P -C  -D__FFTW -D__USE_INTERNAL_FFTW -I../include  iotk_module.f90 -o iotk_module.F90
        ftn -s default64 -dp -rma -e0 -O scalar3,stream3,vector3,nointerchange -Z -O inline5 -D__FFTW -D__USE_INTERNAL_FFTW -I../include  -I. -I../Modules -I../PW -I../PH -I../iotk/src -c iotk_module.F90 -o iotk_module.o
        cpp -N -P -C  -D__FFTW -D__USE_INTERNAL_FFTW -I../include  iotk_scan.f90 -o iotk_scan.F90
        ftn -s default64 -dp -rma -e0 -O scalar3,stream3,vector3,nointerchange -Z -O inline5 -D__FFTW -D__USE_INTERNAL_FFTW -I../include  -I. -I../Modules -I../PW -I../PH -I../iotk/src -c iotk_scan.F90 -o iotk_scan.o

      control = modulo(header,iotk_ncontrol+1)
                ^
ftn-774 ftn: ERROR IOTK_SCAN_TAG_X, File = iotk_scan.F90, Line = 501, Column = 17
  Improper intrinsic argument type or inconsistent types.

Cray Fortran: Version 5.4.0.0 (u5016f94044i30086p54142a54005e54004x9403)
Cray Fortran: Thu Dec 29, 2005  16:47:16
Cray Fortran: Compile time:  3.3100 seconds
Cray Fortran: 922 source lines
Cray Fortran: 1 errors, 0 warnings, 0 other messages, 0 ansi
Cray Fortran: "explain ftn-message number" gives more information about each message
*** Error code 1 (bu21)
*** Error code 1 (bu21)
*** Error code 1 (bu21)



 I looked at source code (from iotk) and see that there is no definitions of "modulo". I looked at cray documentation and found only this one:

modulo(3i)
NAME
MODULO -- Modulo function

SYNOPSIS

   MODULO ([A=]a, [P=]p)

IMPLEMENTATION

UNICOS/mp

Cray Fortran

STANDARDS

Fortran

DESCRIPTION

The MODULO function returns the remainder of a divided by p using modulo math. The result always has the sign of the modulo base, p.

This function accepts the following arguments:

a		

Must be of type integer or real
p		

Must be of the same type and kind type parameter as a

MODULO is an elemental function. The name of this intrinsic cannot be passed as an argument.

RETURN VALUES

The result type and type parameter are the same as a.

When a is of type integer, if p is not equal to zero, MODULO (a, p) has the value r such that a = q * p + r, where q is an integer. The inequality 0 <= r < p holds if p > 0, and p < r <= 0 holds if p < 0. If p = 0, the result is 0.

When a is of type real, if p is not equal to zero, the value of the result is a - FLOOR (a / p) * p. The result can be a NaN when that value is available.

Is that the code needs? 

  Thanks,
   Sergey