Hi there.
I'm trying to determine the interaction energy between two lipids in a lipid bilayer. How do I determine the starting point, i.e. how do I tell CHARMM where (in the TRJ) to start the reading? I tried with BEGIN and START, but it's not working. The trajectory was save with SKIP=1000, whereas I'm reading it with SKIP=10000. The trajectory covers 30 ns of simulation, but I would like to analyse only the last 20 ns.
My input is as follows:
* measure interaction energy
bomlev -2
! parameters needed
! only parts before PSF/COR/TRJ needed
! c - composition of membrane system
! r - residue CHL1/SM
! 1 - residue number, must be a CHL1
! 2 - name of segi 2
! name of main lipid segment
set 2 main
! Load parameters
open read unit 1 card name top_all27_lipid.rtf
read rtf card unit 1
clos unit 10
open read unit 1 card name par_all27_lipid.prm
read param card unit 1
stream toppar_all27_lipid_cholesterol.str
! Load coordinates
open read unit 1 card name sys8fixed.psf
read psf card unit 1
open read unit 1 card name dyn.cor
read coor card unit 1
!defi test sele resi @1 .and. segi main show end
!stop
!coor stat
!stop
crystal define tetragonal 95.0 95.0 59.5 90.0 90.0 90.0
crystal build cutoff 14.0
imag byres sele resnam TIP3 .or. resnam CHL1 .or. resn SM end
nbond atom vatom cutnb 14.0 ctofnb 10. cdie eps 1. -
ctonnb 7. vswitch cutim 14.0 imgfrq -1 wmin 1.0 -
ewald pmew fftx 128 ffty 128 fftz 72 kappa .33 spline order 6
ener
!stop
! Load trajectory
open read unit 11 file name dyn_c-05.0-35.0ns.trj
traj firstu 11 nunit 1 skip 10000 !begin 15001000
!stop
! Open output data file
! asterisks denote which interaction we are measuring
open write unit 99 form name
inter-ener-mem@c-@r-@s-@1-@2.datwrite title unit 99
* time ep evdw el
*
set t 0.0 ! keep track of time, assume traj is from 0.0 till the end
label loop
traj read
! we have to update lists every time
! use the same parameters as during simulation!
upda atom vatom cutnb 14.0 ctofnb 10. cdie eps 1. -
ctonnb 7. vswitch cutim 14.0 imgfrq -1 wmin 1.0 -
ewald pmew fftx 128 ffty 128 fftz 72 kappa .33 spline order 6
inte sele (resi @1 .and. segi main) end sele .not. (resi @1 .and. segi main) end
! ?ener is total energy. other terms may also be extracted,
! see energy.doc, section Substitution, for more details
set ep ?ener
set evdw ?vdw
set el ?elec
write title unit 99
* @t @ep @evdw @el
*
incr t by 100.0
if t le 3500.0 goto loop
stop
stop
------
Thanks in advance,
zee