*$ CREATE USRRNC.FOR *COPY USRRNC * *=== Usrrnc ===========================================================* * SUBROUTINE USRRNC ( IZ, IA, IS, X, Y, Z, MREG, WEE, ICALL ) INCLUDE '(DBLPRC)' INCLUDE '(DIMPAR)' INCLUDE '(IOUNIT)' * *----------------------------------------------------------------------* * * * Copyright (C) 2005-2005 by Alfredo Ferrari & Paola Sala * * All Rights Reserved. * * * * * * USeR Residual NuClei: * * * * Created on 06 april 2005 by Alfredo Ferrari & Paola Sala * * Infn - Milan * * * * Last change on 06-apr-05 by Alfredo Ferrari * * * * * *----------------------------------------------------------------------* * * Needed to check the half-life of nuclides EXTERNAL TIM1O2 DIMENSION KA (4), KZ (4), BRDAUG (4), T12DAU (4) INTEGER IZ, IA, IS, MREG DOUBLE PRECISION X, Y, Z, WEE, THALF, TIM1O2 WRITE(*,*) 'GDB$0:usrrnc ','Z=',IZ,', A=',IA,', S=',IS,', x=',X, & ', y=',Y,', z=',Z,', reg=',MREG,'vwee=',WEE,', icall=',ICALL THALF = TIM1O2(IA, IZ, KA, KZ, T12DAU, BRDAUG, IS) WRITE(*,*) 'GDB$0:usrrnc ','THALF=',THALF RETURN *=== End of subroutine Usrrnc =========================================* END