; Batch for IDL.
; Note there is no PRO or END state at the beginning or end.


; Convert the NSLOTS environment variable to a number 
; and assign it to limit the number of IDL threads.
; If NSLOTS is not defined then set the number
; of allowed threads to 1 so that IDL behaves on
; login nodes.
IF STRLEN(GETENV('NSLOTS')) GT 0 THEN CPU, TPOOL_NTHREADS = LONG(GETENV('NSLOTS')) ELSE CPU, TPOOL_NTHREADS = 1
 
 
; Read the variables from the environment.
nloops = long(getenv('NLOOPS'))
size_x =  long(getenv('SIZE_X'))
size_y = long(getenv('SIZE_Y'))
 
; Now run the procedure in my_idl_test.pro
my_idl_test_args,nloops,size_x,size_y