anchor.diff:  cc MR CHANGE
   
         ione=1
  -      write (temp1,"('(''bc mapping array@'',i',i1,',A1)')") itmp
  -      write (fname2,temp1) (myrank+1),'?'
  -      call readheader(igeom,fname2 // char(0),nshg,ione,
  +      call readheader(igeom,'bc mapping array' // char(0),nshg,ione,
        & 'integer' // char(0),iotype)
   
   c      fname1='bc mapping array?'
  
positive.code: c
  
        ione=1
        write (temp1,"('(''periodic masters array@'',i',i1,',A1)')") itmp
        write (fname2,temp1) (myrank+1),'?'
  
  c      fname1='periodic masters array?'
  c      call readheader(igeomBAK,fname1,nshg,
  c     &     ione, 'integer', iotype)
        call readheader(igeom,fname2 // char(0) ,nshg,
       &     ione, 'integer' // char(0), iotype)
        allocate( point2iper(nshg) )
        allocate( iperread(nshg) )
  c      call readdatablock(igeomBAK,fname1,iperread,nshg,
  c     &                      'integer',iotype)
        call readdatablock(igeom,fname2 // char(0),iperread,nshg,
       &                      'integer' // char(0),iotype)
        point2iper=iperread
  
  
  
negative.code: c.... read the temporary iBC array
  c
        ione=1
        call readheader(igeom,'bc codes array' // char(0) ,numpbc,ione,
       & 'integer' // char(0),iotype)
  
  c      ione = 1
  