C
C 6/23/01 Read parameters for double torsionals
C
- do i=1,ntortyp
- do j=1,ntortyp
- do k=1,ntortyp
+ do i=0,ntortyp-1
+ do j=-ntortyp+1,ntortyp-1
+ do k=-ntortyp+1,ntortyp-1
read (itordp,'(3a1)',end=114,err=114) t1,t2,t3
c write (iout,*) "OK onelett",
c & i,j,k,t1,t2,t3
enddo
enddo
enddo
+ enddo
endif
#endif
C Read of Side-chain backbone correlation parameters