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 /Trivac/src/TRIVAC.f90 | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Trivac/src/TRIVAC.f90')
| -rwxr-xr-x | Trivac/src/TRIVAC.f90 | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/Trivac/src/TRIVAC.f90 b/Trivac/src/TRIVAC.f90 new file mode 100755 index 0000000..015fcd9 --- /dev/null +++ b/Trivac/src/TRIVAC.f90 @@ -0,0 +1,79 @@ +program TRIVAC + 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 trimod(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 trimod + end interface +!---- +! variables for TRIVAC version +!---- + integer :: imvers + character(len=64) :: date + character(len=48) :: rev + character(len=6), parameter :: namsbr='trivac' +!---- +! 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(trimod,iprint) + if( ier /= 0 )then + write(hsmg,'(27hTRIVAC: kernel error (code=,I5,2h).)') ier + call XABORT(hsmg) + endif +!---- +! all modules processed +!---- + write(iout,6030) namsbr,imvers,rev + stop +!---- +! formats +!---- + 6000 format( ' TTTTTTTT RRRRRR IIIIII VV VV AA CCCCC '/ & + ' TTTTTTTT RRRRRRR IIIIII VV VV AAAA CCCCCCC'/ & + ' TT RR RR II VV VV AAAA CC CC'/ & + ' TT RRRRR II VV VV AA AA CC '/ & + ' TT RRRRR II VV VV AAAAAA CC '/ & + ' TT RR RR II VV VV AAAAAA CC CC'/ & + ' TT RR RR IIIIII VVVV AA AA CCCCCCC'/ & + ' TT RR RR IIIIII VV AA AA CCCCC '// & + ' 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) 2002 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 TRIVAC |