1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
PRO dustem_write_propmass,file,st ; DO i = 1,nesp ; READ(UNIT = fpropmas%unit,FMT = *)propm(i) ; END DO OPENW,unit,file,/get_lun Ntypes=n_elements(st) FOR i=0L,Ntypes-1 DO BEGIN printf,unit,st(i).propmass ENDFOR close,unit free_lun,unit END
version 4.2 merged