- Home
- CHARMM Documentation
- Version c45b2
- pimplem

# pimplem (c45b2)

Implementation of the Thermodynamic Simulation Method

* Description | How Chemical Perturbation works.

* File Formats | Output File Formats for Chemical Perturbation.

* IC Implementation | Implementation and File Formats for Internal

Coordinate Perturbation

Top

How the Chemical Perturbation Energy Calculation Works

For thermodynamic perturbation calculations the atoms making up

the system described by the hybrid Hamiltonian, H(lambda), can be divided

into four groups. 1) The environment part - all atoms that do not change

during the perturbation. E.g., for ethanol -> propane the solvent and

the terminal methyl group. 2) The reactant atoms - the atoms that are

present at lambda = 0 and absent at lambda = 1. 3) The product atoms -

the atoms that are absent at lambda = 0 and present at lambda = 1. 4)

The COLO atoms - atoms that are present in both the reactant and product

but change charge in going from one to the other.

Certain basic premises underly our approach. Energy values are

factored by lambda (or functions thereof), never the energy functions

themselves. The standard energy routines are called unchanged and can be

modified without requiring changes to the perturbation routines as long

as the calling sequence remains the same. Potential energy terms are

written to output during a trajectory and in the case of the window

method trajectories can be combined. Futhermore any lambda -> lambda'

can be calculated post priori and additional lambda points can be added

as desired. Most other implementations do not appear to allow this.

There is, however, a price entailed namely a certain amount of redundant

calculation. Furthermore , purely as a matter of conceptual preference,

the entire perturbation part of the Hamiltonian is facter by lambda in

the same way. There has been some advocacy of factoring the attractive

and repulsive part of the Lennard-Jones potential with different powers

of lambda (see Cross).

We want to calculate the potential energy U(lambda) = Uenv +

(1-lambda)**N Ureac + lambda**N Uprod, where N is positive integer

exponent and Uenv is the energy of the common environment part of the

system. The residue topology file for the system undergoing the

perturbation has all the internal coordinate terms for both the product

and reactant parts and the regular CHARMM energy routine calculates an

energy term that in it's sum contains part of Ureac and Uprod along with

Uenv and in certain cases, as will be discussed shortly, an additional

term that needs to be removed. The residue description must contain

non-bonded exclusions between the product and reactant atoms. Of course,

none of this is factored correctly, or at all, by lambda.

The approach to obtaining a the correct U(lambda) is an indirect

one. Instead of making it so that the normal energy routine calculates

Uenv only and having the perturbation energy routine calcuated determine

(1-lambda)**N Ureac + lambda**N Uprod, we have it instead calculate the

amount that must be subtracted from the normal energy routine value (here

after referred to as Unorm) to get U(lambda). The previous statement

must be amended for the case where there are COLO atoms. Then, Unorm

contains a term that must be totally removed and is missing some terms

completely, which must be added.

For the internal coordinate energy terms and the non-bonded van

der Waals interactions, the amount that must be subtracted from Unorm to

obtain U(lambda) is given by:

U(lambda) = Unorm + Ucorr

since,

U(lambda) = U(env) + (1 - lambda)**N Ureac + lambda**N Uprod

and

Unorm = U(env) + Ureac + Uprod

then

-Ucorr = [1-(1-lambda)**N]Ureac + [1-lambda**N]Uprod .

We have currently ignored the electrostatic terms. If there are no COLO

atoms the above expressions hold true for those terms as well.

If there are COLO atoms , the situation becomes a bit more

complicated. To discuss this the following nomenclature is introduced:

[reac| reac,colo-r,env]

The expression above indicates the calculation of the electrostatic

interaction between reactant atoms and 1) other reactant atoms 2) COLO

atoms with the reactant energy charges and 3) with environment atoms.

Unorm contains the following electrostatic terms:

[reac| reac, colo-r, env] + [color | prod, colo-r, env] +

[prod | prod, env]

The term [ colo-r | prod ] must be removed in it's entirety (product

atoms do not interact with reactant charges (colo-r). And the missing

interactions involving colo-p (product) charges must be added (suitably

factored by lambda). To do this Ucorr must contain:

(1 - (1 - lambda)**N) { [reac | reac, colo-r, env] +

[colo-r | colo-r, env] }

+ (1 - lambda**N)[prod | prod, env] + 1[color|prod]

- lambda**N [colo-p | colo-p, prod, env]

Note that -Ucorr is passed from the perturbation energy routine, thus the

negative term (last one) actually adds what is totally missing from

Unorm. The electrostatic contribution to Ucorr is actually calculated in

an even more round-about fashion than that which is given above.

First both the van der Waal's and electrostatic interactions

involving reactant and product atoms with everything (except interactions

between reactant and product atoms) are calculated. The reactant colo-r

charges are used for this. This provides the term:

(1 -(1-lambda)**N)[reac | env, colo-r, reac ]

and

(1 - lambda**N)[prod | env, colo-r, prod ].

If there are no COLO atoms, this is all we need (absent the colo-r term

in the expressions). Otherwise, three more calculations, involving only

the electrostatic energy, are required. The first involves interactions

between colo-r charges with environment and other colo-r charges:

(1-(1-lambda)**N)[colo-r | env, colo-r]

Next the colo-r product atom electrostatic interaction is calculated and

factored by a function of lambda that compensates for the amount in the

second ([prod | colo-r ...] ) calculation. In that term,

1-lambda**N[prod | colo-r] is included so we must determine,

(lambda**N)[colo-r| prod]

(Since the quantity (1-lambda**N) is calculated once we actually use,

(1 - (1 - lambda**N))[colo-r| prod]

Following this the colo-r charges are exchanged, temporarily, for colo-p

and the last calculations is done. The final expression is:

-lambda**N [colo-p | prod, env, colo-p]

Which actually adds (see above) the missing interaction into the total

potential energy.

The colo-r charges are restored after this. The same procedure

is done for the image atom calculation.

It is obvious that some optimization of this method is

achievable. One possibility is that by sorting the atom list so that

COLO, reactant and product atoms appear at the top of the list in that

order, most of the non-bonded list checking can be avoided and the

copying of data structures on the heap eliminated. A more radical change

would be to edit the non-bonded lists so that the normal energy routine

calculates only Uenv and the perturbation routines calculated Ureac and

Uprod directly. The presence of the COLO atoms makes both procedures

more complicated. However, there does not appear to be a viable

alternative to the COLO atoms that is consistant with our approach.

How the Chemical Perturbation Energy Calculation Works

For thermodynamic perturbation calculations the atoms making up

the system described by the hybrid Hamiltonian, H(lambda), can be divided

into four groups. 1) The environment part - all atoms that do not change

during the perturbation. E.g., for ethanol -> propane the solvent and

the terminal methyl group. 2) The reactant atoms - the atoms that are

present at lambda = 0 and absent at lambda = 1. 3) The product atoms -

the atoms that are absent at lambda = 0 and present at lambda = 1. 4)

The COLO atoms - atoms that are present in both the reactant and product

but change charge in going from one to the other.

Certain basic premises underly our approach. Energy values are

factored by lambda (or functions thereof), never the energy functions

themselves. The standard energy routines are called unchanged and can be

modified without requiring changes to the perturbation routines as long

as the calling sequence remains the same. Potential energy terms are

written to output during a trajectory and in the case of the window

method trajectories can be combined. Futhermore any lambda -> lambda'

can be calculated post priori and additional lambda points can be added

as desired. Most other implementations do not appear to allow this.

There is, however, a price entailed namely a certain amount of redundant

calculation. Furthermore , purely as a matter of conceptual preference,

the entire perturbation part of the Hamiltonian is facter by lambda in

the same way. There has been some advocacy of factoring the attractive

and repulsive part of the Lennard-Jones potential with different powers

of lambda (see Cross).

We want to calculate the potential energy U(lambda) = Uenv +

(1-lambda)**N Ureac + lambda**N Uprod, where N is positive integer

exponent and Uenv is the energy of the common environment part of the

system. The residue topology file for the system undergoing the

perturbation has all the internal coordinate terms for both the product

and reactant parts and the regular CHARMM energy routine calculates an

energy term that in it's sum contains part of Ureac and Uprod along with

Uenv and in certain cases, as will be discussed shortly, an additional

term that needs to be removed. The residue description must contain

non-bonded exclusions between the product and reactant atoms. Of course,

none of this is factored correctly, or at all, by lambda.

The approach to obtaining a the correct U(lambda) is an indirect

one. Instead of making it so that the normal energy routine calculates

Uenv only and having the perturbation energy routine calcuated determine

(1-lambda)**N Ureac + lambda**N Uprod, we have it instead calculate the

amount that must be subtracted from the normal energy routine value (here

after referred to as Unorm) to get U(lambda). The previous statement

must be amended for the case where there are COLO atoms. Then, Unorm

contains a term that must be totally removed and is missing some terms

completely, which must be added.

For the internal coordinate energy terms and the non-bonded van

der Waals interactions, the amount that must be subtracted from Unorm to

obtain U(lambda) is given by:

U(lambda) = Unorm + Ucorr

since,

U(lambda) = U(env) + (1 - lambda)**N Ureac + lambda**N Uprod

and

Unorm = U(env) + Ureac + Uprod

then

-Ucorr = [1-(1-lambda)**N]Ureac + [1-lambda**N]Uprod .

We have currently ignored the electrostatic terms. If there are no COLO

atoms the above expressions hold true for those terms as well.

If there are COLO atoms , the situation becomes a bit more

complicated. To discuss this the following nomenclature is introduced:

[reac| reac,colo-r,env]

The expression above indicates the calculation of the electrostatic

interaction between reactant atoms and 1) other reactant atoms 2) COLO

atoms with the reactant energy charges and 3) with environment atoms.

Unorm contains the following electrostatic terms:

[reac| reac, colo-r, env] + [color | prod, colo-r, env] +

[prod | prod, env]

The term [ colo-r | prod ] must be removed in it's entirety (product

atoms do not interact with reactant charges (colo-r). And the missing

interactions involving colo-p (product) charges must be added (suitably

factored by lambda). To do this Ucorr must contain:

(1 - (1 - lambda)**N) { [reac | reac, colo-r, env] +

[colo-r | colo-r, env] }

+ (1 - lambda**N)[prod | prod, env] + 1[color|prod]

- lambda**N [colo-p | colo-p, prod, env]

Note that -Ucorr is passed from the perturbation energy routine, thus the

negative term (last one) actually adds what is totally missing from

Unorm. The electrostatic contribution to Ucorr is actually calculated in

an even more round-about fashion than that which is given above.

First both the van der Waal's and electrostatic interactions

involving reactant and product atoms with everything (except interactions

between reactant and product atoms) are calculated. The reactant colo-r

charges are used for this. This provides the term:

(1 -(1-lambda)**N)[reac | env, colo-r, reac ]

and

(1 - lambda**N)[prod | env, colo-r, prod ].

If there are no COLO atoms, this is all we need (absent the colo-r term

in the expressions). Otherwise, three more calculations, involving only

the electrostatic energy, are required. The first involves interactions

between colo-r charges with environment and other colo-r charges:

(1-(1-lambda)**N)[colo-r | env, colo-r]

Next the colo-r product atom electrostatic interaction is calculated and

factored by a function of lambda that compensates for the amount in the

second ([prod | colo-r ...] ) calculation. In that term,

1-lambda**N[prod | colo-r] is included so we must determine,

(lambda**N)[colo-r| prod]

(Since the quantity (1-lambda**N) is calculated once we actually use,

(1 - (1 - lambda**N))[colo-r| prod]

Following this the colo-r charges are exchanged, temporarily, for colo-p

and the last calculations is done. The final expression is:

-lambda**N [colo-p | prod, env, colo-p]

Which actually adds (see above) the missing interaction into the total

potential energy.

The colo-r charges are restored after this. The same procedure

is done for the image atom calculation.

It is obvious that some optimization of this method is

achievable. One possibility is that by sorting the atom list so that

COLO, reactant and product atoms appear at the top of the list in that

order, most of the non-bonded list checking can be avoided and the

copying of data structures on the heap eliminated. A more radical change

would be to edit the non-bonded lists so that the normal energy routine

calculates only Uenv and the perturbation routines calculated Ureac and

Uprod directly. The presence of the COLO atoms makes both procedures

more complicated. However, there does not appear to be a viable

alternative to the COLO atoms that is consistant with our approach.

Top

File Formats

This node provides information on the FES output file format.

The data file created during dynamics can only be written as an ASCII

formatted file. It starts with a title that is written using the

subroutine WRITITL and thus has the standard CHARMM title format. After

terminating the title with a line containing an asterisk in the first

column and nothing else, an information line follows, containing:

NSTEP, PERFRQ, NDEGF, NPUMB, LPOWER - 5(I6,1X)

The first two numbers are not currently used by the post-processor.

NDEGF, the number of degrees of freedom is used if the CTEMp flag is set.

Npumb is the number of umbrella dihedral angles. If the UMBR flag is set

in the PROCess command and NPUMB is non-zero, the umbrella sampling

correction will be effected. LPOWER is the exponent for lambda scaling.

Every PFREQ steps the FES information is written out the unit

specified in the SAVE statement. If umbrella sampling is invoked the

format is as follows:

NPRIV,AKMATI,LAMBDA,E,VPRTTR,VPRTTP,VPRTNR,VPRTNP,

VPRTVR,VPRTVP,VPRTER,VPRTEP,TOTE,TOTKE,PUMEP

FORMAT(I12,2(1X,1PG24.16E2),/,3(2(1PG24.16E2,1X),

1 1PG24.16E2,/),2(1PG24.16E2,1X),1PG24.16E2)

If umbrella sampling is not invoked it is as follows:

NPRIV,AKMATI,LAMBDA,E,VPRTTR,VPRTTP,VPRTNR,VPRTNP,

VPRTVR,VPRTVP,VPRTER,VPRTEP,TOTE,TOTKE

FORMAT(I12,2(1X,1PG24.16E2),/,3(2(1PG24.16E2,1X),

1 1PG24.16E2,/),1PG24.16E2,1X,1PG24.16E2)

Where:

NPRIV step number

AKMATI timestep in wierd CHARMM units

LAMBDA value of lambda at timestep

E total potential energy

VPRTTR V(reactant) potential energy

VPRTTP V(product) ""

VPRTNR V(reactant) potential energy vdw + electrostatic

VPRTNP V(product) ""

VPRTVR V(reactant) potential energy vdw

VPRTVP V(product) ""

VPRTER V(reactant) potential energy electrostatic

VPRTEP V(product) ""

TOTE Total energy (potential + kinetic)

TOTKE Total kinetic energy.

and with umbrella sampling:

PUMEP The exp[-beta(Vsur - Vact)] term.

File Formats

This node provides information on the FES output file format.

The data file created during dynamics can only be written as an ASCII

formatted file. It starts with a title that is written using the

subroutine WRITITL and thus has the standard CHARMM title format. After

terminating the title with a line containing an asterisk in the first

column and nothing else, an information line follows, containing:

NSTEP, PERFRQ, NDEGF, NPUMB, LPOWER - 5(I6,1X)

The first two numbers are not currently used by the post-processor.

NDEGF, the number of degrees of freedom is used if the CTEMp flag is set.

Npumb is the number of umbrella dihedral angles. If the UMBR flag is set

in the PROCess command and NPUMB is non-zero, the umbrella sampling

correction will be effected. LPOWER is the exponent for lambda scaling.

Every PFREQ steps the FES information is written out the unit

specified in the SAVE statement. If umbrella sampling is invoked the

format is as follows:

NPRIV,AKMATI,LAMBDA,E,VPRTTR,VPRTTP,VPRTNR,VPRTNP,

VPRTVR,VPRTVP,VPRTER,VPRTEP,TOTE,TOTKE,PUMEP

FORMAT(I12,2(1X,1PG24.16E2),/,3(2(1PG24.16E2,1X),

1 1PG24.16E2,/),2(1PG24.16E2,1X),1PG24.16E2)

If umbrella sampling is not invoked it is as follows:

NPRIV,AKMATI,LAMBDA,E,VPRTTR,VPRTTP,VPRTNR,VPRTNP,

VPRTVR,VPRTVP,VPRTER,VPRTEP,TOTE,TOTKE

FORMAT(I12,2(1X,1PG24.16E2),/,3(2(1PG24.16E2,1X),

1 1PG24.16E2,/),1PG24.16E2,1X,1PG24.16E2)

Where:

NPRIV step number

AKMATI timestep in wierd CHARMM units

LAMBDA value of lambda at timestep

E total potential energy

VPRTTR V(reactant) potential energy

VPRTTP V(product) ""

VPRTNR V(reactant) potential energy vdw + electrostatic

VPRTNP V(product) ""

VPRTVR V(reactant) potential energy vdw

VPRTVP V(product) ""

VPRTER V(reactant) potential energy electrostatic

VPRTEP V(product) ""

TOTE Total energy (potential + kinetic)

TOTKE Total kinetic energy.

and with umbrella sampling:

PUMEP The exp[-beta(Vsur - Vact)] term.

Top

Internal Coordinate Implementation and File Formats

We describe how we have incorporated the double-wide, multiple-point,

window method for computing conformational free energy surfaces into

internal coordinate constraint and perturbation code with other CHARMM

routines, and it also shows the order in which the tasks are carried out,

as well as the format of the perturbation data file.

The primary internal coordinate (i.c.) constraint, perturbation, and

post-processing commands, as well as other TSM commands, are parsed in the

subroutine TSMS. When an i.c. constraint command is read, TSMS calls

ICFSET to parse the remainder of the command and to set-up the data needed

for the constraint resetting algorithm. When an i.c. perturbation command

is read, TSMS calls ICPSET to parse the remainder of the command and to

set-up the data needed to do the i.c. perturbations. Post-processing

command parsing and set-up is handled by the subroutine TSMP.

Some time after the constraints and perturbations are specified, a

dynamics command is issued and the dynamics is set up. During the dynamics

set-up, a "header" is written to the i.c. perturbation data file (opened on

unit iunicp) using the following fortran write statement in the subroutine

DCNTRL:

write(iunicp,100) nicp,icpinc,ndegf,delta

100 format(3i6,f12.6)

The variable nicp is the number of internal coordinates that will be

perturbed, icpinc is the number of subintervals, ndegf is the number of

degrees of freedom, and delta is the timestep in AKMA units. After the

dynamics is set-up, DCNTRL calls DYNAMC to integrate the equations of

motion. The main dynamics loop in DYNAMC is summarized in the following

pseudo-fortran code:

do istep = istart,istop * loop over number of steps

...

call ENERGY * get U(z) and forces

take unconstrained dynamics step

call SHAKEA * satisfy shake and i.c. cons.

...

call DYNICP * do pert. and get int. EÕs;

...

end do

The subroutine ENERGY calculates the total potential energy and the forces

needed to propagate the dynamics. After an unconstrained dynamics step is

taken, SHAKEA is called to satisfy the SHAKE and i.c. constraints in an

iterative fashion. We have to iterate the SHAKE and i.c. constraints

together, because the SHAKE constraint resetting may cause an ic constraint

to be violated, and vice versa. This constraint resetting procedure is

illustrated with the following pseudo-code:

do while (.not.done) * e.g. until shake has converged

perform iteration of shake cons. resetting

call icfcns * satisfy i.c. constraints

done = done.and..not.anyadj * if any i.c. constraints

* were adjusted, anyadj =

.true.

end do while

After the constraints are satisfied, DYNICP is called to do the double-

wide, multiple-point perturbations and calculate the interaction energies.

In DYNICP, the subroutine EIICP is called first to compute the interaction

energy of the unperturbed system (esbnp). Then the internal coordinate

values are obtained and some data is written to the perturbation data file:

call EIICP * get E for unperturbed system (esbnp)

do i = 1,nicp

get icval(1,i) * get unperturbed i.c. values

end do

c write data for unperturbed system:

write(iunicp,100) npriv,akmati,tote,totke,esbnp

100 format(i7,f10.4,3d16.8)

The two-dimensional array icval holds the internal coordinate values. The

unperturbed values are held in the first row, the values from the forward

perturbation in the second row, and the values from the reverse

perturbation in the third row. The data written to the data file includes

the number of the current dynamics step (npriv), the current simulation

time in AKMA units (akmati), the total energy (tote), total kinetic energy

(totke), and the interaction energy of the unperturbed system (esbnp).

Next, the unperturbed coordinates are copied into temporary arrays so

they can be restored after the perturbations have been carried out. Then

the double-wide, multiple point perturbations are carried out in a loop

over subintervals. The forward perturbation in each subinterval is done

first, followed by the reverse perturbation. The subroutine MVICP moves

the atoms involved in the perturbations using the algorithms described

above, and EIICP computed the interaction energies. The following pseudo-

code shows how these tasks are dispatched:

copy coords. into temp. arrays

scale = 0.0

dscale = 1.0/icpinc

do inc = 1,icpinc * loop over subintervals

scale = scale + dscale

call mvicp * move atoms by scale*dz

call eiicp * get int. E for forward pert. (esbfp)

do i = 1,nicp

get icval(2,i) * get perturbed i.c. values

end do

restore coords. from temp. arrays

call mvicp * move atoms by Ðscale*dz

call eiicp * get E for reverse pert. (esbrp)

do i = 1,nicp

get icval(3,i) * get perturbed i.c. values

end do

After all of the atoms have been moved and the interaction energies have

been computed for the forward and reverse perturbations in a subinterval,

the interaction energies and internal coordinate values are written to the

data file, and the unperturbed coordinates are restored in preparation for

the next subinterval (or the next dynamics step):

c write interaction energies of perturbed systems

write(iunicp,101) scale,esbfp,esbrp

101 format(7x,f10.4,2d16.8)

c write internal coordinate values

do i = 1,nicp

write(iunicp,102)

ic,icptyp(i),icval(1,i),icval(2,i),icval(3,i)

102 format(9x,2i4,3d16.8)

end do

restore coordinates from temp. arrays

end do

Internal Coordinate Implementation and File Formats

We describe how we have incorporated the double-wide, multiple-point,

window method for computing conformational free energy surfaces into

internal coordinate constraint and perturbation code with other CHARMM

routines, and it also shows the order in which the tasks are carried out,

as well as the format of the perturbation data file.

The primary internal coordinate (i.c.) constraint, perturbation, and

post-processing commands, as well as other TSM commands, are parsed in the

subroutine TSMS. When an i.c. constraint command is read, TSMS calls

ICFSET to parse the remainder of the command and to set-up the data needed

for the constraint resetting algorithm. When an i.c. perturbation command

is read, TSMS calls ICPSET to parse the remainder of the command and to

set-up the data needed to do the i.c. perturbations. Post-processing

command parsing and set-up is handled by the subroutine TSMP.

Some time after the constraints and perturbations are specified, a

dynamics command is issued and the dynamics is set up. During the dynamics

set-up, a "header" is written to the i.c. perturbation data file (opened on

unit iunicp) using the following fortran write statement in the subroutine

DCNTRL:

write(iunicp,100) nicp,icpinc,ndegf,delta

100 format(3i6,f12.6)

The variable nicp is the number of internal coordinates that will be

perturbed, icpinc is the number of subintervals, ndegf is the number of

degrees of freedom, and delta is the timestep in AKMA units. After the

dynamics is set-up, DCNTRL calls DYNAMC to integrate the equations of

motion. The main dynamics loop in DYNAMC is summarized in the following

pseudo-fortran code:

do istep = istart,istop * loop over number of steps

...

call ENERGY * get U(z) and forces

take unconstrained dynamics step

call SHAKEA * satisfy shake and i.c. cons.

...

call DYNICP * do pert. and get int. EÕs;

...

end do

The subroutine ENERGY calculates the total potential energy and the forces

needed to propagate the dynamics. After an unconstrained dynamics step is

taken, SHAKEA is called to satisfy the SHAKE and i.c. constraints in an

iterative fashion. We have to iterate the SHAKE and i.c. constraints

together, because the SHAKE constraint resetting may cause an ic constraint

to be violated, and vice versa. This constraint resetting procedure is

illustrated with the following pseudo-code:

do while (.not.done) * e.g. until shake has converged

perform iteration of shake cons. resetting

call icfcns * satisfy i.c. constraints

done = done.and..not.anyadj * if any i.c. constraints

* were adjusted, anyadj =

.true.

end do while

After the constraints are satisfied, DYNICP is called to do the double-

wide, multiple-point perturbations and calculate the interaction energies.

In DYNICP, the subroutine EIICP is called first to compute the interaction

energy of the unperturbed system (esbnp). Then the internal coordinate

values are obtained and some data is written to the perturbation data file:

call EIICP * get E for unperturbed system (esbnp)

do i = 1,nicp

get icval(1,i) * get unperturbed i.c. values

end do

c write data for unperturbed system:

write(iunicp,100) npriv,akmati,tote,totke,esbnp

100 format(i7,f10.4,3d16.8)

The two-dimensional array icval holds the internal coordinate values. The

unperturbed values are held in the first row, the values from the forward

perturbation in the second row, and the values from the reverse

perturbation in the third row. The data written to the data file includes

the number of the current dynamics step (npriv), the current simulation

time in AKMA units (akmati), the total energy (tote), total kinetic energy

(totke), and the interaction energy of the unperturbed system (esbnp).

Next, the unperturbed coordinates are copied into temporary arrays so

they can be restored after the perturbations have been carried out. Then

the double-wide, multiple point perturbations are carried out in a loop

over subintervals. The forward perturbation in each subinterval is done

first, followed by the reverse perturbation. The subroutine MVICP moves

the atoms involved in the perturbations using the algorithms described

above, and EIICP computed the interaction energies. The following pseudo-

code shows how these tasks are dispatched:

copy coords. into temp. arrays

scale = 0.0

dscale = 1.0/icpinc

do inc = 1,icpinc * loop over subintervals

scale = scale + dscale

call mvicp * move atoms by scale*dz

call eiicp * get int. E for forward pert. (esbfp)

do i = 1,nicp

get icval(2,i) * get perturbed i.c. values

end do

restore coords. from temp. arrays

call mvicp * move atoms by Ðscale*dz

call eiicp * get E for reverse pert. (esbrp)

do i = 1,nicp

get icval(3,i) * get perturbed i.c. values

end do

After all of the atoms have been moved and the interaction energies have

been computed for the forward and reverse perturbations in a subinterval,

the interaction energies and internal coordinate values are written to the

data file, and the unperturbed coordinates are restored in preparation for

the next subinterval (or the next dynamics step):

c write interaction energies of perturbed systems

write(iunicp,101) scale,esbfp,esbrp

101 format(7x,f10.4,2d16.8)

c write internal coordinate values

do i = 1,nicp

write(iunicp,102)

ic,icptyp(i),icval(1,i),icval(2,i),icval(3,i)

102 format(9x,2i4,3d16.8)

end do

restore coordinates from temp. arrays

end do