include file: TYPWVP2 2
c       local diagnostic arrays passed through argument list               TYPWVP2.2      
c THIS set for one block only - pass down to PROPAGS                       TYPWVP2.3      
c                                                                          TYPWVP2.4      
       real sadv2 (len_p2)                                                 TYPWVP2.5      
c                                                                          TYPWVP2.6