<br />
<b>Warning</b>:  Trying to access array offset on value of type null in <b>/home/site/wwwroot/lib/plugins/move/action/rename.php</b> on line <b>42</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/site/wwwroot/lib/plugins/move/action/rename.php:42) in <b>/home/site/wwwroot/inc/Action/Export.php</b> on line <b>106</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/site/wwwroot/lib/plugins/move/action/rename.php:42) in <b>/home/site/wwwroot/inc/Action/Export.php</b> on line <b>106</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /home/site/wwwroot/lib/plugins/move/action/rename.php:42) in <b>/home/site/wwwroot/inc/Action/Export.php</b> on line <b>106</b><br />
====== Write_atoms ======

Description: write out coordinates for Atoms

Contributed by: John Evans

<code topas>macro write_atoms(file)
{
out file 'append'
Out_String("\nTITL output from topas")
Out(Get(sp_grp_char), "\nSPGP %s")
Out(Get(a), "\nCELL  %f")
Out(Get(b), "  %f")
Out(Get(c), "  %f")
Out(Get(al), " %f")
Out(Get(be), "  %f")
Out(Get(ga), " %f")
Out_String("\nFIELDS LAB COO TFB")
         atom_out file append
            load out_record out_fmt out_eqn
            {
               "\n%-7s" = Get_From_String(Get(current_atom), site);
               " %9.5f" = Get_From_String(Get(current_atom), x);
               " %9.5f" = Get_From_String(Get(current_atom), y);
               " %9.5f" = Get_From_String(Get(current_atom), z);
'               " %9.5f" = Get_From_String(Get(current_atom), occ);
               " \n%9.5f" = Get_From_String(Get(current_atom), beq);
            }
}

</code>