tttest

[unres4.git] / source / wham / wham.F90

diff --git a/source/wham/wham.F90 b/source/wham/wham.F90
index fcf1d15..def4ee1 100644 (file)
--- a/source/wham/wham.F90
+++ b/source/wham/wham.F90
@@ -54,6 +54,9 @@
 !#define WHAM_RUN
 !      call alloc_wham_arrays
 !write(iout,*) "after alloc wham"
+      write (*,"(A,/,A,/,A,/,A)") "Last Christmas", &
+      "I gave you my heart","But the very next day", &
+      "You gave it away"
 #ifdef MPI
       call MPI_Init( IERROR )
       call MPI_Comm_rank( MPI_COMM_WORLD, me, IERROR )