; B01.DCF:
; Creates view files, one for each of the 83 reference projections.
; Each view file contains data from sel*** files (created by b16.cla)
; across all defocus groups.
; Checks if old view files already exist.

md
vb off

; number of defocus groups
x33 = 3

; Do for all defocus groups
DO LB5 x31=1,x33

DO LB1 x99=1,83 ; all 83 reference projections

IQ FI x98
../APMQ/df{***x31}/select/sel{***x99}
IF (x98.EQ.0) GOTO LB1

IQ FI x98
views/view{***x99}

IF (x98.EQ.0) THEN
   x16 = 0
ELSE
   UD N,x16
   views/view{***x99}
ENDIF

UD N,x15
../APMQ/df{***x31}/select/sel{***x99}


DO LB2 x21=1,x15

   x22=x21+x16

   UD IC,x21,x41,x42
   ../APMQ/df{***x31}/select/sel{***x99}

   SD x22,x41,x42
   views/view{***x99}

LB2

UD ICE
../APMQ/df{***x31}/select/sel{***x99}

SD E
views/view{***x99}

LB1

LB5
EN D