read (itorp,*,end=113,err=113) ntortyp,nterm_old
if (lprint)write (iout,*) 'ntortyp,nterm',ntortyp,nterm_old
read (itorp,*,end=113,err=113) (itortyp(i),i=1,ntyp)
read (itorp,*,end=113,err=113) ntortyp,nterm_old
if (lprint)write (iout,*) 'ntortyp,nterm',ntortyp,nterm_old
read (itorp,*,end=113,err=113) (itortyp(i),i=1,ntyp)