ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed typo in gather_bonds example

Browse Source
This commit is contained in:
Karl Hammond
2022-10-27 18:23:20 -05:00
parent 3545b491ee
commit 67c165afb2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
doc/src/Fortran.rst
View File

@ -1444,13 +1444,13 @@ Procedures Bound to the :f:type:`lammps` Derived Type
USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : OUTPUT_UNIT USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : OUTPUT_UNIT
USE LIBLAMMPS USE LIBLAMMPS
IMPLICIT NONE IMPLICIT NONE
INTEGER(c_int), DIMENSION(:), ALLOCATABLE :: bonds_array INTEGER(c_int), DIMENSION(:), ALLOCATABLE :: bonds
INTEGER(c_int), DIMENSION(:,:), POINTER :: bonds INTEGER(c_int), DIMENSION(:,:), POINTER :: bonds_array
TYPE(lammps) :: lmp TYPE(lammps) :: lmp
INTEGER :: i INTEGER :: i
! other commands to initialize LAMMPS, create bonds, etc. ! other commands to initialize LAMMPS, create bonds, etc.
CALL lmp%gather_bonds(bonds) 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 DO i = 1, size(bonds)/3
WRITE(OUTPUT_UNIT,'(A,1X,I4,A,I4,1X,I4)') 'bond', bonds(1,i), & WRITE(OUTPUT_UNIT,'(A,1X,I4,A,I4,1X,I4)') 'bond', bonds(1,i), &
'; type = ', bonds(2,i), bonds(3,i) '; type = ', bonds(2,i), bonds(3,i)