diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Donjon/src/DONJON.f90 | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/src/DONJON.f90')
| -rw-r--r-- | Donjon/src/DONJON.f90 | 81 |
1 files changed, 81 insertions, 0 deletions
diff --git a/Donjon/src/DONJON.f90 b/Donjon/src/DONJON.f90 new file mode 100644 index 0000000..c338298 --- /dev/null +++ b/Donjon/src/DONJON.f90 @@ -0,0 +1,81 @@ +program DONJON + use GANLIB + implicit none + integer, parameter :: iout=6 + character(len=131) :: hsmg +!---- +! local storage +!---- + integer :: iprint,ier +!---- +! gan-2000 external functions +!---- + integer, external :: KERNEL + interface + integer(c_int) function donmod(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 donmod + end interface +!---- +! variables for DONJON version +!---- + integer :: imvers + character(len=64) :: date + character(len=48) :: rev + character(len=6), parameter :: namsbr='donjon' +!---- +! version information recovered from cvs +!---- + imvers=5 + call KDRVER(rev,date) + write(iout,6000) namsbr,imvers,rev,date + write(iout,6010) namsbr +!---- +! execute the cle-2000 driver +!---- + iprint=0 + ier=KERNEL(donmod,iprint) + if( ier /= 0 )then + write(hsmg,'(27hDONJON: kernel error (code=,I5,2h).)') ier + call XABORT(hsmg) + endif +!---- +! all modules processed +!---- + write(iout,6030) namsbr,imvers,rev + stop +!---- +! formats +!---- + 6000 FORMAT( & + ' @@@@@@@ @@@@@ @@ @@ @@@@@@ @@@@@ @@ @@'/ & + ' @@@@@@@@ @@@@@@@ @@@ @@ @@ @@@@@@@ @@@ @@'/ & + ' @@ @@ @@ @@ @@@@ @@ @@ @@ @@ @@@@ @@'/ & + ' @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@'/ & + ' @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ @@'/ & + ' @@ @@ @@ @@ @@ @@@@ @@ @@ @@ @@ @@@@'/ & + ' @@@@@@@@ @@@@@@@ @@ @@@ @@ @@ @@@@@@@ @@ @@@'/ & + ' @@@@@@@ @@@@@ @@ @@ @@@@@@ @@@@@ @@ @@'// & + ' VERSION ',A6,I2,2X,A,4X,A/ & + ' GROUPE D''ANALYSE NUCLEAIRE'/ & + ' ECOLE POLYTECHNIQUE DE MONTREAL'//) + 6010 FORMAT( & + ' COPYRIGHT NOTICE FOR THIS VERSION OF ',A6,':'/ & + ' --------------------------------------------'/ & + ' Copyright (C) 2007 Ecole Polytechnique de Montreal '/ & + ' This library is free software; you can redistribute it' / & + ' and/or modify it under the terms of the GNU Lesser General' / & + ' Public License as published by the Free Software Foundation;' / & + ' either version 2.1 of the License, or (at your option) any' / & + ' later version '///) + 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 DONJON |