C DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C
-C 3 1 98
+C 3 2 104
subroutine cinfo
include 'COMMON.IOUNITS'
write(iout,*)'++++ Compile info ++++'
- write(iout,*)'Version 3.1 build 98'
- write(iout,*)'compiled Mon Feb 18 13:44:21 2013'
+ write(iout,*)'Version 3.2 build 104'
+ write(iout,*)'compiled Tue Feb 19 01:04:40 2013'
write(iout,*)'compiled by czarek@piasek3'
write(iout,*)'OS name: Linux '
write(iout,*)'OS release: 2.6.32-42-generic '
call chainbuild
endif
C Following 2 lines for diagnostics; comment out if not needed
- write (iout,*) "After sideadd"
- call intout
+c write (iout,*) "After sideadd"
+c call intout
endif
if (indpdb.eq.0) then
C Read sequence if not taken from the pdb file.
C Read preformed bridges.
if (ns.gt.0) then
read (inp,*) nss,(ihpb(i),jhpb(i),i=1,nss)
- write (iout,*) 'nss=',nss,' ihpb,jhpb: ',(ihpb(i),jhpb(i),i=1,nss)
+ if(fg_rank.eq.0)
+ & write(iout,*)'nss=',nss,' ihpb,jhpb: ',(ihpb(i),jhpb(i),i=1,nss)
if (nss.gt.0) then
nhpb=nss
C Check if the residues involved in bridges are in the specified list of
if (wfrag_(i).gt.0.0d0) then
do j=ifrag_(1,i),ifrag_(2,i)-1
do k=j+1,ifrag_(2,i)
- write (iout,*) "j",j," k",k
+c write (iout,*) "j",j," k",k
ddjk=dist(j,k)
if (constr_dist.eq.1) then
nhpb=nhpb+1
endif
enddo
+#ifdef MPI
if (nfgtasks.gt.1)then
call MPI_Reduce(newnss,g_newnss,1,
enddo
endif
endif
+#endif
diff=newnss-nss
enddo
#ifndef CLUST
#ifndef WHAM
- if (.not.found) write(iout,'(a15,f12.2,f8.1,2i5)')
+ if (.not.found.and.fg_rank.eq.0)
+ & write(iout,'(a15,f12.2,f8.1,2i5)')
& "SSBOND_BREAK",totT,t_bath,idssb(i),jdssb(i)
#endif
#endif
enddo
#ifndef CLUST
#ifndef WHAM
- if (.not.found) write(iout,'(a15,f12.2,f8.1,2i5)')
+ if (.not.found.and.fg_rank.eq.0)
+ & write(iout,'(a15,f12.2,f8.1,2i5)')
& "SSBOND_FORM",totT,t_bath,newihpb(i),newjhpb(i)
#endif
#endif