TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-12-31 08:36:08 +01:00
Code Issues Projects Releases Wiki Activity

Use trexio int types in Fortran tests

Browse Source
This commit is contained in:
q-posev 2022-03-07 12:48:13 +01:00
parent 2da232d6d2
commit 7a2a60f347
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test_f.f90
View File

@ -51,9 +51,9 @@ subroutine test_write(file_name, back_end)
character*(*), intent(in) :: file_name
integer, intent(in) :: back_end
integer(8) :: trex_file
integer(trexio_t) :: trex_file
integer :: rc = 1
integer(trexio_exit_code) :: rc = 1
integer :: num, basis_shell_num
@ -186,10 +186,10 @@ subroutine test_read(file_name, back_end)
character*(*), intent(in) :: file_name
integer, intent(in) :: back_end
integer(8) :: trex_file
integer(trexio_t) :: trex_file
integer :: i, j, k, ind, offset, flag
integer :: rc = 1
integer(trexio_exit_code) :: rc = 1
integer :: num, num_read, basis_shell_num
integer :: basis_nucleus_index(24)