libvhcall-fortran
2.13.0
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, len3, loc_len2
12
INTEGER
,
OPTIONAL
:: len2
13
REAL
val(len1,2,len3)
14
IF
(present(len2))
THEN
15
WRITE
(*,*)
"LEN2 "
,len2
16
loc_len2=len2
17
ELSE
18
WRITE
(*,*)
"LEN2 ABSENT"
19
loc_len2=2
20
END IF
21
val = val(len1:1:-1,loc_len2:1:-1,len3:1:-1)
22
RETURN
23
END SUBROUTINE
vh_sbr2
24
25
MODULE
vh_mod
26
CONTAINS
27
FUNCTION
vh_func()
28
IMPLICIT NONE
29
INTEGER(8)
vh_func
30
WRITE
(*,*)
"[This is function in module on VH]"
31
vh_func=1
32
RETURN
33
END FUNCTION
vh_func
34
END MODULE
vh_mod
Generated by
1.8.5