X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fparmread.F;h=618bf8aac1ca6b204697fff5d8bee234ab4c5445;hb=2d66111aef48a7db8a87b9f9b3882d640ea53435;hp=aa0a8fca0b8e014c2c5248851c6977bba7d084ff;hpb=282e4424a88ba77cdd137d8335c51edcb5963506;p=unres.git

diff --git a/source/wham/src/parmread.F b/source/wham/src/parmread.F
index aa0a8fc..618bf8a 100644
--- 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)') 
-     &         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)') 
-     &         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
       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
-        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)