libvhcall-fortran  2.5
libvhcall.f
1  SUBROUTINE vh_sbr(VAL, LEN)
2  IMPLICIT NONE
3  INTEGER len
4  REAL val(len)
5  val = val(len:1:-1)
6  RETURN
7  END SUBROUTINE vh_sbr
8 
9  MODULE vh_mod
10  CONTAINS
11  FUNCTION vh_func()
12  IMPLICIT NONE
13  INTEGER(8) vh_func
14  WRITE(*,*) "[This is function in module on VH]"
15  vh_func=1
16  RETURN
17  END FUNCTION vh_func
18  END MODULE vh_mod