libvhcall-fortran
2.11
libvhcall.f
1
SUBROUTINE
vh_sbr1(STR, LEN)
2
IMPLICIT NONE
3
INTEGER
len
4
CHARACTER(LEN)
str
5
str =
"World!!"
6
RETURN
7
END SUBROUTINE
vh_sbr1
8
9
SUBROUTINE
vh_sbr2(VAL, LEN1, LEN2, LEN3)
10
IMPLICIT NONE
11
INTEGER
len1, len2, len3
12
REAL
val(len1,len2,len3)
13
val = val(len1:1:-1,len2:1:-1,len3:1:-1)
14
RETURN
15
END SUBROUTINE
vh_sbr2
16
17
MODULE
vh_mod
18
CONTAINS
19
FUNCTION
vh_func()
20
IMPLICIT NONE
21
INTEGER(8)
vh_func
22
WRITE
(*,*)
"[This is function in module on VH]"
23
vh_func=1
24
RETURN
25
END FUNCTION
vh_func
26
END MODULE
vh_mod
Generated by
1.8.5