#if defined(AIX) || defined(PGI)
open(icart,file=cartname,position="append")
#else
#if defined(AIX) || defined(PGI)
open(icart,file=cartname,position="append")
#else
& (utheta(i),ugamma(i),uscdiff(i),i=1,nfrag_back)
write(format2,'(a1,i3.3)') "a",23+7*nfrag+7*npair
& +21*nfrag_back
& (utheta(i),ugamma(i),uscdiff(i),i=1,nfrag_back)
write(format2,'(a1,i3.3)') "a",23+7*nfrag+7*npair
& +21*nfrag_back