$
$ original file qtodb6.dat  -- mag  16 apr 98
$
$ identical to qtodb5 except where marked by %%%			%%%
$ this run moves matrices aic from inputt4 tapes to scratch space, transposes
$ them to make qkks, and stores qkks in a data base for later use.
$ it is necessary to set the qualifiers for qkks properly.  The nddl entries
$ for this data block (v70.5) are:
$
$ DATABLK QKKS    TYPE=MATRIX     PATH=WSKJ       LOCATION=DBDNX,
$ 
$ PATH WSKJ       IMACHNO,APRCH,HIGHQUAL 
assign MASTER='qtodb6.MASTER' delete $ daba base generated on this run		%%%
$ must run scr=no so that this data base stays around after run
$assign output4='aic.6',unit=25,old $ file containing aic for mach=.6	%%%
assign inputt4='aic.6',unit=25,old $ file containing aic for mach=.6	%%%
diag 8 $ inspect qkks trailer in .f04 file for check.
sol 100 $ also known as sol userdmap
compile userdmap list noref $ method to get nddl attached
alter 2 $
type db,qkks $ says data block in nddl, has qualifiers
type parm,,rs,y,machno $ mach numbers are set on trim card.  Put
$ matching value in bulk data
type parm,nddl,i,n,imachno $
$ this must be set to proper value for each inputt2 file
$ aprch,highqual unlikely to be non-default values
if (machno=0.0) then $
  message //'user fatal message.  set param,machno to non-zero'
   ' value to match value used in aic computation.' $
  exit $
endif $
IMACHNO=NINT(1000.*MACHNO) $ copied from subdmap pfaero, where
$ qkks is normally generated
inputt4    /aic,,,,/1/25/0// $
trnsp aic/qkks $ automatically stored in data base
message //'run completed normally for machno'/machno $
cend
title = run to move aic from inputt4 tape to data base   qtodb6		%%%
begin bulk
param,	machno,	0.6 $ match the value used on the trim entry for 	%%%
$ the next run
enddata