PRO RH_CALCPOS
;+ ***********************************************************************
; NAME:
;	RH_CALCPOS
;
; PURPOSE: equivalent de CALCPOS  (a effacer)
;
; CATEGORY:
;	NRH general
;-*******************************************************************
END