      integer*4 MAX_RBMRK,ERR_RB_GE_S1,ERR_RB_GE_S2,ERR_RB_GE_S3,ERR_RB_NP,
     &          ERR_RB_Q_RM,ERR_RB_P1_VN,ERR_RB_P2_VN,ERR_RB_RANK,ERR_RB_EV,
     &          RB_OK,ERR_RB_ED0,ERR_RB_MLIN,ERR_RB_NCNV,ERR_RB_MINV,
     &          ERR_RB_SVD,ERR_RB_MLINW,ERR_RB_DSP1,ERR_RB_DSP2,ERR_RB_DSP3,
     &          ERR_RB_DSP4,ERR_RB_DSP5,ERR_RB_3PT
                                
      real*4    RB_TINY

      parameter (MAX_RBMRK=10)
                                
      parameter (RB_OK=0)

      parameter (ERR_RB_GE_S1=-1) ! schuta
      parameter (ERR_RB_GE_S2=-2) ! schuta
      parameter (ERR_RB_GE_S3=-3) ! schuta
      parameter (ERR_RB_NP=-4)    ! schuta,spvp,poldec,wolsvd
      parameter (ERR_RB_Q_RM=-5)  ! schuta
      parameter (ERR_RB_P1_VN=-6) ! schuta
      parameter (ERR_RB_P2_VN=-7) ! schuta
      parameter (ERR_RB_RANK=-8)  ! spvp
      parameter (ERR_RB_EV=-9)    ! spvp                            
      parameter (ERR_RB_ED0=-10)  ! spvp
      parameter (ERR_RB_MLIN=-11) ! poldec
      parameter (ERR_RB_NCNV=-12) ! poldec
      parameter (ERR_RB_MINV=-13) ! poldec
      parameter (ERR_RB_SVD=-14)   ! wolsvd
      parameter (ERR_RB_MLINW=-15) ! wolsvd
      parameter (ERR_RB_3PT=-16)   ! all...
      parameter (ERR_RB_DSP1=-17)  ! disp3ds
      parameter (ERR_RB_DSP2=-18)  ! disp3ds
      parameter (ERR_RB_DSP3=-19)  ! disp3ds
      parameter (ERR_RB_DSP4=-20)  ! disp3ds
      parameter (ERR_RB_DSP5=-21)  ! disp3ds
                                                  
      parameter ( RB_TINY= 0.000001 )  
