From e9af9725daa77c2cfbf1c689b24ed86b01e59f4a Mon Sep 17 00:00:00 2001 From: =?utf8?q?=C5=81ukasz=20Golon?= Date: Wed, 30 Oct 2019 20:17:22 +0100 Subject: [PATCH] tttest --- source/wham/wham.F90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/source/wham/wham.F90 b/source/wham/wham.F90 index fcf1d15..def4ee1 100644 --- 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 ) -- 1.7.9.5