; Copy refinement files to cluster
; send.pam                ArDean Leith    March 2002
; Source location: /net/sicily/usr1/leith/clus/spahn/refine/pubsub 
;
; CALLED FROM:
;  
;
; INPUT:
; dala{***group}                     Stack files
; data{***group}                     Stack files
; final/defgrp{***x77}/trans{***x56} Doc. files
; order_select                       Doc. file
; vol{***iter}                       Starting volume
; ctfs                               CTF Starting file   
;
; OUTPUT:
; input/dala{**iter}_{***group}      Stack files
; input/data{***group}               Stack files
; input/trans{**iter}_{***group}     Doc. files
; input/order_select                 Doc. file
;
; CALLS:
;
;.......................................................................

FR L
?source input directory? [1]
/net/sylt/usr11/spahn/Super-EF2

FR L
?source output directory? [2]
leith@patroon:~leith/spahn/input

FR L
?dala input? [3]
dala{***x77}

FR L
?dala output? [4]
dala{**x56}_{***x77}

FR L
?data input? [5]
data{***x77}

FR L
?trans input? [6]
final/defgrp{***x77}/trans{***x56}

FR L
?trans output? [7]
trans{**x56}_{***x77}

FR L
?order_select input? [8]
order_select

FR L
?vol input? [9]
final/vol{***x56}

FR L
?vol output? [10]
vol{**x56}

FR L
?ctf input? [11]
ctf/ctfs

x56 = 1  ; starting iteration

x65 = 3  ; starting  defocus group
x66 = 43 ; ending    defocus group

; -----------------------------------------------------------------

VM           ;  - order_select input
scp [1]/[8].$DATEXT [2]     

VM           ; final/vol
scp [1]/[9].$DATEXT  [2]/[10].$DATEXT     

VM           ; - ctfs
scp [1]/[11].$DATEXT  [2]     

DO LB1 x77=x65,x66   ; loop over defocus groups -------------------

   VM        ; 
   scp [1]/[3].$DATEXT [2]/[4].$DATEXT    

   VM        ; 
    scp [1]/[5].$DATEXT [2]    

   VM        ; 
   scp [1]/[6].$DATEXT [2]/[7].$DATEXT     

LB1

EN
;