projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
hidden part of debug
[unres.git]
/
source
/
wham
/
src-M
/
parmread.F
diff --git
a/source/wham/src-M/parmread.F
b/source/wham/src-M/parmread.F
index
d4fa521
..
819e46c
100644
(file)
--- a/
source/wham/src-M/parmread.F
+++ b/
source/wham/src-M/parmread.F
@@
-394,7
+394,7
@@
C
enddo
enddo
enddo
enddo
enddo
enddo
- write (iout,*) "KURWA1"
+C write (iout,*) "KURWA1"
do iblock=1,2
do i=0,nthetyp
do j=-nthetyp,nthetyp
do iblock=1,2
do i=0,nthetyp
do j=-nthetyp,nthetyp
@@
-418,7
+418,7
@@
C
enddo
enddo
enddo
enddo
enddo
enddo
- write(iout,*) "KURWA1.1"
+C write(iout,*) "KURWA1.1"
C
C For dummy ends assign glycine-type coefficients of theta-only terms; the
C coefficients of theta-and-gamma-dependent terms are zero.
C
C For dummy ends assign glycine-type coefficients of theta-only terms; the
C coefficients of theta-and-gamma-dependent terms are zero.
@@
-438,7
+438,7
@@
C
aa0thet(nthetyp+1,i,nthetyp+1,iblock)=0.0d0
enddo
enddo
aa0thet(nthetyp+1,i,nthetyp+1,iblock)=0.0d0
enddo
enddo
- write(iout,*) "KURWA1.5"
+C write(iout,*) "KURWA1.5"
C Substitution for D aminoacids from symmetry.
do iblock=1,2
do i=-nthetyp,0
C Substitution for D aminoacids from symmetry.
do iblock=1,2
do i=-nthetyp,0
@@
-517,7
+517,7
@@
C
call flush(iout)
endif
#endif
call flush(iout)
endif
#endif
- write(iout,*) 'KURWA2'
+C write(iout,*) 'KURWA2'
#ifdef CRYST_SC
C
C Read the parameters of the probability distribution/energy expression
#ifdef CRYST_SC
C
C Read the parameters of the probability distribution/energy expression
@@
-625,7
+625,7
@@
C
enddo
#endif
close(irotam)
enddo
#endif
close(irotam)
- write (iout,*) 'KURWAKURWA'
+C write (iout,*) 'KURWAKURWA'
#ifdef CRYST_TOR
C
C Read torsional parameters in old format
#ifdef CRYST_TOR
C
C Read torsional parameters in old format
@@
-1279,7
+1279,7
@@
C V3SS = 13.7d0
write (iout,*) dyn_ss,'dyndyn'
if (dyn_ss) then
ss_depth=ebr/wsc-0.25*eps(1,1)
write (iout,*) dyn_ss,'dyndyn'
if (dyn_ss) then
ss_depth=ebr/wsc-0.25*eps(1,1)
- write(iout,*) akcm,whpb,wsc,'KURWA'
+C write(iout,*) akcm,whpb,wsc,'KURWA'
Ht=Ht/wsc-0.25*eps(1,1)
akcm=akcm*whpb/wsc
Ht=Ht/wsc-0.25*eps(1,1)
akcm=akcm*whpb/wsc