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