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

Changed case of intrinsics to match style elsewhere

Browse Source
This commit is contained in:
Karl Hammond
2022-10-27 18:26:22 -05:00
parent 67c165afb2
commit 0b83b8c533
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
doc/src/Fortran.rst
View File

@ -1450,8 +1450,8 @@ Procedures Bound to the :f:type:`lammps` Derived Type
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_array(1:3,1:size(bonds)/3) => bonds 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)
END DO END DO