Merge branch 'lipid' of mmka.chem.univ.gda.pl:unres into lipid

[unres.git] / source / unres / src_MD-M / dihed_cons.F

diff --git a/source/unres/src_MD-M/dihed_cons.F b/source/unres/src_MD-M/dihed_cons.F
index 1fb6c53..ddf198d 100644 (file)
--- a/source/unres/src_MD-M/dihed_cons.F
+++ b/source/unres/src_MD-M/dihed_cons.F
@@ -28,9 +28,9 @@ cdr      call getenv_loc('SECPREDFIL',secpred)
 C read secondary structure prediction from JPRED here!
 !      read(isecpred,'(A80)',err=100,end=100) line
 !      read(line,'(f10.3)',err=110) ftors
-       read(isecpred,'(f10.3)',err=110) ftors
+       read(isecpred,'(f10.3)',err=110) ftors(1)
 
-      write (iout,*) 'FTORS factor =',ftors
+      write (iout,*) 'FTORS factor =',ftors(1)
 ! initialize secstruc to any
        do i=1,nres
         secstruc(i) ='-'
@@ -52,6 +52,7 @@ C 8/13/98 Set limits to generating the dihedral angles
       
       ii=0
       do i=1,nres
+         ftors(i)=ftors(1)
         if ( secstruc(i) .eq. 'H') then
 C Helix restraints for this residue               
            ii=ii+1