do l=1,maxinter
do i=1,nsccortyp
do j=1,nsccortyp
- read (isccor,*,end=119,err=119) nterm_sccor(i,j),nlor_sccor(i,j)
+ read (isccor,*,end=119,err=119)
+ & nterm_sccor(i,j),nlor_sccor(i,j)
v0ijsccor=0.0d0
si=-1.0d0
goto 999
113 write (iout,*) "Error reading torsional energy parameters."
goto 999
+ 1113 write (iout,*)
+ & "Error reading side-chain torsional energy parameters."
+ goto 999
114 write (iout,*) "Error reading double torsional energy parameters."
goto 999
115 write (iout,*)