do i=nnt,nct
ind=ind+1
ii = ind+m
do i=nnt,nct
ind=ind+1
ii = ind+m
massvec(ii)=msc(iti)
if (iti.ne.10) then
ind1=ind1+1
massvec(ii)=msc(iti)
if (iti.ne.10) then
ind1=ind1+1
ind=0
k=nct-nnt
do i=nnt,nct
ind=0
k=nct-nnt
do i=nnt,nct
ind=ind+1
do j=nnt,i
ii = ind
ind=ind+1
do j=nnt,i
ii = ind