Return to hack_initialize.f CVS log | Up to [HallC] / Analyzer / HACK |
File: [HallC] / Analyzer / HACK / hack_initialize.f
(download)
Revision: 1.1, Mon Jul 25 17:03:30 1994 UTC (30 years, 2 months ago) by cdaq Branch: MAIN CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, oct1194, nov2894, nov2696, mduality, may2495, mar1495, mar-24-2003, jul2895, jan2795, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0694, dec0198, bigcal, baryon, aug1794, aug0394, aug-12-2003, apr3096, apr0695, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS Initial revision |
* ---------------------------------------------------------------------- *-- file HACK_INITIALIZE.F *-- Initialization for User Develpment Code * $Log: hack_initialize.f,v $ * Revision 1.1 1994/07/25 18:03:30 cdaq * Initial revision * * subroutine hack_initialize(ABORT,err) * * ---------------------------------------------------------------------- *-- first declare variables and store them in a common block (extra file) implicit none logical ABORT character*(*) err include 'gen_data_structures.cmn' include 'hack_.cmn' * *EXAMP integer i * *-- >>>>>>>>>> insert additional user declarations here <<<<<<<<< * ---------------------------------------------------------------------- ABORT = .FALSE. err = ' ' * ---------------------------------------------------------------------- * ---------------------------------------------------------------------- *-- intialize any varibles that need initialization *EXAMP do i = 1, max_user_par *EXAMP hack_int(i) = 0 *EXAMP hack_real(i) = 0.0 *EXAMP enddo * *-- >>>>>>>>>> insert additional user code here <<<<<<<<< * ---------------------------------------------------------------------- * return end
Analyzer/Replay: Mark Jones, Documents: Stephen Wood |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |