anchor.diff:  
   ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
   
  -           write (temp1,"('connectivity interior',i1)") iblk
  -           temp1=trim(temp1)
  -           write (temp3,"('(''@'',i',i1,',A1)')") itmp
  -           write (fname2, temp3) (myrank+1), '?'
  -           fname2 = trim(temp1)//trim(fname2)
  +           write (fname2,"('connectivity interior',i1)") iblk
   
   ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
   
  
positive.code:               writeLock=1;
             endif
  
             call readdatablock(igeom,fname2 // char(0),ientp,iientpsiz,
       &                     "integer" // char(0), iotype)
  
  !            call closefile( igeom, "read" // char(0) )
  
negative.code: 
              intfromfile(:)=-1
              iblk = iblk+1
              write (fname2,"('connectivity interior',i1)") iblk
  
              !write(*,*) 'rank, fname2',myrank, trim(adjustl(fname2))
              call phio_readheader(igeom,fname2 // char(0),intfromfile,
  