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
Generated by
1.8.5