Hello.

I have a problem using cuBLAS library.

Following is the code section where error occurs.

```
SUBROUTINE cuCMFDEigUpdt(cuCMFD, cuDevice, myBlasHandle, eigv)
USE PARAM
USE CUDATypeDef, ONLY : cuCMFD_Type, cuDevice_Type
USE PE_MOD, ONLY : PE
USE MPIComm_Mod, ONLY : MPI_SYNC, REDUCE
USE CUBLAS
USE OPENACC
USE OMP_LIB
TYPE(cuCMFD_Type) :: cuCMFD
TYPE(cuDevice_Type) :: cuDevice
TYPE(cublasHandle) :: myBlasHandle
REAL :: eigv
INTEGER :: ierr, n
REAL, POINTER, DEVICE :: psi(:), psid(:)
REAL :: numerator, denominator
REAL :: psipsi, psipsid
REAL, SAVE :: sum_psipsi, sum_psipsid
psi => cuCMFD%Cell_psi
psid => cuCMFD%Cell_psid
!$OMP MASTER
sum_psipsi = 0; sum_psipsid = 0
!$OMP END MASTER
!--- Error Here
ierr = cublasDdot(myBlasHandle, n, psi, 1, psi, 1, psipsi)
ierr = cublasDdot(myBlasHandle, n, psi, 1, psid, 1, psipsid)
!$OMP CRITICAL
sum_psipsi = numerator + psipsi
sum_psipsid = denominator + psipsid
!$OMP END CRITICAL
!$OMP MASTER
CALL MPI_SYNC(PE%MPI_CMFD_COMM)
CALL REDUCE(sum_psipsi, numerator, PE%MPI_CMFD_COMM, TRUE)
CALL REDUCE(sum_psipsid, denominator, PE%MPI_CMFD_COMM, TRUE)
eigv = numerator / denominator
!$OMP END MASTER
END SUBROUTINE
```

The compiler says that too many arguments are specified for cublasddot, but I’m following the manual.

Please tell me if I’m doing something wrong.

- FYI, I’m using -r8 option, which means that REAL is actually REAL(8).