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