1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
program GANMAIN
use GANLIB
implicit none
character(len=131) :: hsmg
!
! local storage
integer :: iprint,ier
integer :: imvers
character(len=64) :: date
character(len=48) :: rev
integer, parameter :: iout=6
character(len=6), parameter :: namsbr='ganlib'
!
! gan-2000 external functions
integer, external :: KERNEL
interface
integer(c_int) function ganmod(cmodul, nentry, hentry, ientry, jentry, &
kentry, hparam_c) bind(c)
use, intrinsic :: iso_c_binding
character(kind=c_char), dimension(*) :: cmodul
integer(c_int), value :: nentry
character(kind=c_char), dimension(13,*) :: hentry
integer(c_int), dimension(nentry) :: ientry, jentry
type(c_ptr), dimension(nentry) :: kentry
character(kind=c_char), dimension(73,*) :: hparam_c
end function ganmod
end interface
!----
! version information recovered from cvs
!----
imvers=5
call KDRVER(rev,date)
!----
! execute the cle-2000 driver
!----
iprint=0
ier=KERNEL(ganmod,iprint)
if( ier /= 0 )then
write(hsmg,'(28hGANMAIN: kernel error (code=,I5,2h).)') ier
call XABORT(hsmg)
endif
write(iout,6030) namsbr,imvers,rev
stop
6030 format(/1x,'normal end of execution for ',a6,i2,2x,a/ &
1x,'check for warning in listing'/ &
1x,'before assuming your run was successful')
end program GANMAIN
|
