give credit

src/results.f90

@@ -65,7 +65,7 @@ subroutine results_init(restart)
 
   character(len=pStringLen) :: commandLine
 
-  write(6,'(/,a)') ' <<<+-  results init  -+>>>'
+  write(6,'(/,a)') ' <<<+-  results init  -+>>>'; flush(6)
 
   write(6,'(/,a)') ' Diehl et al., Integrating Materials and Manufacturing Innovation 6(1):83–91, 2017'
   write(6,'(a)')   ' https://doi.org/10.1007/s40192-017-0084-5'

src/rotations.f90

@@ -105,6 +105,10 @@ subroutine rotations_init
 
   call quaternions_init
   write(6,'(/,a)') ' <<<+-  rotations init  -+>>>'; flush(6)
+
+  write(6,'(/,a)') ' Rowenhorst et al., Modelling and Simulation in Materials Science and Engineering 23:083501, 2015'
+  write(6,'(a)')   ' https://doi.org/10.1088/0965-0393/23/8/083501'
+
   call selfTest
 
 end subroutine rotations_init