logical spline,oesig,debug,notop,opre,calout,oform,have_gp
      logical splineu,splinev,splinet,zerowinds,osig_in
      character*120 zsfil,tsfil,smfil,vfil
      common / vi / ntimes,spline,mxcyc,nvsig,nrh
     &             ,oesig,ptop,debug,notop,opre,have_gp
     &             ,in,calout
     &             ,iout,oform,osig_in
     &             ,inzs,zsfil,ints,tsfil,insm,smfil
     &             ,vfil
     &             ,splineu,splinev,splinet,zerowinds