X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-restraint%2Freadrtns.F;h=30f5009e2bcfc067efbabb85c76810737854e0e6;hb=5467f8060e885151d3415a9897913776c337d88a;hp=7112c476158c4166528614fc3b05b8e7e929f472;hpb=4d3fd4762ad7bfc6b3fdd9915befe7ea8da7f2e0;p=unres.git diff --git a/source/cluster/wham/src-restraint/readrtns.F b/source/cluster/wham/src-restraint/readrtns.F index 7112c47..30f5009 100644 --- a/source/cluster/wham/src-restraint/readrtns.F +++ b/source/cluster/wham/src-restraint/readrtns.F @@ -861,19 +861,19 @@ c====------------------------------------------------------------------- model_ki_dist="model"//kic2//".dist" model_ki_angle="model"//kic2//".angle" - open (ientin,file=model_ki_dist,status='old') + open (imol2,file=model_ki_dist,status='old') do irec=1,maxdim !petla do czytania wiezow na odleglosc - read (ientin,*,end=1401) i, j, odl_temp(i+nnt-1,j+nnt-1,ki), + read (imol2,*,end=1401) i, j, odl_temp(i+nnt-1,j+nnt-1,ki), & sigma_odl_temp(i+nnt-1,j+nnt-1,ki) odl_temp(j+nnt-1,i+nnt-1,ki)=odl_temp(i+nnt-1,j+nnt-1,ki) sigma_odl_temp(j+nnt-1,i+nnt-1,ki)= & sigma_odl_temp(i+nnt-1,j+nnt-1,ki) enddo 1401 continue - close (ientin) - open (ientin,file=model_ki_angle,status='old') + close (imol2) + open (imol2,file=model_ki_angle,status='old') do irec=1,maxres-3 !petla do czytania wiezow na katy torsyjne - read (ientin,*,end=1402) i, j, k,l,dih(ki,i+nnt-1), + read (imol2,*,end=1402) i, j, k,l,dih(ki,i+nnt-1), & sigma_dih(ki,i+nnt-1) write (iout,*) i, j, k,l,dih(ki,i+nnt-1), & sigma_dih(ki,i+nnt-1) @@ -881,7 +881,7 @@ c====------------------------------------------------------------------- sigma_dih(ki,i+nnt-1)=1.0d0/sigma_dih(ki,i+nnt-1)**2 enddo 1402 continue - close (ientin) + close (imol2) enddo ii=0 write (iout,*) "nnt",nnt," nct",nct