TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-07-22 18:57:39 +02:00
Code Issues Projects Releases Wiki Activity
6979c84c38
trexio/tests/test.f90

134 lines
4.0 KiB
Fortran
Raw Normal View History

add test, works for h5 but failt for txt
2021-03-22 16:40:45 +01:00
program test_trexio
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
call test_write()
call test_read()
end program test_trexio
add test, works for h5 but failt for txt
2021-03-22 16:40:45 +01:00
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
subroutine test_write()
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
! ============ Test write functionality =============== !
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
use trexio
add test, works for h5 but failt for txt
2021-03-22 16:40:45 +01:00
implicit none
more fortran-ic test
2021-03-24 16:06:04 +01:00
integer(8) :: trex_file
add test, works for h5 but failt for txt
2021-03-22 16:40:45 +01:00
better test [fortran]
2021-03-24 17:22:58 +01:00
integer :: rc = 1
Add 32-bit funcs and document front end (#39) * 32-bit functions * adapt tests since the default write/read_num is now 32-bit * minor cleaning in the generator * add test for _32 functionality * rm stdint-based types from test * documentation * rm trailing whitespaces in emacs * change TREXIO_INVALID_BACK_END * update gitignore
2021-04-07 17:37:04 +02:00
integer :: num
working read_num [fortran]
2021-03-23 16:34:13 +01:00
more fortran-ic test
2021-03-24 16:06:04 +01:00
double precision :: charge(12)
Fixed test : coord(3,12)
2021-04-20 01:34:11 +02:00
double precision :: coord(3,12)
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
! parameters to be written
working write_dset [fortran]
2021-03-23 18:12:53 +01:00
num = 12
Fixed test : coord(3,12)
2021-04-20 01:34:11 +02:00
charge = (/ 6., 6., 6., 6., 6., 6., 1., 1., 1., 1., 1., 1. /)
coord = reshape( (/ 0.00000000d0, 1.39250319d0 , 0.00000000d0 , &
-1.20594314d0, 0.69625160d0 , 0.00000000d0 , &
-1.20594314d0, -0.69625160d0 , 0.00000000d0 , &
0.00000000d0, -1.39250319d0 , 0.00000000d0 , &
1.20594314d0, -0.69625160d0 , 0.00000000d0 , &
1.20594314d0, 0.69625160d0 , 0.00000000d0 , &
-2.14171677d0, 1.23652075d0 , 0.00000000d0 , &
-2.14171677d0, -1.23652075d0 , 0.00000000d0 , &
0.00000000d0, -2.47304151d0 , 0.00000000d0 , &
2.14171677d0, -1.23652075d0 , 0.00000000d0 , &
2.14171677d0, 1.23652075d0 , 0.00000000d0 , &
0.00000000d0, 2.47304151d0 , 0.00000000d0 /), &
shape(coord) )
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
! ================= START OF TEST ===================== !
working write_dset [fortran]
2021-03-23 18:12:53 +01:00
add tests for has_ functionality
2021-03-30 11:56:04 +02:00
trex_file = trexio_open('trexio_test_fort', 'w', TREXIO_TEXT)
! trex_file = trexio_open('test_hdf5_fort.h5', 'w', TREXIO_HDF5)
rc = trexio_has_nucleus_num(trex_file)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
if (rc == TREXIO_HAS_NOT) write(*,*) 'SUCCESS HAS NOT 1'
add tests for has_ functionality
2021-03-30 11:56:04 +02:00
rc = trexio_has_nucleus_charge(trex_file)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
if (rc == TREXIO_HAS_NOT) write(*,*) 'SUCCESS HAS NOT 2'
add test, works for h5 but failt for txt
2021-03-22 16:40:45 +01:00
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
rc = trexio_write_nucleus_num(trex_file, num)
enhanced fortran interface
2021-03-29 14:34:41 +02:00
if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS WRITE NUM'
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
more fortran-ic test
2021-03-24 16:06:04 +01:00
rc = trexio_write_nucleus_charge(trex_file, charge)
enhanced fortran interface
2021-03-29 14:34:41 +02:00
if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS WRITE CHARGE'
working read_num [fortran]
2021-03-23 16:34:13 +01:00
more fortran-ic test
2021-03-24 16:06:04 +01:00
rc = trexio_write_nucleus_coord(trex_file, coord)
enhanced fortran interface
2021-03-29 14:34:41 +02:00
if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS WRITE COORD'
working read_num [fortran]
2021-03-23 16:34:13 +01:00
add tests for has_ functionality
2021-03-30 11:56:04 +02:00
rc = trexio_has_nucleus_num(trex_file)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS HAS 1'
add tests for has_ functionality
2021-03-30 11:56:04 +02:00
rc = trexio_has_nucleus_coord(trex_file)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS HAS 2'
add tests for has_ functionality
2021-03-30 11:56:04 +02:00
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
rc = trexio_close(trex_file)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS CLOSE'
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
! ---------------------------------- !
! to modify fiels of existing file:
! text backend -> open with 'w'
! hdf5 backend -> open with 'a'
! ---------------------------------- !
better make for tests
2021-03-25 11:42:13 +01:00
!! trex_file = trexio_open('trexio_test_fort', 'w', TREXIO_TEXT);
better test [fortran]
2021-03-24 17:22:58 +01:00
!! trex_file = trexio_open('test_hdf5_fort.h5', 'a', TREXIO_HDF5)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
more fortran-ic trexio_open
2021-03-24 17:13:53 +01:00
! coord(1) = 666.666
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
more fortran-ic trexio_open
2021-03-24 17:13:53 +01:00
! rc = trexio_write_nucleus_coord(trex_file,coord)
enhanced fortran interface
2021-03-29 14:34:41 +02:00
! if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS MODIFY COORD'
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
more fortran-ic trexio_open
2021-03-24 17:13:53 +01:00
! rc = trexio_close(trex_file)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
! if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS CLOSE'
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
! ================= END OF TEST ===================== !
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
end subroutine test_write
subroutine test_read()
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
! ============ Test read functionality =============== !
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
use trexio
implicit none
more fortran-ic test
2021-03-24 16:06:04 +01:00
integer(8) :: trex_file
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
better test [fortran]
2021-03-24 17:22:58 +01:00
integer :: rc = 1
Add 32-bit funcs and document front end (#39) * 32-bit functions * adapt tests since the default write/read_num is now 32-bit * minor cleaning in the generator * add test for _32 functionality * rm stdint-based types from test * documentation * rm trailing whitespaces in emacs * change TREXIO_INVALID_BACK_END * update gitignore
2021-04-07 17:37:04 +02:00
integer :: num, num_read
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
double precision :: charge(12)
double precision :: coord(3,12)
character*(128) :: str
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
num = 12
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
! ================= START OF TEST ===================== !
add tests for has_ functionality
2021-03-30 11:56:04 +02:00
trex_file = trexio_open('trexio_test_fort', 'r', TREXIO_TEXT)
! trex_file = trexio_open('test_hdf5_fort.h5', 'r', TREXIO_HDF5)
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
more fortran-ic test
2021-03-24 16:06:04 +01:00
rc = trexio_read_nucleus_num(trex_file, num_read)
working read_num [fortran]
2021-03-23 16:34:13 +01:00
enhanced fortran interface
2021-03-29 14:34:41 +02:00
if (rc == TREXIO_SUCCESS .and. num_read == num) write(*,*) 'SUCCESS READ NUM'
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
more fortran-ic test
2021-03-24 16:06:04 +01:00
rc = trexio_read_nucleus_charge(trex_file, charge)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
if (rc == TREXIO_SUCCESS .and. (abs(charge(11) - 1.0) < 1.0D-8) ) write(*,*) 'SUCCESS READ CHARGE'
add test, works for h5 but failt for txt
2021-03-22 16:40:45 +01:00
better test [fortran]
2021-03-24 17:22:58 +01:00
rc = trexio_read_nucleus_coord(trex_file, coord)
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
if (rc == TREXIO_SUCCESS .and. (abs(coord(2,1) - 1.39250319d0) < 1.0D-8) ) write(*,*) 'SUCCESS READ COORD'
better test [fortran]
2021-03-24 17:22:58 +01:00
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
rc = trexio_close(trex_file)
Table to generate error codes and string_of_error function
2021-04-01 22:48:04 +02:00
if (rc == TREXIO_SUCCESS) write(*,*) 'SUCCESS CLOSE'
call trexio_string_of_error(TREXIO_READONLY,str)
write(*,*) str
add test, works for h5 but failt for txt
2021-03-22 16:40:45 +01:00
BUG: truncated precision for doubles [text]
2021-03-30 14:20:46 +02:00
! ================= END OF TEST ===================== !
working read_dset + structured test file [fortran]
2021-03-24 11:14:47 +01:00
end subroutine test_read
working write_dset [fortran]
2021-03-23 18:12:53 +01:00
Reference in New Issue Copy Permalink