CIPRIME CNSVCD                                                          CNSVCD      1
      COMMON /SVCD/ NLFSV,ISVC,ISDIV,IQF,NVSENX,MT1,MT2,NVSEN1,NVSEN2   CNSVCD      2
     &,SVCDA(40)                                                        CNSVCD      3
      CHARACTER SVCNAM*12                                               CNSVCD      4
      CHARACTER SVCKT*2,GENCKT*2,LCKT*2                                 CNSVCD      5
      COMMON /SVCN/ SVCNAM,SVCKT,GENCKT,LCKT                            CNSVCD      6
