1 integer function hellofunc(name, len)
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
11 subroutine hellosubr(name, len)
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'