projects
/
unres4.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
603baff
)
tttest
author
Łukasz Golon
<golon@uchicago.edu>
Wed, 30 Oct 2019 19:17:22 +0000
(20:17 +0100)
committer
Łukasz Golon
<golon@uchicago.edu>
Wed, 30 Oct 2019 19:17:22 +0000
(20:17 +0100)
source/wham/wham.F90
patch
|
blob
|
history
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"
!#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 )
#ifdef MPI
call MPI_Init( IERROR )
call MPI_Comm_rank( MPI_COMM_WORLD, me, IERROR )