Merge branch 'development' into 'main'

Development

See merge request hepplestone/artemis!12

Author: nedttaylor

src/interfaces.f90

@@ -1502,7 +1502,7 @@ subroutine output_intf_data(SAV, ifit, lw_term, ilw_term, up_term, iup_term, lw_
          SAV%tf1(ifit,2,1:3),SAV%tf2(ifit,2,1:3),&
          SAV%tf1(ifit,3,1:3),SAV%tf2(ifit,3,1:3)
     write(unit,'(" vector mismatch (%) = ",F0.9)') SAV%tol(ifit,1)
-    write(unit,'(" angle mismatch (°)  = ",F0.9)') SAV%tol(ifit,2)
+    write(unit,'(" angle mismatch (°)  = ",F0.9)') SAV%tol(ifit,2)*180/pi
     write(unit,'(" area mismatch (%)   = ",F0.9)') SAV%tol(ifit,3)
     write(unit,*)
     write(unit,'(" Lower crystal Miller plane: ",3(I3," "))') SAV%tf1(ifit,3,1:3)

src/mod_lat_compare.f90

@@ -887,7 +887,7 @@ subroutine endcode(SAV)
          SAV%tf1(1,2,1:3),SAV%tf2(1,2,1:3),&
          SAV%tf1(1,3,1:3),SAV%tf2(1,3,1:3)
     write(6,'(" vector mismatch (%) = ",F0.9)') SAV%tol(1,1)
-    write(6,'(" angle mismatch (°)  = ",F0.9)') SAV%tol(1,2)
+    write(6,'(" angle mismatch (°)  = ",F0.9)') SAV%tol(1,2)*180/pi
     write(6,'(" area mismatch (%)   = ",F0.9)') SAV%tol(1,3)
     write(6,*)
 
@@ -1380,7 +1380,7 @@ subroutine lattice_matching(SAV,tol,bas1,bas2,plane1,plane2,nmiller,lprint)
                   SAV%tf1(i,2,1:3),SAV%tf2(i,2,1:3),&
                   SAV%tf1(i,3,1:3),SAV%tf2(i,3,1:3)
              write(6,'(" vector mismatch (%) = ",F0.9)') SAV%tol(i,1)
-             write(6,'(" angle mismatch (°)  = ",F0.9)') SAV%tol(i,2)
+             write(6,'(" angle mismatch (°)  = ",F0.9)') SAV%tol(i,2)*180/pi
              write(6,'(" area mismatch (%)   = ",F0.9)') SAV%tol(i,3)
              write(6,*) "reduced:",lvec1(i)
              write(6,*)