mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-18 03:11:44 +02:00
Removed DIR$
This commit is contained in:
parent
e45325e25a
commit
60356cdbbb
@ -434,24 +434,18 @@ integer function qmckl_adjoint_f(context, ma, na, LDA, A, det_l) &
|
|||||||
|
|
||||||
select case (na)
|
select case (na)
|
||||||
case default
|
case default
|
||||||
!DIR$ forceinline
|
|
||||||
print *," TODO: Implement general adjoint"
|
print *," TODO: Implement general adjoint"
|
||||||
stop 0
|
stop 0
|
||||||
case (5)
|
case (5)
|
||||||
!DIR$ forceinline
|
|
||||||
call adjoint5(a,LDA,na,det_l)
|
call adjoint5(a,LDA,na,det_l)
|
||||||
case (4)
|
case (4)
|
||||||
!DIR$ forceinline
|
|
||||||
call adjoint4(a,LDA,na,det_l)
|
call adjoint4(a,LDA,na,det_l)
|
||||||
|
|
||||||
case (3)
|
case (3)
|
||||||
!DIR$ forceinline
|
|
||||||
call adjoint3(a,LDA,na,det_l)
|
call adjoint3(a,LDA,na,det_l)
|
||||||
case (2)
|
case (2)
|
||||||
!DIR$ forceinline
|
|
||||||
call adjoint2(a,LDA,na,det_l)
|
call adjoint2(a,LDA,na,det_l)
|
||||||
case (1)
|
case (1)
|
||||||
!DIR$ forceinline
|
|
||||||
call adjoint1(a,LDA,na,det_l)
|
call adjoint1(a,LDA,na,det_l)
|
||||||
case (0)
|
case (0)
|
||||||
det_l=1.d0
|
det_l=1.d0
|
||||||
@ -668,7 +662,6 @@ subroutine cofactor3(a,LDA,na,det_l)
|
|||||||
integer*8, intent(in) :: na
|
integer*8, intent(in) :: na
|
||||||
double precision, intent(inout) :: det_l
|
double precision, intent(inout) :: det_l
|
||||||
double precision :: b(4,3)
|
double precision :: b(4,3)
|
||||||
!DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: b
|
|
||||||
integer :: i
|
integer :: i
|
||||||
det_l = a(1,1)*(a(2,2)*a(3,3)-a(2,3)*a(3,2)) &
|
det_l = a(1,1)*(a(2,2)*a(3,3)-a(2,3)*a(3,2)) &
|
||||||
-a(1,2)*(a(2,1)*a(3,3)-a(2,3)*a(3,1)) &
|
-a(1,2)*(a(2,1)*a(3,3)-a(2,3)*a(3,1)) &
|
||||||
@ -699,7 +692,6 @@ subroutine cofactor4(a,LDA,na,det_l)
|
|||||||
integer*8, intent(in) :: na
|
integer*8, intent(in) :: na
|
||||||
double precision, intent(inout) :: det_l
|
double precision, intent(inout) :: det_l
|
||||||
double precision :: b(4,4)
|
double precision :: b(4,4)
|
||||||
!DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: b
|
|
||||||
integer :: i,j
|
integer :: i,j
|
||||||
det_l = a(1,1)*(a(2,2)*(a(3,3)*a(4,4)-a(3,4)*a(4,3)) &
|
det_l = a(1,1)*(a(2,2)*(a(3,3)*a(4,4)-a(3,4)*a(4,3)) &
|
||||||
-a(2,3)*(a(3,2)*a(4,4)-a(3,4)*a(4,2)) &
|
-a(2,3)*(a(3,2)*a(4,4)-a(3,4)*a(4,2)) &
|
||||||
@ -749,7 +741,6 @@ subroutine cofactor5(a,LDA,na,det_l)
|
|||||||
integer*8, intent(in) :: na
|
integer*8, intent(in) :: na
|
||||||
double precision, intent(inout) :: det_l
|
double precision, intent(inout) :: det_l
|
||||||
double precision :: b(5,5)
|
double precision :: b(5,5)
|
||||||
!DIR$ ATTRIBUTES ALIGN : $IRP_ALIGN :: b
|
|
||||||
integer :: i,j
|
integer :: i,j
|
||||||
det_l = a(1,1)*(a(2,2)*(a(3,3)*(a(4,4)*a(5,5)-a(4,5)*a(5,4))-a(3,4)*( &
|
det_l = a(1,1)*(a(2,2)*(a(3,3)*(a(4,4)*a(5,5)-a(4,5)*a(5,4))-a(3,4)*( &
|
||||||
a(4,3)*a(5,5)-a(4,5)*a(5,3))+a(3,5)*(a(4,3)*a(5,4)-a(4,4)*a(5,3)))- &
|
a(4,3)*a(5,5)-a(4,5)*a(5,3))+a(3,5)*(a(4,3)*a(5,4)-a(4,4)*a(5,3)))- &
|
||||||
|
Loading…
Reference in New Issue
Block a user