forked from sanshar/Block
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathloadNpdm.h
34 lines (24 loc) · 1.57 KB
/
loadNpdm.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#ifndef __LOAD_NPDM_ARRAY_H
#define __LOAD_NPDM_ARRAY_H
#include "molcas_types.h"
extern "C" {
void block_load1pdm_ (const FORTINT* N, double* V, const FORTINT* iRoot, const FORTINT* jRoot);
void block_load2pdm_ (const FORTINT* N, double* V, const FORTINT* iRoot, const FORTINT* jRoot);
void block_load2pdm2f_ (const FORTINT* N, double* V, const FORTINT* iRoot, const FORTINT* jRoot, const FORTINT* iP, const FORTINT* iQ);
void block_load3pdm_ (const FORTINT* N, double* V, const FORTINT* iRoot, const FORTINT* jRoot);
void block_load3pdm2f_ (const FORTINT* N, double* V, const FORTINT* iRoot, const FORTINT* jRoot, const FORTINT* iP, const FORTINT* iQ);
void block_load3pdm4f_ (const FORTINT* N, double* V, const FORTINT* iRoot, const FORTINT* jRoot, const FORTINT* iP, const FORTINT* iQ, const FORTINT* jP, const FORTINT* jQ);
} // extern "C"
/// load V(N,N) from disk
void load1pdm (FORTINT N, double* V, FORTINT iRoot, FORTINT jRoot);
/// load V(N,N,N,N) from disk
void load2pdm (FORTINT N, double* V, FORTINT iRoot, FORTINT jRoot);
/// load V(N,N,iP,iQ) from disk
void load2pdm2f (FORTINT N, double* V, FORTINT iRoot, FORTINT jRoot, FORTINT iP, FORTINT iQ);
/// load V(N,N,N,N,N,N) from disk
void load3pdm (FORTINT N, double* V, FORTINT iRoot, FORTINT jRoot);
/// load V(N,N,N,N,iP,iQ) from disk
void load3pdm2f (FORTINT N, double* V, FORTINT iRoot, FORTINT jRoot, FORTINT iP, FORTINT iQ);
/// load V(N,N,iP,iQ,jP,jQ) from disk
void load3pdm4f (FORTINT N, double* V, FORTINT iRoot, FORTINT jRoot, FORTINT iP, FORTINT iQ, FORTINT jP, FORTINT jQ);
#endif // __LOAD_NPDM_ARRAY_H