INTEGER  :: fdes 
      INTEGER  :: newpos 
      INTEGER  :: nactual 
      INTEGER  :: start 
      COMMON /engribbing/ fdes, newpos, nactual, start
      INTEGER bacio