diff options
Diffstat (limited to 'Ganlib/src/GANMAIN.f90')
| -rw-r--r-- | Ganlib/src/GANMAIN.f90 | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/Ganlib/src/GANMAIN.f90 b/Ganlib/src/GANMAIN.f90 new file mode 100644 index 0000000..3d55bdd --- /dev/null +++ b/Ganlib/src/GANMAIN.f90 @@ -0,0 +1,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 |