*$ CREATE USROUT.FOR *COPY USROUT * *=== usrout ===========================================================* * SUBROUTINE USROUT ( WHAT, SDUM ) INCLUDE '(DBLPRC)' INCLUDE '(DIMPAR)' INCLUDE '(IOUNIT)' INCLUDE '(CASLIM)' INCLUDE '(BEAMCM)' * *----------------------------------------------------------------------* * * * Copyright (C) 1991-2005 by Alfredo Ferrari & Paola Sala * * All Rights Reserved. * * * * * * USeR OUTput: this routine is called every time the USROCALL card * * is found in the input stream * * * * * * Created on 01 january 1991 by Alfredo Ferrari & Paola Sala * * Infn - Milan * * * * Last change on 20-mar-05 by Alfredo Ferrari * * * * * *----------------------------------------------------------------------* * DIMENSION WHAT (6) CHARACTER SDUM*8 * common /results/ kpin(-6:39), kpout(-6:39), nenter, nleft * write(30,*) 'nenter =',nenter,' nleft =',nleft write(30,*) write(30,'(10i8)') (kpin(i),i=1,39) write(30,*) write(30,'(10i8)') (kpout(i),i=1,39) * RETURN *=== End of subroutine Usrout =========================================* END