include file: TYPWVS2 2
c       local diagnostic arrays passed through argument list               TYPWVS2.2      
c THIS set for one block only - pass down to IMPLSCH                       TYPWVS2.3      
c                                                                          TYPWVS2.4      
       real sin2 (len_s2)                                                  TYPWVS2.5      
       real snl2 (len_s2)                                                  TYPWVS2.6      
       real sds2 (len_s2)                                                  TYPWVS2.7      
       real sbf2 (len_s2)                                                  TYPWVS2.8      
       real stl2 (len_s2)                                                  TYPWVS2.9      
c                                                                          TYPWVS2.10