libdcdfort

Update 10/03/2020: I am no longer an active LAMMPS user and can no longer support this library. Please fork if you wish to continue development.

Copyright (C) 2017,2018 James W. Barnett

https://github.com/wesbarnett/dcdfort

About

Fortran library for natively reading in DCD trajectory files generated from LAMMPS simulations for analysis. Uses an object-oriented style. For example, you can simply read in all simulation snapshots from a DCD file by adding the following lines:

using dcdfort_trajectory
type(Trajectory) :: trj

call trj%read("mytrajectoryfile.dcd")

Now all information from the trajectory file (atom coordinates, box dimensions) is accessible via object getters. There is additionally support for GROMACS-style index files and groups. Basic utility functions are also provided (e.g., pbc and distance). See the API below.

This is similar to my other project libgmxfort, except that this project does not require any plugins to read the binary trajectory files.

Note: DCD files generated from simulation packages other than LAMMPS will probably not work with this library. LAMMPS outputs DCD files as 32-bit CHARMM files with a unit cell and three dimensions, which is what this library can read in.

Build requirements

• gfortran >= 7.1 - Required because we use convert=swap with open, which is a GNU-specific extension. Additionally version 7.1 added the ability to use non-constant error stop codes, which we use.
• coreutils >= 8.23 - Allows the use of -D and -t together in install, which we use to install the Fortran .mod files. You can use an older version; you just have to manually create the include directory where the module files will be installed.
• meson
• ninja

Compilation

After cloning the repository, or extracting the release tarball, cd into the repository. Then:

meson --buildtype=release build
ninja -C build

Testing

To test your build, do:

ninja -C build test

If any tests do not pass, please file an issue.

Installation

The following will install the library to the location specified by the meson flag --prefix, which is /usr/local by default.

ninja -C build install

Usage

Compile your Fortran trajectory analysis program with -ldcdfort. You may also need to use -I to point to where the modules files are even with all of the right environment variables set (by default at /usr/local/include).

pkg-config

A pkg-config file is included, so that it can be used in your program compilations. You may need to set the PKG_CONFIG_PATH environment variable to find the file (by default in the directory /usr/local/lib/pkgconfig). See man 1 pkg-config for more information.

API

Add use dcdfort_trajectory to your Fortran program in order to use the Trajectory class and use dcdfort_utils in order to use any of the other utilities. There is an example in the example folder on how to do this.

Full API documentation is here:

• 1.4
• master

Reading in trajectory and index files

Typically you will open a trajectory file (and optionally a corresponding GROMACS-style index file). Then you will read in the entire trajectory file at once, or you can read it in in chunks. Then you should close the trajectory file when done.

The simplest way to use this library is to construct a Trajectory object and then use the read() method:

use dcdfort_trajectory
implicit none
type(Trajectory) :: trj
call trj%read("traj.dcd")

If you have a corresponding index file, you can add a second argument to open:

call trj%read("traj.dcd", "index.ndx")

Now information regarding the index groups is stored in memory and can be used in some of the following methods.

The read() method opens the dcd file, reads in all information, and then closes it. The trj object in this example now stores all of the coordinates and information from the .dcd file.

To skip the first portion of a trajectory file with read() use the skip argument. The following skips the first 100 frames before reading them into memory.

call trj%read("traj.dcd", "index.ndx", skip=100)

To only ready in every so many frames, use the every argument. The following reads in only every 10th snapshot into memory:

call trj%read("traj.dcd", "index.ndx", every=10)

To limit the number of frames read in, use the last argument, which specifies the last frame to read in numbered relative to the number of frames in the trajectory file. This is not necessarily the number of frames that you will read in when combined with skip and every.

call trj%read("traj.dcd", "index.ndx", last=1000)

All of these arguments can be used together.

If you want to read in the trajectory file in frame-by-frame use read_next() instead of read(). To use this, you must additionally open and close the dcd file on your own. By default it reads in one frame:

integer :: n
call trj%open("traj.dcd", "index.ndx")
n = trj%read_next()
call trj%close()

To read in more than one, specify an argument. The following reads in 10 frames:

n = trj%read_next(10)

read_next() returns the number of frames actually read in. It is a function, and not a subroutine. This is useful for using it with a do while loop. For example:

use dcdfort_trajectory

implicit none

type(Trajectory) :: trj
integer :: i, n

call trj%open("traj.dcd", "index.ndx")

n = trj%read_next(10)
do while (n > 0)
    do i = 1, n
        ! do some things with the frames read in
    end do
    n = trj%read_next(10)
end do

call trj%close()

To skip a frame without reading it into memory use skip_next(). You can also pass an integer argument to indicate how many frames to skip. The function returns the actual number of frames skipped (you might be near the end of the file and not able to skip all you specified).

Getting simulation information

After calling read() or read_next() every atom's coordinates are accessible via the x() method. For example, to get the coordinates of the first atom in the first frame you would do the following. The frame is the first argument and the atom number is the second argument.

real :: myatom(3)
! ...
myatom = trj%x(1, 1)

Note: Fortran uses one-based indexing, and that convention is retained here.

If you read in an index file, you can get atom coordinates in relationship to that. The following gets the fifth atom in index group C in the 10th frame:

myatom = trj%x(10, 5, "C")

If the index group does not exist, then an error will be thrown, causing the program to stop.

Note: If you have more than one group in your index file with the same name, this will simply use the first group with that name. It's best not to repeat group names in your index file. The library will give you a warning if it finds that an index name is duplicated, but the program will continue.

If you want direct access to the object storing a coordinate, do the following use trj%frameArray(i)%xyz(j,k) where i is the frame number, j are the x, y, and z coordinates (so 1, 2, and 3), and k is the atom number. The x() method is just a convenient way to get this object.

Note that when you use x() you will still have to give it the frame number as the first argument even if you only read in one frame with read_next(). You can always get the total number of frames in a trajectory file object with the nframes member:

integer :: n
! ...
n = trj%nframes

This is distinct from the number of frames read in using read_next(). The frame number passed to the x() method, and other methods here, is always in relationship to the number of frames read in, not the total number of frames in the file. To get the number of frames read in using read() use:

integer :: n
! ...
n = trj%frames_read

To get the timestep corresponding with the first saved frame in the trajectory file do:

integer :: istart
! ...
istart = trj%istart

To get the timestep corresponding with the last saved frame in the trajectory file do:

integer :: iend
! ...
iend = trj%iend

To get how often frames were saved in your simulation to this trajectory file use the nevery object. This corresponds with the fifth column in a LAMMPS dump dcd line where you indicated to dump every this many timesteps. It is the column labeled N in the LAMMPS dump manual page.

real(8) :: nevery
! ...
nsavc = trj%nevery

To get the simulation timestep, use the timestep object. This corresponds to the timestep setting in LAMMPS.

real(8) :: timestep
! ...
delta = trj%timestep

Warning: Some programs such as catdcd overwrite time step information. dcdfort outputs this information whenever it opens a file. If you intend on using this information in your analysis program, double check that it is correct. If you are only using LAMMPS output, you shouldn't have to worry about this.

You can also get the number of atoms with the natoms() method:

integer :: n
! ...
n = trj%natoms()

If you want to know how many atoms are in an index group include the group name as an argument. In this example the group name is "C":

n = trj%natoms("C")

If that index group does not exist, then the method will simply return 0.

To get the box coordinates, use box. The following gets the box of the 2nd