*DECK XDRCRE SUBROUTINE XDRCRE(NAMMOD,IBEAF) * *----------------------------------------------------------------------- * *Purpose: * To print DRAGON credits. * *Copyright: * Copyright (C) 2004 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 * *Author(s): G. Marleau * *Parameters: input * NAMMOD name of DRAGON module. * IBEAF flag for beginning or finishing module where: * =1 before module execution; * =-1 after module execution. * *----------------------------------------------------------------------- * IMPLICIT NONE *---- * SUBROUTINE ARGUMENTS *---- CHARACTER NAMMOD*12 INTEGER IBEAF *---- * LOCAL PARAMETERS *---- INTEGER IOUT CHARACTER NAMSBR*6 PARAMETER (IOUT=6,NAMSBR='XDRCRE') *---- * LOCAL VARIABLES *---- CHARACTER USE*72,AUT*72 INTEGER ICOPYR *---- * PRINT CREDITS *---- ICOPYR=0 IF(IBEAF .EQ. 1) THEN WRITE(IOUT,6000) NAMMOD IF (NAMMOD .EQ. 'ASM: ') THEN USE='To built system matrices (CP and IC)' AUT='A. Hebert, G. Marleau, R. Roy' ELSE IF(NAMMOD .EQ. 'COMPO: ') THEN USE='Create multiparameter reactor composition database' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'EDI: ') THEN USE='Editing module' AUT='A. Hebert, G. Marleau' ELSE IF(NAMMOD .EQ. 'EVO: ') THEN USE='Isotopic depletion and fuel burnup' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'EXCELT: ') THEN USE='Excell tracking in 2- and 3-D' AUT='G. Marleau, M. Ouisloumen, R. Roy' ELSE IF(NAMMOD .EQ. 'NXT: ') THEN USE='New excell tracking in 2- and 3-D' AUT='G. Marleau' ELSE IF(NAMMOD .EQ. 'MCCGT: ') THEN USE='Method of characteristics in 2- and 3-D' AUT='I. Suslov, R. Roy, R. Le Tellier, A. Hebert' ELSE IF(NAMMOD .EQ. 'BIVACT: ') THEN USE='2-D diffusion or SPN finite element tracking' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'TRIVAT: ') THEN USE='3-D diffusion or SPN finite element tracking' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'SNT: ') THEN USE='Discrete ordinates tracking' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'FLU: ') THEN USE='Solve the flux equations' AUT='R. Roy, A. Hebert, G. Marleau' ELSE IF(NAMMOD .EQ. 'GEO: ') THEN USE='Geometry definition' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'INFO: ') THEN USE='Information on water, UO2 and ThO2' AUT='R. Roy' ELSE IF(NAMMOD .EQ. 'LIB: ') THEN USE='Microscopic xs-library processing' AUT='A. Hebert, G. Marleau' ELSE IF(NAMMOD .EQ. 'MAC: ') THEN USE='Macroscopic xs processor' AUT='G. Marleau' ELSE IF(NAMMOD .EQ. 'MRG: ') THEN USE='Merge excell tracking file' AUT='G. Marleau' ELSE IF(NAMMOD .EQ. 'PSP: ') THEN USE='Generates ps graphics for dragon' AUT='K.E. Kohler, G. Marleau' ICOPYR=1 ELSE IF(NAMMOD .EQ. 'SHI: ') THEN USE='Self-shielding by improved Stammler method' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'USS: ') THEN USE='Self-shielding by subgroup method' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'TONE: ') THEN USE='Self-shielding by Tone method' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'AUTO: ') THEN USE='Self-shielding by Autosecol method' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'VDG: ') THEN USE='Statistics on Van Der Gucht benchmarks' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'SYBILT: ') THEN USE='Sybil 2-D tracking' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'TLM: ') THEN USE='Generate matlab line tracking file' AUT='C. Plamondon, G. Marleau' ELSE IF(NAMMOD .EQ. 'M2T: ') THEN USE='Generate an apotrim interface file' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'FMAC: ') THEN USE='Recover information from a FMAC-M interface file' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'PSOUR: ') THEN USE='Compute a fixed source from companion particles' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'HEAT: ') THEN USE='Compute the energy and charge deposition values' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'CHAB: ') THEN USE='Modify and renormalize a microlib' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'CPO: ') THEN USE='Create Version3 reactor composition database' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'SAP: ') THEN USE='Create a Saphyb composition database' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'APX: ') THEN USE='Create an APEX composition database' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'MPO: ') THEN USE='Create a MPO composition database' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'MC: ') THEN USE='Multigroup Monte-Carlo calculation' AUT='R. Le Tellier, B. Arsenault' ELSE IF(NAMMOD .EQ. 'T: ') THEN USE='Transpose a macrolib' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'DMAC: ') THEN USE='Set the GPT adjoint sources (Macrolib gradient)' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'FMT: ') THEN USE='Transfer data structure to formatted output files' AUT='G. Marleau' ELSE IF(NAMMOD .EQ. 'EPC: ') THEN USE='Error propagation module' AUT='G. Marleau' ELSE IF(NAMMOD .EQ. 'SPH: ') THEN USE='Superhomogenization (SPH) calculation' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'CFC: ') THEN USE='Construction of a feedback database for CANDU reactors' AUT='M. T. Sissaoui' ELSE IF(NAMMOD .EQ. 'SENS: ') THEN USE='Sensitivity analysis to cross-section on the reactivity' AUT='C. Laville, G. Marleau' ELSE IF(NAMMOD .EQ. 'DUO: ') THEN USE='Perturbative analysis using the Clio formula' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'BREF: ') THEN USE='Discontinuity factors calculation in a 1D reflector' AUT='A. Hebert' ELSE IF(NAMMOD .EQ. 'SALT: ') THEN USE='Track calculations from a SALOME surfacic file' AUT='A. Hebert, X. Warin' ELSE IF(NAMMOD .EQ. 'G2S: ') THEN USE='Generate a surfacic file in SALOME format from a DRAGON' > //' geometry' AUT='G. Civario' ELSE IF(NAMMOD .EQ. 'G2MC: ') THEN USE='Generate a surfacic file in Monte Carlo format from a ' > //'DRAGON geometry' AUT='G. Civario' ELSE IF(NAMMOD .EQ. 'MRG: ') THEN USE='Merge regions in tracking data structure' AUT='G. Marleau' ELSE IF(NAMMOD .EQ. 'CLM: ') THEN USE='Combine and redistribute liquid fuel mixtures' AUT='G. Marleau' ELSE USE='No description available for this module' AUT='No author provided for this module' ENDIF WRITE(IOUT,6100) USE,AUT IF(ICOPYR .EQ. 1) THEN WRITE(IOUT,6111) ELSE WRITE(IOUT,6110) ENDIF ELSE WRITE(IOUT,6001) NAMMOD ENDIF RETURN *---- * FORMATS *---- 6000 FORMAT('->@BEGIN MODULE : ',A12) 6001 FORMAT('->@END MODULE : ',A12) 6100 FORMAT('->@DESCRIPTION : ',A72/ > '->@CREDITS : ',A72) 6110 FORMAT('->@COPYRIGHTS : ECOLE POLYTECHNIQUE DE MONTREAL '/ > ' GNU LESSER GENERAL PUBLIC LICENSE') 6111 FORMAT('->@COPYRIGHTS : ECOLE POLYTECHNIQUE DE MONTREAL '/ > ' GNU LESSER GENERAL PUBLIC LICENSE'/ > ' K.E. KOHLER FOR PSPLOT ') END