projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Dzialajaczy dla D aminokwasow whama(mono) psuedosymetria dla GABowego
[unres.git]
/
source
/
wham
/
src
/
parmread.F
diff --git
a/source/wham/src/parmread.F
b/source/wham/src/parmread.F
index
aa0a8fc
..
618bf8a
100644
(file)
--- a/
source/wham/src/parmread.F
+++ b/
source/wham/src/parmread.F
@@
-662,18
+662,19
@@
C Martix of D parameters for two dimesional fourier series
write (iout,'(3x,20i10)') (l,l=1,ntermd_2(i,j,k,iblock))
do l=1,ntermd_2(i,j,k,iblock)
write (iout,'(i5,20f10.5)')
write (iout,'(3x,20i10)') (l,l=1,ntermd_2(i,j,k,iblock))
do l=1,ntermd_2(i,j,k,iblock)
write (iout,'(i5,20f10.5)')
- & l,(v2c(l,m,i,j,k),m=1,ntermd_2(i,j,k,iblock))
+ & l,(v2c(l,m,i,j,k,iblock),m=1,ntermd_2(i,j,k,iblock))
enddo
write (iout,*)
write (iout,'(3x,20i10)') (l,l=1,ntermd_2(i,j,k,iblock))
do l=1,ntermd_2(i,j,k,iblock)
write (iout,'(i5,20f10.5)')
enddo
write (iout,*)
write (iout,'(3x,20i10)') (l,l=1,ntermd_2(i,j,k,iblock))
do l=1,ntermd_2(i,j,k,iblock)
write (iout,'(i5,20f10.5)')
- & l,(v2s(l,m,i,j,k),m=1,ntermd_2(i,j,k,iblock))
+ & l,(v2s(l,m,i,j,k,iblock),m=1,ntermd_2(i,j,k,iblock))
enddo
write (iout,*)
enddo
enddo
enddo
enddo
write (iout,*)
enddo
enddo
enddo
+ enddo
endif
#endif
C Read of Side-chain backbone correlation parameters
endif
#endif
C Read of Side-chain backbone correlation parameters
@@
-734,8
+735,8
@@
C interaction energy of the Gly, Ala, and Pro prototypes.
C
read (ifourier,*) nloctyp
do i=0,nloctyp-1
C
read (ifourier,*) nloctyp
do i=0,nloctyp-1
- read (ifourier,*,end=115,err=115)
- read (ifourier,*,end=115,err=115) (b(ii),ii=1,13)
+ read (ifourier,*)
+ read (ifourier,*) (b(ii),ii=1,13)
if (lprint) then
write (iout,*) 'Type',i
write (iout,'(a,i2,a,f10.5)') ('b(',ii,')=',b(ii),ii=1,13)
if (lprint) then
write (iout,*) 'Type',i
write (iout,'(a,i2,a,f10.5)') ('b(',ii,')=',b(ii),ii=1,13)