correct format output for hetatm

m3g · Apr 14, 2018 · d2e000d · d2e000d
1 parent 86a266f
commit d2e000d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/output.f90 b/output.f90
@@ -502,8 +502,8 @@ subroutine output(n,x)
             end if
 
             if(record(1:6).eq.'HETATM') then
-              format_line = pdb_atom_line
-              if ( i_ref_atom > 99999 ) format_line = pdb_atom_line_hex
+              format_line = pdb_hetatm_line
+              if ( i_ref_atom > 99999 ) format_line = pdb_hetatm_line_hex
               write(30,format_line) record(1:6), i_ref_atom,&
                                     record(12:21), write_chain, iires,&
                                     record(27:27),&