#!/usr/local/bin/perl
# PVECNP4   Perl script to test VECNP4    99/03/09

  `AIJV070 /raid2/C089/A10/DAnn199X`;
#  AIJV070.O 's third record contains: TITLE,USI,VSI
#  AIJV070.O should really be renamed to be AIJV089.Ann199X

  open (VEC,"| VECNP4 AIJV070.O");
  print VEC "X3\n";
  print VEC "PP X3\n";
  print VEC "Q\n";
  close(VEC);