3 call create_watch_ss(" ")
5 subroutine create_watch_actual(name)
6 character(len=1) :: name(1)
7 end subroutine create_watch_actual
9 subroutine create_watch_ss(name,clock)
10 character(len=*) :: name
11 integer, optional :: clock
12 if (present(clock)) then
13 call create_watch_actual((/name/))
15 call create_watch_actual((/name/))
17 end subroutine create_watch_ss