- write (iout,*) "molread: REFSTR",refstr
- if (refstr) then
- if (.not.pdbref) then
- call read_angles(inp,*38)
- goto 39
- 38 write (iout,'(a)') 'Error reading reference structure.'
-#ifdef MPL
- call mp_stopall(Error_Msg)
-#else
- stop 'Error reading reference structure'
-#endif
- 39 call chainbuild
- nstart_sup=nnt
- nstart_seq=nnt
- nsup=nct-nnt+1
- do i=1,2*nres
- do j=1,3
- cref(j,i)=c(j,i)
- enddo
- enddo
- endif
-c call contact(.true.,ncont_ref,icont_ref)
- endif
- if (ns.gt.0) then
-C write (iout,'(/a,i3,a)')
-C & 'The chain contains',ns,' disulfide-bridging cysteines.'
+ if (ns.gt.0) then
+C write (iout,'(/a,i3,a)')
+C 'The chain contains',ns,' disulfide-bridging cysteines.'