      INTEGER*4 V1,V2,V3
      CALL EXCVEC(V1,V2,V3)
      WRITE(*,*) V1,V2,V3
      END
