external ilen
C
nres0=nres
+ nnt_old=nnt
+ nct_old=nct
write (iout,*) "pdbref",pdbref
if (pdbref) then
read(inp,'(a)') pdbfile
& 'Number of residues to be superposed:',nsup,
& ' (from residue',nstart_sup,' to residue',
& nend_sup,').'
+ nnt_old=nnt
+ nct_old=nct
return
end