c       for symblv test program
        parameter (x1=-14.0,y1=26.0,z1=0.0,h1=3.4)
        parameter (x2=-14.0,y2=22.0,z2=0.0,h2=2.8)
        parameter (x3=-18.0,y3=-1.0,z3=0.0,h3=2.0)
        parameter (n1=38,n2=44,n3=6)
        character chr1*60,chr2*60,chr3*6
        data chr1/"Southward Turning from Northward IMF"/
        data chr2/"Bz=18.2nT Nsw=46/cc Vsw=412km/s t=342m(42m)"/ 
        data chr3/"X 8Re"/
        call symbvb
        call symblv(x1,y1,z1,h1,chr1,n1) 
        call symblv(x2,y2,z2,h2,chr2,n2) 
        call symblv(x3,y3,z3,h3,chr3,n3) 
        stop
        end