projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
SAXS cutoff correction
[unres.git]
/
source
/
wham
/
src
/
readrtns.F
diff --git
a/source/wham/src/readrtns.F
b/source/wham/src/readrtns.F
index
19d4b20
..
3d308b4
100644
(file)
--- a/
source/wham/src/readrtns.F
+++ b/
source/wham/src/readrtns.F
@@
-194,6
+194,15
@@
C
call flush(iout)
enddo
call flush(iout)
enddo
+ write (iout,*) "HOMOL_NSET",homol_nset
+ if (homol_nset.gt.1) then
+ write (iout,*) "HOMOL_NSET: nT_h",nT_h(iparm)
+ do ib=1,nT_h(iparm)
+ nR(ib,iparm)=homol_nset
+ write (iout,*) "iparm",iparm," ib",ib," nR",nR(ib,iparm)
+ enddo
+ endif
+
enddo
if (hamil_rep) then
enddo
if (hamil_rep) then
@@
-243,7
+252,7
@@
c-----------------------------------------------------------------------------
include "COMMON.NAMES"
include "COMMON.FREE"
include "COMMON.OBCINKA"
include "COMMON.NAMES"
include "COMMON.FREE"
include "COMMON.OBCINKA"
- character*64 nazwa
+ character*128 nazwa
character*16000 controlcard
integer i,ii,ib,iR,iparm,ilen,iroof,nthr,npars
external ilen,iroof
character*16000 controlcard
integer i,ii,ib,iR,iparm,ilen,iroof,nthr,npars
external ilen,iroof
@@
-346,7
+355,7
@@
c-------------------------------------------------------------------------------
include "COMMON.PROTFILES"
include "COMMON.PROT"
include "COMMON.FREE"
include "COMMON.PROTFILES"
include "COMMON.PROT"
include "COMMON.FREE"
- character*64 bprotfile_temp
+ character*128 bprotfile_temp
character*3 liczba,liczba2
character*2 liczba1
integer iunit,islice
character*3 liczba,liczba2
character*2 liczba1
integer iunit,islice
@@
-406,7
+415,8
@@
c-------------------------------------------------------------------------------
include "COMMON.SBRIDGE"
include "COMMON.OBCINKA"
real*4 csingle(3,maxres2)
include "COMMON.SBRIDGE"
include "COMMON.OBCINKA"
real*4 csingle(3,maxres2)
- character*64 nazwa,bprotfile_temp
+ character*64 nazwa
+ character*128 bprotfile_temp
character*3 liczba
character*2 liczba1
integer i,j,ii,jj(maxslice),k,kk(maxslice),l,
character*3 liczba
character*2 liczba1
integer i,j,ii,jj(maxslice),k,kk(maxslice),l,