LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-18 11:23:38 +01:00
Code Releases Activity

fixed complex sort template

Browse Source
This commit is contained in:
Kevin Gasperich 2020-02-24 11:34:07 -06:00
parent 29670d4729
commit a59f1e9576
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/utils/sort.irp.f
View File

@ -382,6 +382,16 @@ BEGIN_TEMPLATE
end subroutine insertion_$Xsort_big end subroutine insertion_$Xsort_big
SUBST [ X, type ]
; real ;;
d ; double precision ;;
i ; integer ;;
i8; integer*8 ;;
i2; integer*2 ;;
END_TEMPLATE
BEGIN_TEMPLATE
subroutine $Xset_order_big(x,iorder,isize) subroutine $Xset_order_big(x,iorder,isize)
implicit none implicit none
BEGIN_DOC BEGIN_DOC