From 67c165afb22f39e063aca479ea7ae9fb04cea2af Mon Sep 17 00:00:00 2001 From: Karl Hammond Date: Thu, 27 Oct 2022 18:23:20 -0500 Subject: [PATCH] Fixed typo in gather_bonds example --- doc/src/Fortran.rst | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/doc/src/Fortran.rst b/doc/src/Fortran.rst index 5f753677ab..5af9dfb543 100644 --- a/doc/src/Fortran.rst +++ b/doc/src/Fortran.rst @@ -1444,13 +1444,13 @@ Procedures Bound to the :f:type:`lammps` Derived Type USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : OUTPUT_UNIT USE LIBLAMMPS IMPLICIT NONE - INTEGER(c_int), DIMENSION(:), ALLOCATABLE :: bonds_array - INTEGER(c_int), DIMENSION(:,:), POINTER :: bonds + INTEGER(c_int), DIMENSION(:), ALLOCATABLE :: bonds + INTEGER(c_int), DIMENSION(:,:), POINTER :: bonds_array TYPE(lammps) :: lmp INTEGER :: i ! other commands to initialize LAMMPS, create bonds, etc. CALL lmp%gather_bonds(bonds) - bonds(1:3,1:size(bonds)/3) => bonds_array + bonds_array(1:3,1:size(bonds)/3) => bonds DO i = 1, size(bonds)/3 WRITE(OUTPUT_UNIT,'(A,1X,I4,A,I4,1X,I4)') 'bond', bonds(1,i), & '; type = ', bonds(2,i), bonds(3,i)