include file: ARGWVRF 5
C*    *COMMON* *REFDOT* - DEPTH AND CURRENT PART OF THETA DOT.             ARGWVRF.2      
C                                                                          ARGWVRF.3      
     & THDD, THDC, SIDC,                                                   ARGWVRF.4      
                                                                           ARGWVRF.5