! Read force field parameters and job setup data
call readrtns
call flush(iout)
+ write (iout,*) "After readrtns"
+ call cartprint
!
if (me.eq.king .or. .not. out1file) then
write (iout,'(2a/)') &
call cartprint
call intout
icall=1
+ write (iout,*) "before etotal"
call etotal(energy_(0))
etot = energy_(0)
call enerprint(energy_(0))