iext = index(arg,'.cx') - 1
if (iext.lt.0) then
print *,"Error - not a cx file"
iext = index(arg,'.cx') - 1
if (iext.lt.0) then
print *,"Error - not a cx file"
else
write(licz,'(bz,i3.3)') itraj
pdbfile=arg(:iext)//'_'//licz//'.pdb'
endif
else
write(licz,'(bz,i3.3)') itraj
pdbfile=arg(:iext)//'_'//licz//'.pdb'
endif
read (cfreq,*) ifreq
endif
c print *,"ifreq",ifreq," ntraj",ntraj," itraj",itraj
read (cfreq,*) ifreq
endif
c print *,"ifreq",ifreq," ntraj",ntraj," itraj",itraj