anchor.diff:          allocate( iBCtmp(1) )
           allocate( iBCtmpread(1) )
         endif
  -c         call readdatablock(igeomBAK,fname1,iBCtmpread,numpbc,
  -c     &                      'integer',iotype)
         call phio_readdatablock(fhandle,
        & c_char_'bc codes array' // char(0),
        & c_loc(iBCtmpread), numpbc, dataInt, iotype)
  
positive.code:       deallocate(nbcread)
  
        return
  c
   994  call error ('input   ','opening ', igeomBAK)
   995  call error ('input   ','opening ', igeomBAK)
   997  call error ('input   ','end file', igeomBAK)
   998  call error ('input   ','end file', igeomBAK)
  c
        end
  
  c
  c No longer called but kept around in case....
  c
        subroutine genpzero(iBC)
  
        use pointer_data
  c
        include "common.h"
        integer iBC(nshg)
  c
  
negative.code:       do i = 1, melCat
           if (nen .eq. nenCat(i,nsd)) nenb = max(nenCat(i,nsd-1), nenb)
        enddo
        if (myrank == master) then
           if (nenb .eq. 0) call error ('input   ','nen     ',nen)
        endif
  