diff --git a/example/main.f90 b/example/main.f90 index 516a87f..9831594 100644 --- a/example/main.f90 +++ b/example/main.f90 @@ -7,6 +7,7 @@ program main type(Trajectory) :: trj real(8) :: box(6) real :: x(3) + integer :: i, j call trj%read("dump.dcd") @@ -20,6 +21,9 @@ program main x = trj%x(i,j) + ! Just for testing + write(*,*) x + end do end do