forked from xabimen/rigid
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathio.f90
23 lines (19 loc) · 892 Bytes
/
io.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
module inout
contains
subroutine start_message()
implicit NONE
write(*,fmt='(a)') ""
write(*,fmt='(a)') ""
write(*,fmt='(a)') " **************************************************"
write(*,fmt='(a)') " ** **"
write(*,fmt='(a)') " ** TITULO DEL PROGRAMA **"
write(*,fmt='(a)') " ** v 0.1 **"
write(*,fmt='(a)') " ** **"
write(*,fmt='(a)') " ** created by **"
write(*,fmt='(a)') " ** J. Lopez Zorrilla & X. M. Aretxabaleta **"
write(*,fmt='(a)') " ** **"
write(*,fmt='(a)') " **************************************************"
write(*,fmt='(a)') ""
write(*,fmt='(a)') ""
end subroutine
end module