libsysve  2.9.0
vhcall/libvhhello.f90
1 integer function hellofunc(name, len)
2  implicit none
3  integer, intent(in) :: len
4  character(len=len), intent(in) :: name
5  write(*,*) '[VH libvhhello_f.so:hellofunc] 1starg:', name
6  write(*,*) '[VH libvhhello_f.so:hellofunc] 2ndarg:', len
7  hellofunc = 0
8  return
9 end function
10 
11 subroutine hellosubr(name, len)
12  implicit none
13  integer, intent(in) :: len
14  character(len=len), intent(inout) :: name
15  write(*,*) '[VH libvhhello_f.so:hellosubr] 1starg:', name
16  write(*,*) '[VH libvhhello_f.so:hellosubr] 2ndarg:', len
17  name = 'Hello VE, This is VH Fortran library'
18  return
19 end subroutine