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

consolidate fortran test keeper modules into a single module

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-09-29 09:47:40 -04:00
parent 77fb3e8af8
commit c068c226cc
7 changed files with 89 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
unittest/fortran/test_fortran_create.f90
View File

@ -1,7 +1,7 @@
FUNCTION f_lammps_no_mpi_no_args() BIND(C, name="f_lammps_no_mpi_no_args")
USE ISO_C_BINDING, ONLY: c_ptr
USE liblammps
USE keepcreate, ONLY: lmp
USE keepstuff, ONLY: lmp
IMPLICIT NONE
TYPE(c_ptr) :: f_lammps_no_mpi_no_args
@ -12,7 +12,7 @@ END FUNCTION f_lammps_no_mpi_no_args
FUNCTION f_lammps_no_mpi_with_args() BIND(C, name="f_lammps_no_mpi_with_args")
USE ISO_C_BINDING, ONLY: c_ptr
USE liblammps
USE keepcreate, ONLY: lmp
USE keepstuff, ONLY: lmp
IMPLICIT NONE
TYPE(c_ptr) :: f_lammps_no_mpi_with_args
@ -27,7 +27,7 @@ FUNCTION f_lammps_open_no_args() BIND(C, name="f_lammps_open_no_args")
USE ISO_C_BINDING, ONLY: c_ptr
USE MPI, ONLY: MPI_COMM_WORLD, mpi_comm_split
USE liblammps
USE keepcreate, ONLY: lmp,mycomm
USE keepstuff, ONLY: lmp,mycomm
IMPLICIT NONE
TYPE(c_ptr) :: f_lammps_open_no_args
INTEGER :: color, key, ierr
@ -43,7 +43,7 @@ FUNCTION f_lammps_open_with_args() BIND(C, name="f_lammps_open_with_args")
USE ISO_C_BINDING, ONLY: c_ptr
USE MPI, ONLY: MPI_COMM_WORLD, mpi_comm_split
USE liblammps
USE keepcreate, ONLY: lmp,mycomm
USE keepstuff, ONLY: lmp,mycomm
IMPLICIT NONE
TYPE(c_ptr) :: f_lammps_open_with_args
INTEGER :: color, key, ierr
@ -61,7 +61,7 @@ END FUNCTION f_lammps_open_with_args
SUBROUTINE f_lammps_close() BIND(C, name="f_lammps_close")
USE ISO_C_BINDING, ONLY: c_null_ptr
USE liblammps
USE keepcreate, ONLY: lmp
USE keepstuff, ONLY: lmp
IMPLICIT NONE
CALL lmp%close()
@ -71,7 +71,7 @@ END SUBROUTINE f_lammps_close
FUNCTION f_lammps_get_comm() BIND(C, name="f_lammps_get_comm")
USE ISO_C_BINDING, ONLY: c_int
USE liblammps
USE keepcreate, ONLY: mycomm
USE keepstuff, ONLY: mycomm
IMPLICIT NONE
INTEGER(c_int) :: f_lammps_get_comm