LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 11:33:29 +01:00
Code Releases Activity

Fixes for intel compiler

Browse Source
This commit is contained in:
Anthony Scemama 2021-02-17 15:58:16 +01:00
parent 6c7b162ec5
commit f381225425
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/csf/tree_utils.h
View File

@ -22,7 +22,7 @@ struct bin_tree {
int NBF; int NBF;
}; };
#include "/usr/include/x86_64-linux-gnu/cblas.h" #include "/export/apps/pgi/linux86-64/18.10/include/cblas.h"
#define MAX_SOMO 32 #define MAX_SOMO 32

2
src/davidson/diagonalization_h_dressed.irp.f
View File

@ -119,7 +119,7 @@ subroutine davidson_diag_hjj(dets_in,u_in,H_jj,energies,dim_in,sze,N_st,N_st_dia
include 'constants.include.F' include 'constants.include.F'
N_st_diag = N_st_diag_in N_st_diag = N_st_diag_in
!DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: U, W, S, y, S_d, h, lambda !DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: U, W, y, h, lambda
if (N_st_diag*3 > sze) then if (N_st_diag*3 > sze) then
print *, 'error in Davidson :' print *, 'error in Davidson :'
print *, 'Increase n_det_max_full to ', N_st_diag*3 print *, 'Increase n_det_max_full to ', N_st_diag*3

4
src/davidson/diagonalization_hcsf_dressed.irp.f
View File

@ -117,7 +117,7 @@ subroutine davidson_diag_csf_hjj(dets_in,u_in,H_jj,energies,dim_in,sze,sze_csf,N
include 'constants.include.F' include 'constants.include.F'
N_st_diag = N_st_diag_in N_st_diag = N_st_diag_in
!DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: U, W, S, y, S_d, h, lambda !DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: U, W, y, h, lambda
if (N_st_diag*3 > sze) then if (N_st_diag*3 > sze) then
print *, 'error in Davidson :' print *, 'error in Davidson :'
print *, 'Increase n_det_max_full to ', N_st_diag*3 print *, 'Increase n_det_max_full to ', N_st_diag*3
@ -231,7 +231,7 @@ subroutine davidson_diag_csf_hjj(dets_in,u_in,H_jj,energies,dim_in,sze,sze_csf,N
8, fd_w, .False., ptr_w) 8, fd_w, .False., ptr_w)
call c_f_pointer(ptr_w, W_csf, (/sze_csf,N_st_diag*itermax/)) call c_f_pointer(ptr_w, W_csf, (/sze_csf,N_st_diag*itermax/))
else else
allocate(W(sze,N_st_diag),W_csf(sze_csf,N_st_diag*itermax),) allocate(W(sze,N_st_diag),W_csf(sze_csf,N_st_diag*itermax))
endif endif
allocate( & allocate( &