1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| subroutine subb(k)
| real(8), intent(inout) :: k(:)
| k=k+1
| endsubroutine
|
| subroutine subc(w,k)
| real(8), intent(in) :: w(:)
| real(8), intent(out) :: k(size(w))
| k=w+1
| endsubroutine
|
| function t0(value)
| character value
| character t0
| t0 = value
| endfunction
|
|
